Anyone see an issue..?

[Uleat]

This part:

Sub EVENT_TIMER {
if ($timer == DT) {
quest::shout("TEST");
if ($timer == Slow) {
quest::shout("TEST");
if ($timer == Nuke) {
quest::shout("TEST");
}
}

You're original posting was correct..the second one is wrong.

[event handler] { // this bracket opens event handler procedure

[condition 1] { // this bracket opens condition 1 procedure
do_work_1;
} // this bracket closes condition 1 procedure

[condition 2] { // this bracket opens condition 2 procedure
do_work_2;
} // this bracket closes condition 2 procedure

} // this bracket closes event handler procedure

There could still be other issues, but this is how procedures should be wrapped.

I don't know if perl let's you use single-line conditional statements. If it does, and that's what you're attempting to do,
then the con checks shouldn't have the opening bracket after it.

IF perl does let you, it should look like this. Otherwise you need both open and close brackets around any procedure or
sub-procedure.

Sub EVENT_TIMER {
	if ($timer == DT)
		quest::shout("TEST");
	if ($timer == Slow)
		quest::shout("TEST");
	if ($timer == Nuke)
		quest::shout("TEST");
}

EDIT: omg..did it really take almost 3 hours to post this?? I'm so dense that I must be warping the very fabric of space-time...

[wolfwalkereci]

Here try this.
Also look at this:

void quest::settimer(const char *timer_name, int seconds) {

So you basically set it to check DT (death touch?) every 1 second, slow every 2 and nuke every 3 or am I just way tired and reading that wrong.

sub EVENT_COMBAT {
	if ($combat_state == 1) {
		quest::setnexthpevent(99);
		quest::settimer(DT,1);
		quest::settimer(Slow,2);
		quest::settimer(Nuke,3);
	} else {
		quest::stoptimer("DT");
		quest::stoptimer("Slow");
		quest::stoptimer("Nuke");
		quest::depop();
	}
}

sub EVENT_HP {
	if($hpevent <= 99 && $hpevent >= 98) {
		quest::shout2("You dare face the might of Vishimtar, mortals?!?!!");
		quest::setnexthpevent(75);
	}
	if($$hpevent <= 75 && $hpevent >= 74) {
		quest::shout2("The power of the dragon ancients grows inside of me!");
		quest::setnexthpevent(50);
	}
	if($hpevent <= 50 && $hpevent >= 49) {
		quest::shout2("I...am...the Destroyer!!!");
		quest::setnexthpevent(25);
	}
	if($hpevent <= 25 && $hpevent >= 24) {
		quest::shout2("Arrghh! You will not defeat me!");
	}
}

Sub EVENT_DEATH {
	quest::shout2("Ahh.. My power was not.... Strong enough...");
	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 == DT) {
		quest::shout("TEST"); }
	if ($timer == Slow) {
		quest::shout("TEST"); }
	if ($timer == Nuke) {
		quest::shout("TEST"); }
}