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('0x19BA', '-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)
      CheckLag()
      UO.UseType('0x19B7')         
      Wait(100)
  wend
end sub