sub BlackSmithing()
VAR LastTimer
while NOT UO.Dead()
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.say('.makelast')
wait(18000)
wend
if UO.InJournal('You have failed') then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
EndIf
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x400115BA')
wait(1000)
UO.Grab('100','finditem')
endif
wait(1000)
wend   
end sub

sub BlackSmithing() 
VAR LastTimer 
var ingots='0x1BEF'
var sunduk='0x400115BA'
var item=' type того что куешь '
while NOT UO.Dead() 
  UO.DeleteJournal() 
  LastTimer=UO.Timer() 
  UO.say('.makelast') 
  wait(18000) 
  wend 
  if UO.InJournal('You have failed') then 
    repeat 
      wait(100) 
    until UO.Timer()>=LastTimer+100 ;time to make a dagger 
  EndIf 
  UO.FindType(ingots,-1,'backpack') 
  If UO.GetQuantity('finditem')<10 then 
    UO.FindType(ingots,'0x0000',sunduk) 
    wait(1000) 
    UO.Grab('100','finditem') 
  endif 
  uo.FindType(item,'-1','backpack')
  if uo.FindCount() then
    while uo.FindCount()
      uo.FindType(item,'-1','backpack')
      uo.moveitem('finditem','1',sunduk)
      wait(500)
    wend
  end if
  wait(1000) 
wend    
end sub