initEvents
	set %eat #scnt
	set %GUMP QMZB
	; normal - 120
	; rat - 144
	; bear - 170
	; wolf - 195	
	set %leathertype 120

;****************************************************************************
gosub item
gosub movetokeg
;halt
gosub open_alchemy
loop:
	if #contkind = %GUMP
		{
		chooseSkill alchemy
		SetUOTitle A: #skill
		set %oldskill #skill
		wait 10
		gosub item
			if #contposx <> 0 && #contposy <> 0
				contpos 0 0
		click %x2 %y2
		set %x %x + 1 
		wait 3s
		gosub waitforgump
		chooseSkill alchemy
		set %newskill #skill
		set %testchange %newskill - %oldskill
		if (%iskill = %newskill && %testchange = 1)
				gosub closecraftgump
		if %x > 25
			{
			gosub movetokeg
			set %x 0
			}
		if #scnt > %eat
		{
			gosub closecraftgump
			gosub eat ; whatever your eat sub is
			set %eat #scnt + 1800
		}
	if #contkind <> %GUMP
		{
		gosub open_alchemy
		}
goto loop
;****************************************************************************

sub movetokeg

gosub closecraftgump
	set %KEG QMJ
ignoreItem reset
pottokeg:
finditem %KEG C
	if #findkind = -1 
		{
		msg /EI LEIA KEGI$
		HALT
		}
	set %KEGX #FINDX + 10
	set %KEGY #FINDY + 20
	set %KEG #FINDID
finditem %itemt C
	if #findkind <> -1 
		{
			event Drag #findid
			wait 20
			click %KEGX %KEGY
			wait 1s
			scanjournal 1
			if KEG_IS_ALREADY_FULL in #journal
				{
				deleteJournal
				ignoreItem %KEG
				finditem QMJ C
				if #findkind = -1
					HALT
				set %KEG #FINDID
				}
			goto pottokeg:
		}
return

sub closecraftgump
	if #contkind = %GUMP
		{
		if #contposx <> 0 && #contposy <> 0
			contpos 0 0
		click 122 480
		}
return

sub item
	chooseSkill alchemy
	set %sk #skill

	if #skill < 350
		{
		; Cure (Garlic)
		set %x1 123
		set %y1 271
		set %x2 271
		set %y2 146
		set %itemt NUF
		set %iskill 350
		return
		}
	if #skill < 400
		{
		;   Greater Nighsight (Spiders Silk)
		set %x1 123
		set %y1 123
		set %x2 271
		set %y2 171
		set %itemt OUF
		set %iskill 400
		return
		}
	if #skill < 450
		{
		; Poison (Nightshade)
		set %x1 123
		set %y1 171
		set %x2 271
		set %y2 147
		set %itemt AVF
		set %iskill 450
		return
		}
	if #skill < 500
		{
		; Greater Refresh (Black Pearl)
		set %x1 123
		set %y1 171
		set %x2 271
		set %y2 147
		set %itemt AVF
		set %iskill 500
		return
		}
	if #skill < 550
		{
		; Greater Heal (Ginseng)
		set %x1 123
		set %y1 195
		set %x2 271
		set %y2 172
		set %itemt UUF
		set %iskill 550
		return
		}
	if #skill < 600
		{
		; Greater Strenght (Mandrake Root)
		set %x1 123
		set %y1 295
		set %x2 271
		set %y2 172
		set %itemt XUF
		set %iskill 600
		return
		}
	if #skill < 650
		{
		; Greater Agility (Blood Moss)
		set %x1 123
		set %y1 222
		set %x2 271
		set %y2 172
		set %itemt YUF
		set %iskill 650
		return
		}
	if #skill < 700
		{
		; Greater Poison (Nightshade)
		set %x1 123
		set %y1 170
		set %x2 271
		set %y2 172
		set %itemt AVF
		set %iskill 700
		return
		}
	if #skill < 750
		{
		; Greater Cure (Garlic)
		set %x1 123
		set %y1 271
		set %x2 271
		set %y2 172
		set %itemt NUF
		set %iskill 750
		return
		}
	if #skill < 800
		{
		; 75-80% - Greater Explosion (Sulphurous Ash)
		set %x1 123
		set %y1 244
		set %x2 271
		set %y2 172
		set %itemt TUF
		set %iskill 800
		return
		}
	if #skill < 850
		{
		; 80-85% - Blast Explosion (Sulphurous Ash) 
		set %x1 123
		set %y1 244
		set %x2 271
		set %y2 198
		set %itemt TUF
		set %iskill 850
		return
		}
	if #skill < 900
		{
		; 85-90% - Lesser Invisibility (Spiders Silk)
		set %x1 123
		set %y1 120
		set %x2 271
		set %y2 195
		set %itemt OUF
		set %iskill 900
		return
		}
	if #skill < 950
		{
		; 90-95% - Invisibility (Spiders Silk)
		set %x1 123
		set %y1 120
		set %x2 271
		set %y2 222
		set %itemt OUF
		set %iskill 950
		return
		}
	if #skill < 1000
		{
		; 95-100% - Greater Invisibility (Spiders Silk)
		set %x1 123
		set %y1 120
		set %x2 271
		set %y2 245
		set %itemt OUF
		set %iskill 1000
		return
		}
	if #skill < 10
		{
		; Deadly Poison  (Nightshade)
		set %x1 123
		set %y1 170
		set %x2 271
		set %y2 197
		set %itemt AVF
		set %iskill 1000
		return
		}

HALT

return

sub waitforgump

set %bb #scnt
alg1:
if #contkind <> %GUMP
{
	wait 10
	set %test #scnt - %bb
	if  %test > 20
	{
	gosub open_alchemy
	wait 2s
	}
	goto alg1
}

return

sub open_alchemy
	if #contkind = %GUMP
		{
		return
		}

gosub item
bc1:
finditem RQF C
	if #findkind <> -1 
		{
		key ESC
		set #lobjectid #findid
		set #lobjecttype #findtype
		set #ltargetid #findid
		nextCPos 0 0
		event macro 17 0
		wait 2s
			if #contposx <> 0 && #contposy <> 0
				contpos 0 0
		click %x1 %y1
		wait 1s
		}
if #contkind <> %GUMP
{
	wait 1s
	goto bc1:
}

return


sub eat
	set %eatable_items UWI_TWI_QQD_DWI_HND
	finditem %eatable_items C
	if #Findkind <> -1
	{
		set #lobjectID #FindID
		event macro 17 0
		; Done. You just eaten something
	}
return