sub Alchemy(Reagent,MinimumReags,Choice)
while uo.Count('0x0F0E','0x0000')>0 and uo.Count(Reagent)>=MinimumReags
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(300)
wend
wend
end sub

#######################
### Greater Agility ###
#######################
sub MakeGreaterAgility()
Alchemy('0x0F7B', 3, "'Greater Agility'")
end sub

#####################
### Deadly Poison ###
#####################
sub MakeDeadlyPoison()
Alchemy('0x0F88', 8, "'Deadly Poison'")
end sub

######################
### Greater Poison ###
######################
sub MakeGreaterPoison()
Alchemy('0x0F88', 4, "'Greater Poison'")
end sub

####################
### Invisibility ###
####################
sub MakeInvisibility()
Alchemy('0x0F91', 4, "'Invisibility'")
end sub

##################
### Total Mana ###
##################
sub MakeTotalMana()
Alchemy('0x0F87', 6, "'Total Mana'")
end sub

####################
### Greater Heal ###
####################
sub MakeGreaterHeal()
Alchemy('0x0F85', 7, "'Greater Heal'")
end sub

####################
### Greater Cure ###
####################
sub MakeGreaterCure()
Alchemy('0x0F84', 6, "'Greater Cure'")
end sub

#################
### Stoneskin ###
#################
sub MakeStoneskin()
Alchemy('0x0F85', 1, "'Stoneskin'")
end sub

##################
### NightSight ###
##################
sub MakeNightsight()
Alchemy('0x0F8D', 2, "'Nightsight'")
end sub

############
### Heal ###
############
sub MakeHeal()
Alchemy('0x0F85', 5, "'(2)'")
end sub

#####################
### Total Refresh ###
#####################
sub MakeTotalRefresh()
Alchemy('0x0F7A', 6, "'Total Refresh'")
end sub

########################
### Greater Strength ###
########################
sub MakeGreaterStrength()
Alchemy('0x0F86', 5, "'Greater Strength'")
end sub

#########################
### Greater Explosion ###
#########################
sub MakeGreaterExplosion()
Alchemy('0x0F8C', 10, "'Greater Explosion'")
end sub