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

set %char 1
set %login GXMB
set %server OPC
set %chars MAYC
set %wrongLogin OLQC
set %servererror OLQC
set %disconnect OLQC
set %disconnect_size 203_121
; the #contkind of %ingame should be when your backpack is open and ontop. 
set %ingame QITB

main_loop:
hits:
;gosub check_online

chooseSkill arms_lore
set %al #skill
chooseskill magery
set %mag #skill
chooseskill meditation
set %med #skill
chooseskill resisting_spell
setUOtitle M: %mag RP: #skill Med: %med AL: %al time: #TIME
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
		}
		if  meditating in #journal
		{
			wait 10s
		}
	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 ( you_have_healed in #journal || 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_HND
	finditem %eatable_items C
	if #Findkind <> -1
	{
		set #lobjectID #FindID
		event macro 17 0
		; Done. You just eaten something
	}
return


sub check_online
	set %discon 0
	if #contkind = %disconnect && #CONTSIZE = 203_121
		gosub relog
return

sub relog
set %try 0
start_relog:
if #contkind = %login
{
   click 333 403
   wait 30
   for %i 0 15
   {
      key delete
   }
   msg sinukoodsiia$
   wait 3s
}

if #contkind = %server
{
   msg $
wait 3s
}

if #contkind = %chars
{
   if %char = 1
   {
      click 370 165 d
   }   
   if %char = 2
   {
      click 370 205 d
   }
   if %char = 3
   {
      click 370 245 d
   }
   if %char = 4
   {
      click 370 285 d
   }
   if %char = 5
   {
      click 370 225 d
   }
   wait 6s
}

if #contkind = %wrongLogin && #CONTSIZE = 356_212
{
   set %try %try + 1
   click 316 317
	if %try > 1
   		HALT
	wait 600s
	goto start_relog
}

if #contkind = %disconnect && #CONTSIZE = 203_121
{
   click 399 320
   wait 30
}

if #contkind = %ingame
{
     event macro 31 0
	wait 2s

	nextCPos 0 0
	event macro 8 2
	wait 10 
	event macro 10 2
	wait 2s

	nextCPos 500 500
	event macro 8 7
	wait 2s
	wait 10 
	event macro 10 7
	return
}
; end edit
goto start_relog

return