В таком варианте через каждые 10-15 мин парсе ерор (
Code:
sub Prodaga()
var poly = false;
var booka='0x404b13de'
var cont1='0x404EA22C'
var mesh='0x0E76'
var fl=0
var m
var oldX=UO.GetX()
var oldY=UO.GetY()
while fl==0
poly = false
repeat
while uo.mana<50
uo.useskill('Meditation')
wait(8000)
wend
uo.Print('>Trying to polymorph...')
uo.Exec("waitmenu 'What do you' 'Daemon'")
uo.deletejournal()
uo.Cast('Polymorph')
wait(4000)
if not uo.injournal('The spell fizzles.') then
poly = true
endif
until poly
repeat
for m=1 to 5
uo.useskill('Meditation')
wait(111)
uo.useobject(safe)
wait(900)
uo.useobject(cont1)
wait(800)
CheckLag()
uo.findtype('0x0eed',-1,safe)
wait(300)
uo.moveitem('finditem','100','backpack')
wait(1500)
uo.findtype(mesh,-1,cont1)
if uo.findcount() then
uo.moveitem('finditem','1','backpack')
CheckLag()
else
fl=1
endif
uo.findtype(mesh,-1,cont1)
if uo.findcount() then
uo.moveitem('finditem','1','backpack')
CheckLag()
wait(1500)
else
fl=1
endif
uo.findtype(mesh,-1,cont1)
if uo.findcount() then
uo.moveitem('finditem','1','backpack')
CheckLag()
else
fl=1
endif
cast1:
uo.deletejournal()
while uo.mana<20
uo.useskill('Meditation')
wait(1000)
wend
uo.cast('Recall','Rune')
wait(5000)
if uo.injournal('spell fizzles.') then
goto cast1
endif
uo.useskill('Meditation')
wait(111)
CheckLag()
uo.useobject('0x400b4c3f')
wait(2000)
CheckLag()
uo.lclick(406,314)
wait(3000)
GotoXY(2950,3345)
wait(500)
GotoXY(2952,3345)
wait(800)
sell()
uo.useskill('Meditation')
wait(111)
GotoXY(2950,3345)
wait(800)
CheckLag()
uo.useobject('0x403762b5')
wait(2000)
CheckLag()
uo.lclick(77,126)
wait(6000)
cast2:
uo.deletejournal()
while uo.mana<20
uo.useskill('Meditation')
wait(1000)
wend
uo.cast('Recall','runehome')
wait(5000)
if uo.injournal('spell fizzles.') then
goto cast2
endif
# GotoXY(1773,623)
# wait(800)
unload()
next
wend
endsub