sub smelt()
    var id_container = '0x4003CBDB', t_bag = '0x0E76', t_dagger = '0x0F51', id_forge = '0x404FF28B', t_ingots = '0x1BEF', id_bag
    uo.useobject(id_container)
    while true
        uo.findtype(t_bag, -1, id_container)
        if uo.findcount() then
            id_bag = uo.getserial('finditem')
            uo.useobject(id_bag)
            wait(700)
            uo.findtype(t_dagger, -1, id_bag)
             wait(700)
            if uo.findcount() then
                checklag()
                uo.moveitem(id_bag, -1, 'backpack')
                wait(1500)
                repeat
                    uo.findtype(t_dagger, -1, id_bag)
                    if uo.findcount() then
                        uo.moveitem('finditem', -1, 'backpack')
                        uo.waittargetobject('finditem')
                        uo.useobject(id_forge)
                        wait(700)
                    endif
                until not uo.findcount()
                checklag()
                uo.moveitem(id_bag, -1, id_container)
                wait(1500)
                uo.ignore(id_bag)
                uo.findtype(t_ingots, -1, 'backpack')
                if uo.findcount() then
                    uo.moveitem('finditem', -1, id_container)
                    wait(2000)
                endif
            else
                uo.ignore(id_bag)
            endif
        else
            return
        endif
    wend
endsub

sub checklag() 
   uo.DeleteJournal() 
   uo.Click('backpack') 
   repeat 
      wait(50) 
   until uo.InJournal('backpack') or uo.InJournal('Backpack') 
end sub

Sub deljournal(msg)
    while uo.injournal(msg)
        uo.setjournalline(uo.injournal(msg) - 1, '')
    wend
endsub