Ultima Online Antares

#===================================================================
#    Кол-во для выполнения заказа (-1)
#------------------------------------
Var Count = 19
#------------------------------------

#===================================================================
# [NONE] Empty Bottle, Tinkering 21.3 : 3 iron ingots
#----------------------------------------------------
sub Empty_Bottle()
REPEAT
while not uo.Dead()
UO.DeleteJournal()
UO.WaitMenu('Tinkering','Miscellaneous','Miscellaneous','Empty Bottle')
UO.Usetype('0x1EBC')
REPEAT
CheckLag()
Until UO.InJournal('put') or UO.InJournal('failed') or UO.InJournal('fail') or UO.InJournal('ruined')
Until UO.Count('0x0F0E') > Count
Sound(2)
END SUB

Sub CheckLag()
DeleteJournal('Backpack')
UO.Click('backpack')
REPEAT
Wait(100)
Until UO.InJournal('Backpack')
RETURN
END SUB

Sub DeleteJournal(string1)
VAR nom = UO.InJournal(string1)
If nom > 0 Then
UO.SetJournalLine(Nom - 1, 'string replaced')
DeleteJournal(string1)
Endif
END SUB

SUB Sound(times)
Var i
For i=1 to times
Uo.PlayWav('D:\Games\UO\Injection\workout.wav')
Wait(2000)
Next
END SUB