Yoko

Code: Select all

;      |----------------------|
;      |Auto Alchemy Crafter  |	
;------|ver 2.00	           |------>
;      |crafted by Flake      |
;      |----------------------|

sub Alchemy_AutoCraft()

VAR Ammount, a, k
VAR Bottle = '0x0F0E'
 
Dim Reg[5] ; Реги на крафт
Reg[1] = 0x0F87  ; Глазки - тотал мана
Reg[2] = 0x0F78  ; Крылья - шринк
Reg[3] = 0x0F84  ; Гарлик - греат кюр
Reg[4] = 0x0F85  ; Гинсег - греат хил
Reg[5] = 0x0F7A  ;   БП   - тотал рефреш

Dim RFB[5]   ; Кол-во регов на 20 бутылок
RFB[1] = 120
RFB[2] = 80
RFB[3] = 120
RFB[4] = 140
RFB[5] = 100

Dim FBottle[5] ; Тип пполных бутылок
FBottle[1] = 0x0F09
FBottle[2] = 0x0F06
FBottle[3] = 0x0F07
FBottle[4] = 0x0F0C
FBottle[5] = 0x0F0B

Dim Path[5]  ; Выбор WaitMenu
Path[1] = "'What' 'total mana refresh'"
Path[2] = "'What' 'shrink'"
Path[3] = "'What' 'greater cure'"
Path[4] = "'What' 'greater heal'"
Path[5] = "'What' 'total refresh'"
  
  UO.Print( 'Укажите Крафт-Сундук!' ) 
  UO.Exec('addobject CraftBox') 
    While UO.Targeting() 
       Wait(100) 
    Wend

  For a = 1 To 5
    UO.FindType( Reg[a], -1, 'CraftBox' )
      If UO.FindCount() > 0 Then
         While UO.GetQuantity('finditem') > RFB[a]
	    UO.Grab( str(RFB[a]), 'finditem' )
	    CheckLag()
	    UO.FindType( Bottle, -1, 'CraftBox' )
	      If UO.GetQuantity( 'finditem' ) > 20 Then
    		UO.Grab( '20', 'finditem' )
		CheckLag()
                		       
              UO.FindType( Reg[a] )
    		While UO.GetQuantity( 'finditem' ) > (RFB[a] / 20)  
		  UO.DeleteJournal() 
		  UO.Exec( 'waitmenu '+Path[a] )
                  UO.UseType( Reg[a] )
                  k = 0 
	            While NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
	              Wait(500)
	              k = k + 1
	            Wend
                 Wend

	      Else 	      
		UO.Exec( 'terminate Alchemy_AutoCraft' )
	      EndIf
		
	    UO.FindType( Reg[a], -1, 'CraftBox' )
          Wend
 				;----- Сбросим полные бутылки и остатоки в сундук.
      		
       	  	   UO.FindType( FBottle[a] )
	 	     If UO.FindCount() > 0 Then
			UO.MoveItem( 'finditem', -1, 'CraftBox' )
			CheckLag()
           	     EndIf
	   	   UO.FindType( Reg[a] )
	    	    If UO.FindCount() > 0 Then
			UO.MoveItem( 'finditem', -1, 'CraftBox' )
			CheckLag()
             	    EndIf
	          UO.FindType( Bottle )
	     	    If UO.FindCount() > 0 Then
			UO.MoveItem( 'finditem', -1, 'CraftBox' )
			CheckLag()
             	    EndIf
	 	 EndIf
		
        EndIf
      EndIf
  Next
end sub