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

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

  repeat
    if not cont=='ground' then 
      uo.useobject(cont) 
      wait(1000) 
      checklag() 
      if not uo.getserial('lastobject')==cont then 
        uo.print('нет доступа к контейнеру') 
        return 
      endif 
    endif

    UO.FindType(Hlopok,-1,Cont)
    found=UO.FindCount('finditem')
    If UO.FindCount('finditem')>0 then
      UO.MoveItem('finditem',Ammount,'backpack')
      wait(1000)
      while uo.count(hlopok)>0
        checkLag()
        UO.WaitTargetObject(Stanok)
        wait(100)
        UO.UseType(Hlopok)
        wait(3000)
      wend
      repeat
        UO.FindType(Spool,-1,'backpack')
        if uo.findcount('finditem')>0 then
          UO.moveitem('finditem',0,cont)
          wait(1000)
          checklag()
        endif
      until uo.findcount('finditem')==0
    else
      uo.print('Хлопок в сундуке закончился :(')
    endif
  until uo.dead() or found==0
endsub