[joligario]

I didn't go through much, but just got some obvious things for you:

sub EVENT_AGGRO {
  quest::setnexthpevent(99);
  quest::settimer("DT",1);
  quest::settimer("Slow",2);
  quest::settimer("Nuke",3);
}

sub EVENT_HP {
  if($hpevent == 99) {
    quest::shout2("You dare face the might of Vishimtar, mortals?!?!!");
    quest::setnexthpevent(75);
  }
  if($hpevent == 75) {
    quest::shout2("The power of the dragon ancients grows inside of me!");
    quest::setnexthpevent(50);
  }
  if($hpevent == 50) {
    quest::shout2("I...am...the Destroyer!!!");
    quest::setnexthpevent(25);
  }
  if($hpevent == 25) {
    quest::shout2("Arrghh! You will not defeat me!");
    quest::setnexthpevent(1);
  }
  if($hpevent == 1) {
    quest::shout2("Ahh.. My power was not.... Strong enough...");
  }
}
 
sub EVENT_DEATH {
  quest::stoptimer("DT");
  quest::stoptimer("Slow");
  quest::stoptimer("Nuke");
}
 
sub EVENT_SLAY {
  quest::shout("You cannot stand yourself against a dragon god $name!");
}
 
sub EVENT_TIMER {
  if ($timer eq "DT") {
    quest::shout("DT TEST");
  }
  if ($timer eq "Slow") {
    quest::shout("SLOW TEST");
  }
  if ($timer eq "Nuke") {
    quest::shout("NUKE TEST");
  }
}