Разумеется, это только на Антересе додумались плавить по 5.

# прописываешь свой ID контейнера рядом с плавилкой
sub main() 
VAR Container = '0x40FB5FFF' ;ID контейнера 
VAR Ore='0x19B9' ;тип руды 
VAR Ing='0x1BEF' ;тип ингов 
VAR k=0 

UO.useobject(Container)
repeat    
     UO.FindType( Ruda, -1, Container) 
     UO.Grab(str(5),'finditem')
     wait(500)
     if uo.count(Ore) >= 5 then
        UO.UseType(Ore)
        wait(500)
        UO.FindType( Ing, -1, -1 )
        UO.MoveItem( 'finditem' , 0, Container )
     else
         k=k+1
         if k > 5 then
            uo.exec('terminate all')
         endif
     endif
     wait(1000)
until uo.dead()
end sub

;-------------------------------------------------------------------------------
; Задержки
Var LoopTime = 100
Var LootTime = 600
Var UseTime  = 500
;-------------------------------------------------------------------------------
; Типы кучек руды
Var TOreType4 = '0x19B9'; 4 или более
Var TOreType3 = '0x19B8'; 3
Var TOreType2 = '0x19BA'; 2
Var TOreType1 = '0x19B7'; 1

;-------------------------------------------------------------------------------
sub main()
  SmOre5('0x0000')
end sub

;-------------------------------------------------------------------------------
SUB SmOre5(Color)
  Repeat
    UO.IgnoreReset()
    UO.FindType(TOreType4,Color,'backpack')
    If UO.FindCount()==0 Then
      Return
    Else
      If UO.GetQuantity('finditem')<5 Then
        Return
      Else
        UO.MoveItem('finditem','5','backpack','20','20','0')
        CheckLag()
        FindAndSmeltOre5(Color)
      EndIf
    EndIf
  Until False
END SUB

;-------------------------------------------------------------------------------
SUB FindAndSmeltOre5(Color)
  UO.IgnoreReset()
  Repeat
    UO.FindType(TOreType4,Color,'backpack')
    If UO.FindCount()==0 Then
      Return
    Else
      If UO.GetQuantity('finditem')==5 Then
        UO.UseObject('finditem')
        Wait(UseTime)
      Else
        UO.Ignore('finditem')
      EndIf
    EndIf
  Until False
END SUB

;-------------------------------------------------------------------------------
SUB CheckLag() ; 412.18
; Проверка на лаги  
  DeleteJournal("ackpack") 
  UO.Click('backpack') 
  Repeat 
    Wait(LoopTime) 
  Until UO.InJournal("ackpack") 
END SUB

;-------------------------------------------------------------------------------
SUB DeleteJournal(MsgText) ; 411.21
; Очистка в журнале всех сообщений, содержащих MsgText
  Var MsgNumb
  Repeat 
    MsgNumb=UO.InJournal(MsgText)
    If MsgNumb<>0 Then
      UO.SetJournalLine(MsgNumb-1, '')
    EndIf
  Until Not UO.InJournal(MsgText)
END SUB