Yoko

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 

 #============================================================== 
# Alchemy(reagent, min_reg, choice) - main alchemi script 
# 
# reagent - type of reagent 
# min_reg - min count reagets to make potion 
# choice - menu choice after using reagents 
# 
# Journal has been deleted!!! 
#-------------------------------------------------------------- 
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(300) 
wend 
wend 
end sub 

#============================================================== 
# makega() - toss greater agility potion 
#-------------------------------------------------------------- 
sub makega() 
alchemy('0x0F7B', 3, "'Greater Agility'") 
end sub 


#============================================================== 
# makedp() - toss deadly poison potion 
#-------------------------------------------------------------- 
sub makedp() 
alchemy('0x0F88', 8, "'Deadly Poison'") 
end sub 


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


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


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


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


#============================================================== 
# makegc() - toss Greater Cure potion 
#-------------------------------------------------------------- 
sub makegc() 
alchemy('0x0F84', 6, "'Greater Cure'") 
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 total refresh potion 
#-------------------------------------------------------------- 
sub maketr() 
alchemy('0x0F7A', 6, "'Total Refresh'") 
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