Yoko

Posted: **2018-03-11 22:37:37**

I would like to smelt all the ores in my backpack, but since I am using a more recent version of injection none of the scripts I can find on the forums seems to work. I have track world items enabled, so thats not the problem.

I tried this script:

Code: Select all

sub smeltm() 
   VAR Forge='0x40004D06' 
   VAR WaitTime=1000 
   VAR Exit=0 
    
   While Exit<>1 
      UO.FindType('0x19B9',-1,'backpack') 
      If UO.FindCount() Then 
         UO.Print("Good!") 
         UO.UseObject('finditem') 
         wait(WaitTime) 
      Else 
         UO.Print("Bad!") 
         Exit=1 
      Endif 
   Wend 
end sub

and I tried this one which I made myself (it worked with older injection versions but something I need didn't)

Code: Select all

sub smelt() 
   
   var ore1 = '0x19B7' 
   var ore2 = '0x19BA' 
   var ore3 = '0x19B8' 
   var ore4 = '0x19B9'   
   
   UO.FindType(ore1)
   while UO.FindCount()
      UO.FindType(ore1,-1,-1) 
      UO.UseItem('finditem','-1','backpack')
      wait(500)
      UO.FindType(ore1)
   wend   
   UO.FindType(ore2)
   while UO.FindCount()
      UO.FindType(ore2,-1,-1) 
      UO.UseItem('finditem','-1','backpack')
      wait(500)
      UO.FindType(ore2)
   wend
   UO.FindType(ore3)
   while UO.FindCount()
      UO.FindType(ore3,-1,-1) 
      UO.UseItem('finditem','-1','backpack')
      wait(500)
      UO.FindType(ore3)
   wend
   UO.FindType(ore4)
   while UO.FindCount()
      UO.FindType(ore4,-1,-1) 
      UO.UseItem('finditem','-1','backpack')
      wait(500)
      UO.FindType(ore4)
   wend
   
end sub

If someone could help me with that that would be great, all I need is a function that smelts all the ore in my backpack

Yoko

Help me fix this smelting script please

Help me fix this smelting script please