Code: Select all
###################################################
### 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