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 toss the failed")
wait(400)
wend
wend
end sub

sub dp()
alchemy('0x0F88', 8, "'Deadly Poison'")
end sub

sub invis()
alchemy('0x0F91', 4, "'Invisibility'")
end sub

sub tm()
alchemy('0x0F87', 6, "'Total Mana'")
end sub

sub gh()
alchemy('0x0F85', 7, "'Greater Heal'")
end sub

sub gc()
alchemy('0x0F84', 6, "'Greater Cure'")
end sub

sub ss()
alchemy('0x0F85', 1, "'Stoneskin'")
end sub

sub tr()
alchemy('0x0F7A', 6, "'Total Refresh'")
end sub

sub ge()
alchemy('0x0F8C', 10, "'Greater Explosion'")
end sub

sub sh()
alchemy('0x0F78', 10, "'Shrink'")
end sub

sub ag()
alchemy('0x0F7B', 1, "'Agility'")
end sub

sub ga()
alchemy('0x0F7B', 3, "'Greater Agility'")
end sub

sub gp()
alchemy('0x0F88', 4, "'Greater Poison'")
end sub

sub m()
alchemy('0x0F87',1, "'Mana'")
end sub