Yoko

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 

#######################
###    Explosion    ###
#######################
sub MakeExplosion()
Alchemy('0x0F8C', 5, "'Explosion'")
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

######################### 
###      Shrink       ### 
######################### 
sub MakeShrink() 
Alchemy('0x0F78', 1, "'Shrink'") 
end sub