Quest not working

[Maceblade]

Cant figure out why this doesn't work... hpevent 90 works but nothing else...

sub EVENT_SPAWN {
  quest::setnexthpevent(90);

}



sub EVENT_HP {
  if ($hpevent == 90) {
    quest::spawn2(999245,0,0,$x + 10,$y,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x + 20,$y,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x + -10,$y,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x + -20,$y,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x,$y + 10,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x,$y + 20,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x,$y + -10,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x,$y + -20,$z,$h); #a dream defiler
    $NPC->CastSpell(16950);
    quest::setnexthpevent(60);
  }

  if ($hpevent == 60) {
    quest::spawn2(999246,0,0,$x + 70,$y + 80,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y + 70,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y + 60,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y + 40,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y + 20,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y - 80,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y - 70,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y - 60,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y - 40,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y - 20,$z,$h); #a dream defiler
    quest::spawn2(999246,0,0,$x + 70,$y,$z,$h); #a dream defiler
    $NPC->CastSpell(3150, $target->GetID());
    quest::setnexthpevent(36);
  }
  if ($hpevent == 36) {
    quest::spawn2(999245,0,0,$x + 10,$y,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x + 20,$y,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x + -10,$y,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x + -20,$y,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x,$y + 10,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x,$y + 20,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x,$y + -10,$z,$h); #a dream defiler
    quest::spawn2(999245,0,0,$x,$y + -20,$z,$h); #a dream defiler
    $NPC->CastSpell(16950);
  }
}

sub EVENT_DEATH {
  quest::we(15, " $name , Has defeated Touch, The Merciless");
  quest::stoptimer(1);
}



#Touch