В таком варианте через каждые 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