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  

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