Скрипт просит указать контейнер с регами и бутылками.
Затем он поочередно ищит реги 5 видов, и крафтит соответствующии поушены (тотал мана, тотал стама, гх, гк и шринки).
Писался под Цитадель.
Code: ; |----------------------|
; |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
|