Ultima Online Antares

sub makeTotalReferh()
  Alchemy('0x0F85', 4, "'Heal Potion'")
end sub

Sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
  UO.DeleteJournal()
  UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
  UO.UseType(reagent)
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
  
  wend
wend
end sub

sub Alch_HealPotion()
    var mop  = '0x0E9B'; mortar
    var regi = '0x0F85'; GS
    var printcolour = '1069'
    var i=0
    var kolvo=100
repeat
UO.WaitMenu('What sort of potion do you want to','Heal Potion (4')
wait(500)
UO.WaittargetType(regi)
uo.usetype(mop)
UO.DeleteJournal()
repeat
wait(500)
until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('target')
if UO.InJournal('You put') then
i=i+1
endif
until uo.count(regi) < 4 or i==kolvo
uo.charprint(printcolour, '**** ************** ****' )
uo.charprint(printcolour, '**** Заказ выполнен  ****' )
uo.charprint(printcolour, '**** ************** ****' )
end sub

sub Alch_HealPotion()
    var regi = '0x0F85'; GS
    var i=0
    var kolvo=100
    var typeB = '0x0E24'; тип бутылки
    var colB = '0x0445'; цвет бутылки
    VAR printcolour = '1069'
    while uo.count(regi) > 4 && UO.Count(typeB, colB)<kolvo
        UO.WaitMenu('What sort of potion do you want to','Heal Potion (4')
        uo.usetype(regi)
        UO.DeleteJournal()
        repeat
            wait(300)
        until UO.InJournal('You put|fail|target')
    wend
    uo.charprint(printcolour, '**** ************** ****' )
    uo.charprint(printcolour, '|||| Заказ выполнен  ||||' )
    uo.charprint(printcolour, '**** ************** ****' )
end sub

        until UO.InJournal('You put|fail|target')
        uo.charprint(printcolour, 'Сварил ' +str(UO.Count(typeB, colB)) +' банку' )
    wend