Yoko

sub Spool()
   VAR Spool='0x0FA0', Hlopok='0x0DF9', Cont='0x405D148A', Stanok='0x41691939',i

   While NOT UO.Dead()
      UO.FindType(Hlopok,-1,Cont)
      UO.Grab(STR(80),'finditem')
      For i=0 to 79
         CheckLag()
         UO.WaitTargetObject(Stanok)
         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 Cloth()
   VAR Spool='0x0FA0', Clotch='0x0DF9', Bolt='0x0F95'
   VAR Cont='0x405D148A', Stanok='0x4133B797',i
   
   While NOT UO.Dead()
      UO.UnSetCatchBag(Cont)
      UO.FindType(Spool,-1,Cont)
      UO.Grab(STR(10),'finditem')
      For i=0 to 9
         CheckLag()
         UO.WaitTargetObject(Stanok)
         UO.UseType(Spool)
      Next
      wait(1000)
      UO.SetCatchBag(Cont)
      UO.FindType(Bolt,-1,'my')
;      UO.Grab('all','finditem')
      UO.WaitTargetObject('finditem')
      UO.UseObject('0x40B421C8') ;scisors
      wait(2000)
      UO.UnSetCatchBag(Cont)
   Wend
end sub