Timer Problem

Randymarsh9 · #1 05-12-2009, 05:32 PM

Ok I have a quest where the npc starts a timer and is supposed to kick the person back to PoK after a minute and a half. Nothing happens.

This is the quest giver

Code:

sub EVENT_SAY{
 if ($text=~/hail/i){
 quest::say("text");
 }
 if ($text =~/ready/i){
 quest::spawn(1295,0,0,-31.4,-165.8,0.5);
 quest::moveto(-1094.4, 29.7, -26.9);
 quest::settimer("wizboot", 90);
 }
}
 sub EVENT_TIMER{
 if ($timer eq "wizboot"){
 quest::movepc(202,-107,-190,-156);
 quest::stoptimer("wizboot");
}
}

I also added

Code:

if ($timer eq "wizboot"){
quest::movepc(202, -107,-190,-156);
 quest::stoptimer("wizboot");
}

to player.pl. For some reason this won't boot the person back to PoK

**joligario** · #2 05-12-2009, 06:08 PM

I don't believe player.pl has access to your NPC timer. You should try to run it all from player.pl.

Randymarsh9 · #3 05-12-2009, 06:20 PM

how would I have it start from player.pl

**trevius** · #4 05-12-2009, 06:21 PM

Doing that is actually a bit more complex than it might sound. There are a couple of ways to do it, but here is a way that I recently wrote to handle a similar situation and modified to fit what you are wanting:

npcname.pl file for the npc giving the quest

Code:

sub EVENT_SAY {


	if($text=~/hail/i && defined($qglobals{zone_wiz}))
	{
		quest::say("You have already started this event.");
	}

	if($text=~/hail/i && !defined($qglobals{zone_wiz}))
	{
		quest::say("You have about 1.5 minutes before you get booted!");
		quest::setglobal("zone_wiz", 1, 5, "M1");
		quest::setglobal("zone_wiz_delay", 1, 5, "M2");
	}

}

player.pl in the zone shortname directory

Code:

sub EVENT_ZONE {

	quest::stoptimer("wizboot");

}


sub EVENT_ENTERZONE {

	quest::settimer("wizboot", 5);


}

sub EVENT_TIMER {

	if ($timer eq "wizboot")
	{
		quest::stoptimer("wizboot");
		if (!defined($qglobals{zone_wiz}) && defined($qglobals{zone_wiz_delay})) {
			quest::delglobal(zone_wiz_delay);
			$client->Message(15, "You are returning to PoK now!");
			quest::movepc(202, -107,-190,-156);
		}
		quest::settimer("wizboot", 5);
	}

}

That is a quick edit, so I may have missed something, but I think that should work for you. Basically, in the player.pl, there is no easy way to trigger a timer to start, so I have one running that starts when a player zones in. If you expect to have many people in this zone, you might want to set the delay longer so it isn't working too hard on it (I set mine to check ever 60 secs), but if you are only having a couple in the zone, 5 sec checks should be fine.

Randymarsh9 · #5 05-12-2009, 07:01 PM

Alright I edited in the stuff you suggested and its working perfectly. Thanks again for the help

Randymarsh9 · #6 05-24-2009, 08:34 PM

I am making a quest where ideally the NPC will cycle through a group of phrases, but it isn't even saying the first thing.

Code:

sub EVENT_SPAWN{
quest::settimer("Timer1",10);
}
sub EVent_TIMER{
if ($timer eq "Timer1"){
quest::say("text");
quest::stoptimer("Timer1");
quest::settimer("Timer2",10);
}
if ($timer eq "Timer2"){
quest::say("text");
quest::stoptimer("Timer2");
quest::settimer("Timer3",10);
}
if ($timer eq "Timer3"){
quest::say("text");
quest::stoptimer("Timer3");
quest::settimer("Timer4",10);
}
if ($timer eq "Timer4"){
quest::say("text");
quest::stoptimer("Timer4");
quest::settimer("Timer1",10);
}
}

**joligario** · #7 05-24-2009, 08:37 PM

Did you try changing EVent to EVENT? Not sure if it is case sensitive or not, but most likely it is.

Randymarsh9 · #8 05-24-2009, 10:22 PM

I tried that, but it still doesnt work

**trevius** · #9 05-24-2009, 10:35 PM

Yeah, you do definitely need to make sure to use all uppercase. That script should work fine when you have it set like this:

Code:

