Yoko

sub Bowcraft()
REPEAT
 UO.DeleteJournal()
 UO.DeleteJournal()
 UO.Exec("waitmenu 'What do you want to carve the' 'bow'")
 UO.Exec("waittargettype '0x1BDD'")
 UO.Exec("usetype '0x0F51'")
 Repeat
 wait(100)
 Until (UO.InJournal("item")) || (UO.InJournal("pack"))
UNTIL (UO.Life<1) 
If UO.InJournal("many items") Then
Message("Too many items! The script is terminated.")
         Else
Message("You was DIE! The script is terminated.")
End If
UO.DeleteJournal()
end sub

sub Bowcraft()
var dagger='0x0F51'
var logs='0x1BDD'

 while not uo.Dead()
   uo.DeleteJournal()
   uo.WaitMenu('What do you want to carve the' ,'bow')
   uo.WaitTargetType(logs)
   uo.UseType(dagger)
   while not uo.InJournal('item') or uo.InJournal('pack') or uo.InJournal('you fail')
     wait(100)
   wend
 wend
end sub