initEvents
set %eat #scnt
set %typeid WOH_JSF_LMH
set %instrument QRF_NRF_MQF_PRF_LQF_OQF
set %arms 0
set %medi 1

main_loop:
hits:
chooseSkill arms_lore
set %al #skill
chooseskill magery
set %mag #skill
chooseskill resisting_spell
setUOtitle M: %mag RP: #skill AL: %al
if %mus = 1
	{
	finditem %instrument C
	if #findkind <> -1
	{         
		   set #Lobjectid #findid
		   Event Macro 17
	}
	wait 3s
	}
if #scnt > %eat
{
	gosub eat ; whatever your eat sub is
	set %eat #scnt + 2700
}
if #HITS < 35 
{
	gosub use_bandage
	wait 1s
	goto hits:
}
if #MANA < %mana 
{
if %medi = 1
	{
	event macro 13 46
	scanJournal %i
	if ( you_cant_focus in #journal )
	{
	deleteJournal
	wait 10s
	event macro 13 46
	}
	wait 10s
	}

if %arms = 1
{
finditem %typeid
	if #findkind = -1
		goto hits
	ignoreitem #findid
	set #ltargetid #findid
	set #ltargetkind 1

	;USE SKILL (4=ArmsLore/3=ItemID)
	event macro 13 4

	;TARGET GEM
	target
	event macro 22
}
	wait 3s
	goto hits
}
;event macro 15 17

if %mag < 450
	{
	set %mana 9
	; fireball
	event macro 15 17
	;event macro 15 16
	goto go
	}
if %mag < 600
	{
	set %mana 12 
	; curse
	;Garlic, Nightshade, Sulphurous Ash
	event macro 15 26
	goto go
	}
if %mag < 800
	{
	set %mana 20
	;mass curse
	;Garlic, Mandrake Root, Nightshade, Sulphurous Ash
	event macro 15 45
	goto go
	}
if %mag < 995
	{
	set %mana 40
	;mana vampire
	;Black Pearl, Blood Moss, Mandrake, Spider's Silk
	event macro 15 52
	goto go
	}
if %mag < 1000
	{
	set %mana 50
	;resu
	;Blood Moss, Garlic, Ginseng
	event macro 15 58
	goto go
	}
go:
target 2s
event macro 23
wait 2s
goto main_loop

sub use_bandage
ignoreItem reset
finditem ZLF C
	if #findkind <> -1
	{
			set #lobjectid #findid
			event macro 17
			target
			event macro 23
			wait 2s
			gosub check_healed
	}
return

sub check_healed
xx:
set %oige 0
for %i 5 1
{
scanJournal %i
if ( has_healed_you_completely in #journal || you_could_not_heal_him in #journal )
	{
	deleteJournal
	set %oige 1
	return
	}
}
if %oige <> 1
{
wait 3s
goto xx:
}

}
return

Sub ResetJournal
	scanjournal 1
	deletejournal
return

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