sub bs()
   VAR Exit=0, LastTimer, Forge='0x400D22C9', Cont='0x400F7BC7'
   while Exit<>1
      ToHide()
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.WaitMenu('Blacksmithing','Weapons','Weapons','Fences','Spears','dagger')
      UO.UseType(0x1BEF) ; iron ings

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

      If UO.InJournal("You have failed") then
         repeat
            wait(100)
         until UO.Timer()>=LastTimer+100 ;time to make a dagger
      EndIf

      UO.FindType('0x0F51',-1,'backpack')
      wait(500)

      If UO.GetQuantity('finditem') then
         UO.WaitTargetObject('finditem')
         UO.UseObject(Forge) ;forge
      Endif

      UO.FindType('0x1BEF',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x1BEF','0x0000',Cont)
         wait(1000)
         UO.Grab('200','finditem')
      Endif
      wait(1000)
   wend   
   gong(2)
end sub