sub Alchemy_Lava_Bomb() 
   alchemy('0x0F8F', 6, "'Lava Bomb'") 
end sub 

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