set #lpc 1000
repeat
  onhotkey q alt
    gosub magicarrow
  onhotkey w alt
    gosub dispel
  onhotkey e alt
    gosub weaken
  onhotkey z alt
    gosub curse
  onhotkey x alt
    gosub mindblast
  onhotkey 2 alt
    gosub paralyze
  onhotkey b ctrl
    gosub saferecall
  onhotkey c ctrl
    gosub hidepot
  onhotkey x ctrl
    gosub healpot
  onhotkey z ctrl
    gosub curepot
;  onhotkey e
;    gosub hotkey e
  sleep 1
until #false

;sub hotkey
;{
;  event sysmessage %1
;  Loop:
;  sleep 1
;  onhotkey %1
;    goto Loop
;  return
;}


sub magicarrow
{
 event macro 15 4
 sleep 500
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub dispel
{
 event macro 15 40
 sleep 1800
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub weaken
{
 event macro 15 7
 sleep 600
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub curse
{
 event macro 15 26
 sleep 1600
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}


sub mindblast
{
 event macro 15 36
 sleep 1750
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub paralyze
{
 event macro 15 37
 sleep 1750
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub poison
{
 event macro 15 40
 sleep 1800
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub invisibility
{
 event macro 15 40
 sleep 1800
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub ghealself
{
 event macro 15 40
 sleep 1800
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub energybolt
{
 event macro 15 40
 sleep 1800
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub cureself
{
 event macro 15 40
 sleep 1800
 click 400 290 r p f
 target 1s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub saferecall
{
 finditem  QYPFIND
 set #ltargetid #findid
 event macro 15 31
 sleep 1500
 click 400 290 r p f
 target 4s
 event macro 22 0
 click 400 290 r g f
 sleep 1
 return
}

sub hidepot
{
 finditem HMF
 set #lobjectid #findid
 event macro 17
 sleep 1
 return
}

sub healpot
{
 finditem UUF
 set #lobjectid #findid
 event macro 17
 sleep 1
 return
}

sub curepot
{
 finditem NUF
 set #lobjectid #findid
 event macro 17
 sleep 1
 return
}