Ultima Online Antares

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")
wait(300)
wend
wend
end sub

#==============================================================
# makeagil() - toss agility potion
#--------------------------------------------------------------
sub makeagil()
alchemy('0x0F7B', 1, "'Agility potion'")
end sub

sub makeGreatagil()
alchemy('0x0F7B', 3, "'Greater agility potion'")
end sub

#==============================================================
# makedp() - toss deadly poison potion
#--------------------------------------------------------------
sub makedp()
alchemy('0x0F88', 14, '(4)')
end sub

#==============================================================
# makeLetal() - toss deadly poison potion
#--------------------------------------------------------------
#sub makeLetal()
#alchemy('0x0F88', greater)
#end sub

#==============================================================
# makegp() - toss greater poison potion
#--------------------------------------------------------------
sub makegp()
alchemy('0x0F88', 4, "'Greater poison potion'")
end sub


#==============================================================
# makeinvis() - toss invisibility potion
#--------------------------------------------------------------
sub makeinvis()
alchemy('0x0F91', 4, "'Invisibility'")
end sub


#==============================================================
# maketm() - toss total mana potion
#--------------------------------------------------------------
sub maketm()
alchemy('0x0F87', 6, "'(2)'")
end sub

sub makemr()
alchemy('0x0F87', 3, "'Mana Refresh'")
end sub

#==============================================================
# makegh() - toss total mana potion
#--------------------------------------------------------------
sub makegh()
alchemy('0x0F85', 7, "'(2)'")
end sub


#==============================================================
# makegc() - toss Greater Cure potion
#--------------------------------------------------------------
sub makegc()
alchemy('0x0F84', 6, "'(2)'")
end sub


#==============================================================
# makess() - toss stoneskin potion
#--------------------------------------------------------------
sub makess()
alchemy('0x0F85', 1, "'Stoneskin'")
end sub


#==============================================================
# makens() - toss Night Sight potion
#--------------------------------------------------------------
sub makens()
alchemy('0x0F8D', 2, "'Nightsight'")
end sub


#==============================================================
# makeh() - toss Heal potion
#--------------------------------------------------------------
sub makeh()
alchemy('0x0F85', 5, "'(2)'")
end sub


#==============================================================
# maketr() - toss refresh potion
#--------------------------------------------------------------
sub makereferh()
alchemy('0x0F7A', 1, "'Refresh potion'")
end sub

sub makeTotalreferh()
alchemy('0x0F7A', 5, "'Total refresh potion'")
end sub

#==============================================================
# makegs() - toss total refresh potion
#--------------------------------------------------------------
sub makegs()
alchemy('0x0F86', 5, "'Greater Strength'")
end sub


#==============================================================
# makege() - toss total mana potion
#--------------------------------------------------------------
sub makege()
alchemy('0x0F8C', 10, "'Greater explosion'")
end sub

#==============================================================
# makeshrink() - toss shrink potion
#--------------------------------------------------------------
sub makeshrink()
alchemy('0x0F78', 2, "'Shrink'")
end sub

#==============================================================
# makels() - toss lesser silence potion
#--------------------------------------------------------------
sub makels()
alchemy('0x0F7E', 10, "'Lesser Silence'")
end sub