Yoko

   sub smelt_ore() #Положит всю руду в сумку, из неё будет выкладывать по одному в БП и плавить.
   Var bag='0x60BDA7A9'
   Var Ore='0x19B9'
uo.findtype(ore,-1,bag)
   while uo.findcount()>0
      uo.moveitem('finditem',1) # выкладываем 1 штуку
      checklag()
      uo.usetype(ore)
      wait(400)
      uo.findtype(ore,-1,bag) #ищем новую
   wend
end sub

sub smelt_ore() 
   Var bag='0x60BDA7A9' 
   Var Ore='0x19B9' 
uo.findtype(ore,-1,bag) 
   while uo.findcount()>0 
      uo.moveitem('finditem',1) # выкладываем 1 штуку 
      checklag() 
      uo.useobject('^'+Ore) 
      wait(400) 
      uo.findtype(ore,-1,bag) #ищем новую 
   wend 
end sub

uo.moveitem('finditem','1','ground')

sub smelt_ore() 
   Var bag='0x60BDA7A9' 
   Var Ore='0x19B9' 
Repeat 
      uo.grab(1,bag+'.'+Ore) # выкладываем 1 штуку 
      checklag() 
      uo.useobject('^'+Ore) 
      wait(400) 
until not uo.FindCount()
end sub