Yoko

sub main()
var incont='0x45624AB1'
dim maxi[2]
   maxi[0]=30
   maxi[1]=300
   
dim items[5]
   items[0]='0x0DF9' #cotton
   items[1]='0x0FA0' #spool of threads
   items[2]='0x0F95' #bolts of cloth
   items[3]='0x40FFFA11' #прялка
*******   items[4]='0x4A772217" # " is wrong there must by '

while not uo.dead()g
   if uo.count (items[0]) < maxi[0] then
      pick(items[0],uo.count(items[0])-maxi[0],incont)
   end if 
   while uo.count (items[0]) > 0
      uo.exec ("waittargetobject " + items[3])
      uo.exec("usetype " + items[0])
      wait(1000)
   wend
   wait(2000)
   while uo.count (items[1]) > 0
      uo.exec ("waittargetobject " + items[4])
      uo.exec ("usetype "  + items[1])
      wait (500)
   wend
   wait (2000)
   while uo.count (items[2]) > 0
      uo.findtype( items[2], -1, incont)
      uo.moveitem ('finditem' , -1, incont)
      wait (2000)
   wend
wend
end sub

sub pick(obj, amount, cont)
   uo.findtype (obj, -1, cont)
   uo.grab (STR(amount),'finditem')   
end sub