[SCRIPT] omaggio per tutti.

[Ospite]

ho deciso, leggendo i vari tread di lamentele sugli script, e sull'impossibilitą di reperirli di donare a tutti gli script che ho utilizzato su uodream da quando gioco.
ne ho tolti giusto 2 o 3, ma nulla che influenzi il pvp.
nn chiedetemi come settarli, sarebbe un lavoro lungo e noioso..io vi do la base, voi fate il resto.
alcuni verso la fine si ripetono, nn ricordo perche.



sub autostart()
Uo.exec("terminate bolas")
Uo.Print("Autostart")
UO.exec("exec bolas")
Uo.exec ("exec Start")
end sub



sub carica()

uo.exec ("useobject self")

uo.say ("all come")

wait (200)

uo.say ("all come")

wait (600)

uo.exec ("usetype bola")

wait (500)

uo.exec ("useobject LalloMount")

uo.exec("exec Start")

end sub




sub lancia()

uo.exec ("useobject self")

uo.say ("all come")

wait (200)

uo.say ("all come")

wait (600)

uo.press (48)

wait (3200)

uo.exec ("useobject LalloMount")

uo.exec("exec Start")

end sub




sub bestia1()

uo.exec("useobject sfera1")

uo.say("all come")

wait(550)

uo.exec ("useobject LALLO1")

wait(500)

uo.exec("exec Start")

end sub



sub bestia2()

uo.exec("useobject sfera2")

uo.say("all come")

wait(550)

uo.exec ("useobject LALLO2")

wait(500)

uo.exec("exec Start")

end sub


sub bestia3()

uo.exec("useobject sfera3")

uo.say("all come")

wait(550)

uo.exec ("useobject LALLO3")

wait(500)

uo.exec("exec Start")

end sub



sub vesti()

if UO.ObjAtLayer("Torso") == "" THEN

uo.exec ("equipt Torso 0x13cc")

wait (600)

END IF

if UO.ObjAtLayer("Arms") == "" THEN

uo.exec ("equipt Arms 0x13cd")

wait (600)

END IF

if UO.ObjAtLayer("Gloves") == "" THEN

uo.exec ("equipt Gloves 0x13c6")

wait (600)

END IF

if UO.ObjAtLayer("Ring") == "" THEN

uo.exec ("equipt Ring 0x108a")

wait (600)

END IF

if UO.ObjAtLayer("Brace") == "" THEN

uo.exec ("equipt Brace 0x1f06")

wait (600)

END IF

if UO.ObjAtLayer("Hat") == "" THEN

uo.exec ("equipt Hat 0x1db9")

wait (600)

END IF

if UO.ObjAtLayer("Pants") == "" THEN

uo.exec ("equipt Pants 0x13cb")

wait (600)

END IF

if UO.ObjAtLayer("Neck") == "" THEN

uo.exec ("equipt Neck 0x13c7")

wait (600)

END IF

if UO.ObjAtLayer("TorsoH") == "" THEN

uo.exec ("equipt TorsoH 0x1f7b")

wait (600)

END IF

if UO.ObjAtLayer("Eggs") == "" THEN

uo.exec ("equipt Eggs 0x1537")

wait (600)

END IF

if UO.ObjAtLayer("Shoes") == "" THEN

uo.exec ("equipt Shoes 0x170d")

wait (600)

END IF

end sub



sub scavalla()

uo.exec("useobject self")

uo.press(115)

uo.say ("all come")

wait(500)

uo.say ("all come")

wait(500)

uo.say ("all come")

uo.exec("useobject LalloMount")

wait (700)

uo.exec ("exec Start")

end sub




sub bolas()
inizio:
Wait(400)
IF UO.CountGround('bola') >= 1 THEN
UO.WaitTargetGround('bola')
UO.Grab()
END IF
wait (800)
goto inizio
end sub




sub waryewel()

uo.exec("unequip Brace")

wait(650)

uo.exec("unequip Ring")

wait(650)

uo.exec("equip Brace 'warbrace'")

wait(650)

uo.exec("equip Ring 'warring'")

end sub



sub pozzayewel()

uo.exec("unequip Brace")

wait(650)

uo.exec("unequip Ring")

wait(650)

uo.exec("equip Brace 'pozzabrace'")

wait(650)

uo.exec("equip Ring 'pozzaring'")

end sub



sub bindbrace()

