sub bowcraft() 
 VAR Exit=0
 var i = 0 
 var spirit = 0
 var j = 0
    repeat 
       uo.print('====Start Cycle')
       spirit = spirit + 1
       if spirit >30 then
          uo.print('====Spirit Speak')
          spirit = 0
          uo.useskill('Spirit Speak')
          wait(5000)
       endif
       UO.DeleteJournal() 
       UO.FindType('0x1BDD','0x0000','0x40194128')
       if UO.GetQuantity('finditem')>1 then 
          uo.print('====First Move')
        uo.moveitem('finditem','2','backpack')
          j = 0
          while uo.count('0x1BDD')==0 AND j <20
            wait(500)
            j = j + 1
          wend
          UO.FindType('0x1BDD','-1','0x40165C2C')
          uo.print('====Second Move')
          uo.print(str(uo.findcount('')))
          uo.print(str(uo.count('0x1BDD')))
          uo.moveitem('finditem',str(uo.count('0x1BDD')-1),'0x40194128')
          j = 0
          while uo.count('0x1BDD')>1 AND j <20
            wait(500)
            j = j + 1
          wend   
          Uo.Print('====Making Shaft')
          UO.WaitMenu('What','shaft') 
          UO.WaitTargetObject('finditem') 
          UO.UseType('0x0F51') 
         i=0
          while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND i <20
             wait(500) 
        i= i + 1   
          wend 
          uo.print('====Third Move')
          UO.FindType('0x1BD4','0x0000','my') 
          if UO.GetQuantity('finditem')>0 then 
             uo.moveitem('finditem','400','0x40194128')
             wait(500)
          Endif 
       Else 
          Exit=1 
       endif 
    until Exit==1 
 end sub