Yoko

Начну с того что етот скрипт был слеплин с кусков и в дольнейшем при использование были выевлины
2 неполадки : 1. и самая важная при world have been.... проишодит краш , а вторая он не доберает black pears

sub main()
start:
While uo.count('0x0F88','0x0000')>0
UO.FindType('0x0F88',-1,'backpack')
While UO.GetQuantity('finditem')<20
UO.FindType('0x0F88','0x0000',0x401F318F)
wait(1000)
UO.Grab('100','finditem')
wait(700)
Wend

while uo.mana>9
cheklag()
wait(500)
uo.cast('Magic Arrow','laststatus')
wait(1500)
wend

st:

Repeat
uo.warmode(0)
uo.findtype('0x0E21','-1','my')
if uo.FindCount()>0 then
uo.waittargetobject('laststatus')
uo.useobject('finditem')
else
clean_bandage()
cl()
wait(2000)
end if
Wait(500)
Until uo.inJournal('Gopnik does') or uo.inJournal('hz') or uo.inJournal('was intzerrupted') or uo.gethp('laststatus')>24
uo.deletejournal()
Repeat
uo.deletejournal()
uo.useskill('Meditation')
Wait(3000)
Until UO.InJournal("You must wait to perform another action") or uo.mana >= uo.int
wait(500)
While uo.mana < uo.int
Wait(1500)
Wend
Wait(100)

Wend

if uo.gethp('laststatus')<25 then
goto st
end if
goto start
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

sub cl()
uo.click('backpack')
Repeat
wait(500)
Until uo.inJournal('backpack')
uo.deletejournal()
end sub

sub clean_bandage()
UO.FindType('0x0E20','-1','backpack')
if UO.FindCount() then
uo.waittargettype('0x1008')
uo.UseType('0x0E20')
endif
endif
end sub




Zaranija sps