Skript Na Vari pomogite
Posted: 2004-07-24 09:06:09
vot nakatal takoy skriptik i on mne pishet error na stroke posle posledniy a yeyo nesushestvuyet vashe i niznayu 4o delat vrode vso gramotno
Code: Select all
sub wars()
var bandages = 0x0E21
var bloodbandages = 0x0E20
var washbasin = 0x1008
var fizllecheck
UO.DeleteJournal()
UO.Automenu('What','Polar')
while NOT UO.Dead()
If UO.Life<UO.Str then
repeat
UO.Bandageself()
wait(5000)
If UO.count("bandages")==0 AND UO.Count("bloodbandages")==0 then
UO.closeUO()
Else
If UO.count("bandages")==0 then
UO.usetype("bloodbandages")
UO.waittargettype ("washbasin")
Endif
Endif
until UO.Life==UO.Str
UO.exec("usetype 0x1B76")
UO.exec("usetype 0x0EC2")
UO.canceltarget()
UO.waittargetself()
UO.cast('Summ. Crea')
fizllecheck=0
repeat
wait(500)
If fizllecheck>15 then
UO.waittargetself()
UO.cast('Summ. Crea')
fizllecheck=0
If UO.InJournal('lack sufficient') then
UO.DeleteJournal()
while UO.mana<UO.Int
UO.Warmode(0)
UO.UseSkill('Meditation')
repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose")
UO.DeleteJournal()
wait(1000)
wend
endif
endif
UO.findtype('0x00d5','0xffff','ground')
until uo.FindCount()==1
repeat
wait(1000)
UO.Attack('finditem')
UO.findtype('0x00d5','0xffff','ground')
if UO.Life<15 then
uo.usetype("0x0F0E")
Endif
until uo.FindCount()==0
wend
end sub