Переработка Хлопка.. нид Хелп

[$keR]

Уважаемые скриптеры, прошу у Вас помощи, вот этот скрипт работает, но всего минут 5, на нем застревает хлопок на пальц(на курсоре) и пишет : аитим но фаунд..
помогите пожалуйсто

Code: Select all

 sub Nitki() 
   VAR Spool='0x0FA0', Hlopok='0x0DF9', Cont='0x411C76BD', Stanok='0x413D0329',i, Ammount=30 

   While NOT UO.Dead() 
      UO.FindType(Hlopok,-1,Cont) 
      UO.Grab(STR(Ammount),'finditem')
      wait(1000)
      For i=1 to Ammount 
         checkLag() 
   UO.WaitTargetObject(Stanok) 
    wait(100) 
         UO.UseType(Hlopok) 
         wait(3000) 
               
      Next 
      UO.SetReceivingContainer(Cont) 
      UO.FindType(Spool,-1,'backpack') 
      UO.Grab('all','finditem') 
     # UO.UnSetReceivingContainer(Cont) 
   Wend 

end sub

sub checklag() 
IF UO.Waiting() > 0 THEN 
UO.Exec("canceltarget") 
END IF 
UO.DeleteJournal() 
UO.Click('backpack') 
REPEAT 
WAIT(50) 
UNTIL UO.InJournal('backpack') 
end sub
 

[$keR]

ну что никто помоч не может? если нет то клоуз

[Nmy]

Code: Select all

    UO.FindType(Hlopok,-1,Cont)
      UO.Grab(STR(Ammount),'finditem') 

можно поменять на

Code: Select all

UO.FindType(Hlopok,-1,Cont)
If UO.FindCount() then
UO.MoveItem('finditem',STR(Ammount),'backpack') 
Endif

посмотреть что будет

[$keR]

спасибо! работает!