###################################################
### Script Name: DearhellGreaterHealth
###################################################
### Author: Dearhell / dearhell666@hotmail.com
###################################################
### Version: 1.0
###################################################
### Tested with: 2.03 client, Sphere 0.55i, shard VTR ( www.coliseouo.tk )
###################################################
### Description: Script for making greater health potions in a keg
###################################################
### Revision Date: 14/02/05
###################################################
### Public Release: 14/02/05 
###################################################
#How it works: While you have enough Ginseng, the script make Greater Healths and add them in a Keg #in your backpack. 
#The only things you need are an empty bottle, an empty Keg or with Greater Health litres and the #Ginseng.  
#The script can be stoped saying "stop making potions"
###################################################
### Setup Instructions: None
###################################################
sub greaterHealth()
VAR Ginseng='0x0F85'
VAR Heal='0x0F0C'
VAR Keg='0x0E7F'
VAR stop=0

var k

UO.CancelMenu()
UO.AutoMenu('What','Greater Heal')
UO.DeleteJournal()

While UO.Count(Ginseng)>3 AND stop<>1
   UO.UseType(Ginseng)
   k=0
   UO.DeleteJournal()
   Repeat
      Wait(200)
   If UO.InJournal('stop making potions') then
      Stop=1
   EndIf
   Until UO.InJournal('You put') OR UO.InJournal('You toss') OR k>60
   UO.DeleteJournal()
   if UO.Count(Heal)>0 then
      UO.UseType(Keg)
      UO.WaitTargetType(Heal)
      k=0
      Repeat
         Wait(200)
         k=k+1
      Until UO.InJournal('You add') OR k>60
   EndIf
Wend
UO.CancelMenu()
end sub