sub EVENT_SPAWN {
	quest::settimer("Timer1",10);
}

sub EVENT_TIMER {

	if ($timer eq "Timer1"){
		quest::say("text1");
		quest::stoptimer("Timer1");
		quest::settimer("Timer2",10);
	}

	if ($timer eq "Timer2"){
		quest::say("text2");
		quest::stoptimer("Timer2");
		quest::settimer("Timer3",10);
	}

	if ($timer eq "Timer3"){
		quest::say("text3");
		quest::stoptimer("Timer3");
		quest::settimer("Timer4",10);
	}

	if ($timer eq "Timer4"){
		quest::say("text4");
		quest::stoptimer("Timer4");
		quest::settimer("Timer1",10);
	}

}

Make sure to do a #reloadquest and also a #repop to start the timer. Also, make sure you have the script named properly.

**joligario** · #10 05-24-2009, 10:44 PM

Maybe try integers instead of strings for timer id as a last resort.

**Congdar** · #11 05-24-2009, 11:06 PM

If you use integers, change eq to ==

Code:

sub EVENT_SPAWN {
	quest::settimer(1, 10);
}

sub EVENT_TIMER {

	if ($timer == 1){
		quest::say("text1");
		quest::stoptimer(1);
		quest::settimer(2, 10);
	}

	if ($timer == 2){
		quest::say("text2");
		quest::stoptimer(2);
		quest::settimer(3, 10);
	}

	if ($timer == 3){
		quest::say("text3");
		quest::stoptimer(3);
		quest::settimer(4, 10);
	}

	if ($timer == 4){
		quest::say("text4");
		quest::stoptimer(4);
		quest::settimer(1, 10);
	}

}

Yeormom · #12 06-18-2009, 11:47 PM

I was messing around with event timers the other night and it appeared that the timer could not get the player that triggered the event. Things like quest::movepc() didn't function and $client wasn't exported for the timer event.

Capheus · #13 06-19-2009, 10:17 AM

Getting $client in a timer in most cases will not happen cause a timer is not triggered by the client. Is these cases you have to store the client in another variable or qglobal. I have the common types below, but there are many other ways of doing this too.

Code:

sub EVENT_SPAWN {
     	$x = $npc->GetX();
   	$y = $npc->GetY();
   	quest::set_proximity($x - 20, $x + 20, $y - 20, $y + 20);
   	quest::settimer("testclient",5);
}


sub EVENT_SAY {
	if($text=~/hail/i)
	{$firstclient = $client;}
}


sub EVENT_AGGRO	{ 
	$secondclient = $client;

} 


sub EVENT_COMBAT {
	$thirdclient = $client;

} 


sub EVENT_ENTER {
	$fourthclient = $client;
}


sub EVENT_ENTERZONE {
	$fifthclient = $client;
}


sub EVENT_TIMER {
	if ($timer eq "testclient") {
	
		if ($firstclient != 0)
		{$cone = $firstclient->GetName();}

		if ($secondclient != 0)
		{$ctwo = $secondclient->GetName();}

		if ($thirdclient != 0)
		{$cthree = $thirdclient->GetName();}

		if ($fourthclient != 0)
		{$cfour = $fourthclient->GetName();}

		if ($fifthclient != 0)
		{$cfive = $fifthclient->GetName();}

	quest::say("$cone");
	quest::say("$ctwo");
	quest::say("$cthree");
	quest::say("$cfour");
	quest::say("$cfive");
	}
}

Yeormom · #14 06-19-2009, 10:43 AM

Some of the data is sent to the timer event, such as $name of player and $entity_list for the zone. I was specifically trying to functions for the client but those seemed to fail as well, strangely enough.

Code:

sub EVENT_TIMER
{
     quest::say("Hello $name");
     $c = $entity_list->GetClientByName($name);
     $charname = $c->GetName();
     quest::say("Hi $charname");
     $c->MovePC(1,1,1,1);
     $c->CastSpell(1,1);
}

Output:

Code:

NPC says, 'Hello JohnDoe'
NPC says, 'Hi JohnDoe'
*crickets*
*more crickets*

Not an actual script but prefect representation if all function input had valid data.

**Congdar** · #15 06-19-2009, 05:58 PM

not sure if this will fix it, but the client movepc function takes 5 parameters... zoneid, x, y, z, heading

and since movepc failed, castspell probably didn't even get called.