Yoko

Юзал поиск норм скритов ненашел вот этот :

sub Nitki() 
   VAR Spool='0x0FA0', Hlopok='0x0DF9', Cont='0x416F3EB9', Stanok='0x405274BC',i, Ammount=10 

   While NOT UO.Dead() 
   UO.FindType(Hlopok,-1,Cont) 
   If UO.FindCount() then 
   UO.MoveItem('finditem',STR(Ammount),'backpack') 
   Endif
      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

Тока берет хлопок 1 раз переделывает нитки в сундук , а еще хлопка не берет , и пишет No Item Found

Вот попробуй

sub Nitki() 
 Var Spool = '0x0FA0'
 Var Hlopok = '0x0DF9'
 Var Cont = '0x416F3EB9'
 Var Stanok = '0x405274BC'
 Var i
 Var Ammount = 10
  While not UO.Dead()
    UO.FindType(Hlopok, '-1', Cont)
    If UO.FindCount() then
      UO.MoveItem('finditem', STR(Ammount), 'backpack')
    EndIf
    Wait(1000)
    For i = 1 to Ammount
      CheckLag()
      UO.WaitTargetObject(Stanok)
      Wait(100)
      UO.UseType(Hlopok)
      Wait(3000)
    Next
    UO.FindType(Spool, -1, 'backpack')
    If UO.Count then
      UO.MoveItem('finditem', '-1', Cont)
    EndIf
  Wend
EndSub 

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