uo.exec("unequip Brace")

wait(650)

uo.exec("equip Brace 'bindbrace'")

wait(650)

uo.exec("useobject bindbrace")

wait (3000)

uo.exec("unequip Brace")

wait(650)

uo.exec("equip Brace 'warbrace'")

end sub




sub bandageself()
UO.Say(" ")
UO.Say(",terminate bandages")
UO.Say(",exec bandages")
end sub
sub bandages()
Var Time
IF UO.GetMaxHP("self") > UO.Life THEN
IF UO.B >= 1 THEN
UO.DeleteJournal()
UO.Bandageself()
Time = 0
Repeat
Wait(1000)
Time = Time + 1
UO.Print(STR(Time) + (" sec"))
Until UO.InJournal("cliloc# 0xA4E9")
ENDIF
ELSE
UO.Print("Full PF. No need for heal")
ENDIF
end sub





sub explo()
uo.exec ("usetype explosion")
wait (2600)
uo.press (48)
end sub



sub poutch1()
uo.exec ("useobject sfera1")
end sub



sub poutch2()
uo.exec ("useobject sfera2")
end sub



sub poutch3()
uo.exec ("useobject sfera3")
end sub





Var Mount1 = '0x400CBAE2'
Var Mount2 = '0x402A157B'
Var Mount3 = '0x40327BE6'
Var Mount4 = '0x40311654'
Var Mount5 = '0x401F9B65'
Var Mount6 = '0x40193A0C'
sub Start()
if uo.objatlayer("Horse") == Mount1 THEN
uo.addobject("LalloMount",0x000046fc)
end if
if uo.objatlayer("Horse") == Mount2 THEN
uo.addobject("LalloMount",0x0000e874)
end if
if uo.objatlayer("Horse") == Mount3 THEN
uo.addobject("LalloMount",0x0001902e)
end if
if uo.objatlayer("Horse") == Mount4 THEN
uo.addobject("LalloMount",0x0001a441)
end if
if uo.objatlayer("Horse") == Mount5 THEN
uo.addobject("LalloMount",0x000140c7)
end if
if uo.objatlayer("Horse") == Mount6 THEN
uo.addobject("LalloMount",0x0000e777)
end if
end sub




sub ricarica()

uo.exec("cast 'Magic Trap' poutch1")

wait (2000)

uo.exec("cast 'Magic Trap' poutch2")

wait (2000)

uo.exec("cast 'Magic Trap' poutch3")

end sub




sub healbestia()

uo.exec ("useobject self")

uo.say ("all come")

uo.exec("cast 'Heal' LalloMount")

wait (2000)

uo.exec ("useobject LalloMount")

uo.exec ("exec Start")

end sub






sub curebestia()

uo.exec ("useobject self")

uo.say ("all come")

uo.exec("cast 'Cure' LalloMount")

wait (2000)

uo.exec ("useobject LalloMount")

uo.exec ("exec Start")

end sub




sub CaricaBolas()

uo.exec ("useobject self")

uo.say ("all come")

wait (200)

uo.say ("all come")

wait (600)

uo.exec ("usetype bola")

wait (500)

uo.exec ("useobject LalloMount")

uo.exec ("exec Start")

end sub




sub LanciaBolas()

uo.exec ("useobject self")

uo.say ("all come")

wait (200)

uo.say ("all come")

wait (600)

uo.press (48)

wait (3200)

uo.exec ("useobject LalloMount")

uo.exec ("exec Start")

end sub



sub Horse1()

uo.exec("useobject sfera1")

uo.say("all come")

wait(550)

uo.exec ("useobject LALLO1")

wait(500)

uo.exec ("exec Start")

end sub



sub Horse2()

uo.exec("useobject sfera2")

uo.say("all come")

wait(550)

uo.exec ("useobject LALLO2")

wait(500)

uo.exec ("exec Start")

end sub



sub Horse3()

uo.exec("useobject sfera3")

uo.say("all come")

wait(550)

uo.exec ("useobject LALLO3")

wait(500)

uo.exec ("exec Start")

end sub






sub hiddabestia()

uo.say ("all stay")

uo.exec("cast 'Invisibility' LalloMount")

wait (6000)

uo.exec ("useobject sfera1")

wait (6000)

uo.exec ("useobject sfera1")

wait (200)

uo.say ("all come")

wait (500)

uo.exec ("useobject LalloMount")

