var ingot='0x1BEF'
var item='0x1B73'
var timer=60000
var msg1 = 'You put the'
var msg2 = 'have failed'

sub BlackSmith()
uo.exec('ongump repeat')
    uo.usetype(ingot)
    wait(1000)
    uo.findtype(item)
    while uo.findcount()
      uo.drophere('finditem')
      check.lag()
      wait(1000)
      uo.findtype(item)
    wend
    timer = 0
    repeat
      wait(100)
      timer = timer + 100
     until uo.injournal(msg1) or uo.injournal(msg2) or timer > 15000
      wait(1000) 
      wend 
      end sub

Sub check.lag() 
 if uo.Waiting()>0 then 
  uo.Exec('canceltarget') 
   end if 
    uo.DeleteJournal() 
     uo.Click('backpack') 
      repeat 
       wait(50) 
        until uo.InJournal('backpack') 
         end sub