Stealth Client Forum

Code: Select all

sub main() 
   VAR k = 0 
   While TRUE 
      UO.FindType(0x1BDD,-1,'ground')
      If UO.FindCount() == 0 Then 
         return 
      Endif 
      UO.Grab(Str(30),'finditem') 
      wait(900) 
      While (UO.Count(0x1BDD) > 10)
         UO.DeleteJournal() 
         UO.CancelMenu() 
	 UO.WaitMenu ('What do you want to carve the wood into?', 'shaft' ) 
         if UO.count('0x0F51')>0 then
	 UO.Usetype('0x0F51')
	 	UO.waittargettype(0x1BDD)
	 else
	 UO.Usetype('0x0F52')
	 	UO.waittargettype(0x1BDD)
	 end if
         k = 0 
         while NOT UO.InJournal('BowCraft c.e.p') AND NOT UO.InJournal('Ваша') AND ( k < 30 ) 
            k = k + 1 
            wait(500) 
         wend 
	if UO.Count(0x1BD4) > 30 then 
            UO.FindType(0x1BD4,-1,-1) 
            UO.MoveItem( 'finditem', 0, 'ground') 
            wait( 900 ) 
         end if 
      Wend 
   Wend 
end sub 

Code: Select all

UO.Usetype('0x0F51') 
UO.waittargettype(0x1BDD)