uo.exec ("exec Start")

end sub




sub mettibind()

uo.exec("unequip Brace")

wait(650)

uo.exec("equip Brace 'bindbrace'")

wait (7000)

uo.exec("unequip Brace")

wait(650)

uo.exec("equip Brace 'warbrace'")

end sub



sub scavalla1()

uo.exec("useobject self")

uo.press(53)

uo.say ("all come")

wait(1000)

uo.say ("all come")

wait (200)

uo.say ("all come")

uo.exec("useobject LalloMount")

wait (700)

uo.exec ("exec Start")

end sub



sub HealpetA()

uo.waittargetobject ("Asd")

uo.exec ("useobject bandage")

end sub



sub HealpetB()

uo.waittargetobject ("Bsd")

uo.exec ("useobject bandage")

end sub



sub Night()
uo.exec ("useobject Bsd")
end sub





sub KillA()
UO.Say(" ")
uo.say ("Bombolo Kill")
end sub


sub KillB()
UO.Say(" ")
uo.say ("Ciuccellona Kill")
end sub


sub GuardA()
UO.Say(" ")
uo.say ("Bombolo guard")
end sub


sub GuardB()
UO.Say(" ")
uo.say ("Ciuccellona guard")
end sub


sub ComA()
UO.Say(" ")
uo.say ("Bombolo come")
end sub


sub ComB()
UO.Say(" ")
uo.say ("Ciuccellona come")
end sub

[revenant84]

Che signore, ma tanto sappiamo entrambi caro sabrick che puoi pure andare a casa loro, montarglieli, spiegarglieli e farglieli provare. I rosikoni troveranno sempre altre scuse :P vediamo che si inventano ora...

[Lordcainzero]

ghgh ottimo
vabbč , gioco meno, li provo lunedģ

[thelord]

Originally posted by Korad
Che signore, ma tanto sappiamo entrambi caro sabrick che puoi pure andare a casa loro, montarglieli, spiegarglieli e farglieli provare. I rosikoni troveranno sempre altre scuse :P vediamo che si inventano ora...

[LadySka82]

Bravo Sabrick

[raizo]

La funzione:
UO.Press( 48 )

Emula la pressione del tasto 0 ? ( 48 decimale ascii č 0 )
Se si, li avevi una macro tipo last targhet ?


p.s. č la prima volta che mi metto a studiare script per inj, non vorrei dire cavolate :P

[ZoRaS]

sabro invece di fare sti post xche non entri in game che non ti veedo piu

[Dj_Amix]

mo vojo vede se i tizi del gate escono fuori o meno....
uno script nn fa poi tanto la differenza...
se c'č scritto che devi morire,muori.
ormai CONTA esclusivamente il NUMERO.

[RingS]

Si, bravo Sabrick, sei il miglior scripter che esista... sei molto "pheeeego"..

Strano perņ che non ti vedo mai a felucca..

*edit*
Ma no schevzo.. lo sai che ti ho voluto sempve bene..

[revenant84]

Mi sa che utilizzeranno cmq uno script del genere quando vedono un pg rosso, magari taggato NoX:


sub Ohca**o()

uo.exec ("usecartaigienica self")

uo.say ("all run")

wait (200)

uo.say ("all run all run")

wait (600)

uo.exec ("useskill hiding in house")

wait (500)

uo.exec ("useobject Tranquillante")

uo.say ("siete lamer, io non sono newbbo siete voi che siete lamer!!!Cattivi Cattivi Cattivi! Ed io non esco!!!")

end sub

[spillero]

sabrick č inutile

i niubbi rosikoni kontinueranno a rimanere ai gate

[drujma]

Sabbo

[bruise]

Originally posted by Korad
Mi sa che utilizzeranno cmq uno script del genere quando vedono un pg rosso, magari taggato NoX:


sub Ohca**o()

uo.exec ("usecartaigienica self")

uo.say ("all run")

wait (200)

uo.say ("all run all run")

wait (600)

uo.exec ("useskill hiding in house")

wait (500)

uo.exec ("useobject Tranquillante")

uo.say ("siete lamer, io non sono newbbo siete voi che siete lamer!!!Cattivi Cattivi Cattivi! Ed io non esco!!!")

end sub

lo provo subito

[PuNkEtToMaN]

bella vale'

[quaketony]

sabrick mi chiami al cell 3386719021 e mi dai user e pass dell'account