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 ##################### ### Deadly Poison ### ##################### sub MakeDeadlyPoison() Alchemy('0x0F88', 8, "'Deadly Poison'") end sub ###################### ### Poison ### ###################### sub MakePoison() Alchemy('0x0F0E', 2, "'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 ##################### ### Total Refresh ### ##################### sub MakeTotalRefresh() Alchemy('0x0F7A', 6, "'Total Refresh'") end sub
|