Yoko

sub SMELTING() 
  while uo.skillval('Mining') < 1300 
         UO.Findtype('0x19B9', '-1','backpack')      
         If UO.Findcount() == 0 Then 
            UO.Findtype('0x19B8', '-1','backpack') 
            If UO.Findcount() == 0 Then 
               UO.Findtype('0x19B7', '-1','backpack') 
               If UO.Findcount() == 0 Then 
                  UO.Findtype('0x19B7', '-1','backpack') 
                  If UO.Findcount() == 0 Then 
                    return 
              Endif 
               Endif 
            Endif 
         Endif 
      UO.moveitem('finditem','1','backpack',44,121,0 ) 
      Wait(100)
      UO.UseType('0x19BA')          
      Wait(100) 
  wend 
end sub

sub SMELTING()
  while uo.skillval('Mining') < 1300
         UO.Findtype('0x19B9', '-1','backpack')     
         If UO.Findcount() == 0 Then
            UO.Findtype('0x19B8', '-1','backpack')
            If UO.Findcount() == 0 Then
               UO.Findtype('0x19B7', '-1','backpack')
               If UO.Findcount() == 0 Then
                  UO.Findtype('0x19BA', '-1','backpack')
                  If UO.Findcount() == 0 Then
                    return
              Endif
               Endif
            Endif
         Endif
      UO.moveitem('finditem','2','backpack',44,121,0 )
      Wait(100)
      UO.UseObject('finditem')         
      Wait(100)
  wend
end sub

#########################################################################
#          Quick Mass Smelting Ore by Two ores ... for Antares          #
# 1) В рюкзаке обязательно присутствие НЕ полного мешка                #
# 2) В рюкзаке не желательно присутствие  чего-либо кроме мешка и руды  #
#########  ####  ####  ####  wrote by Recluse  ####  ####  ####  ########
# 1)После запуска скрипта укажите появившимся тагетом на ФОРЖУ          #
# 2)После чего руда если она в Бэкапэ переместится в мешок              #
#(мешок - произвольный если их несколько...надеюсь он не выберет полный)#
# 3)Затем инжект выложит красивыми кучками руду обратно в Бэкап :)      #  
# 4)И начнёт её плавить...                                              #
# 5)Соберёт несгоревшую руду обратно в мешок                            #
# 6)И будет повторять 3-5 пока почти не кончится руда                  #
# 7)В бэкпаке останется чуть-чуть руды - плавьте ручками                #
#########################################################################
sub MassSmeltingOreBy2()
var bag , i , j , forge
uo.findtype(0x0E76,-1,'backpack')
if uo.findcount() > 0 then
bag = uo.GetSerial('finditem')
uo.print('Show me FORGE.')
UO.exec('addobject forge')
while UO.targeting() 
  wait(200) 
wend
uo.moveitem(bag,-1,'backpack','147','147','0')
uo.useobject(bag)
wait(200)
uo.findtype('0x19B9',-1,'backpack')
uo.moveitem('finditem',-1,bag)
wait(300)
while (uo.count('0x19B9') > 0)
  i = 12
  j = 12
  while (uo.count('0x19B9') > 0) and (uo.count('0x19BA') < 425) and (i < 145) and (j<145)
  uo.findtype('0x19B9',-1,bag)
  uo.moveitem('finditem','2','backpack',str(i),str(j),'0')
  wait(200)
  if i==140 then
    i = 4
    j = j + 8
  else
    i = i + 8
  end if  
  wend
  while uo.count('0x19BA') > 0
  uo.useobject('forge')
  uo.waittargettype('0x19BA')
  wait(300)
  wend
  while uo.count('0x19B7') > 0
  uo.findtype('0x19B7',-1,'backpack')
  uo.moveitem('finditem',-1,bag)
  wait(200)
  wend
wend
uo.findtype('0x19B7',-1,bag)
if uo.findcount() then
  uo.Grab(-1,'finditem')
end if
uo.findtype('0x19BA',-1,bag)
if uo.findcount() then
  uo.Grab(-1,'finditem')
end if
uo.findtype('0x19B8',-1,bag)
if uo.findcount() then
  uo.Grab(-1,'finditem')
end if
end if
end sub
########################################################################