Yoko

sub BlackSmith() 
UO.AutoMenu('Blacksmithing','Weapons'); 
UO.AutoMenu('Weapons','Swords'); 
UO.AutoMenu('Swords','dagger'); 
UO.UseType(0x1bf2); 
wend 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(100) 
wend 

If UO.InJournal("You put") then 
repeat 
EndIf 

end sub

sub BlackSmith() 
uo.cancelmenu()
UO.AutoMenu('Blacksmithing','Weapons')
UO.AutoMenu('Weapons','Swords')
UO.AutoMenu('Swords','dagger')
While not uo.dead()
UO.UseType('0x1bf2')

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(100) 
wend 
wend
end sub

,cancelmenu

sub BlackSmith() 
uo.cancelmenu() 
UO.AutoMenu('Blacksmithing','Weapons') 
UO.AutoMenu('Weapons','Swords') 
UO.AutoMenu('Swords','dagger') 
While not uo.dead() 
UO.DeleteJornal() ## You need this!!!
UO.UseType('0x1bf2') 
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(100) 
wend 
wend 
end sub