Wandering NPC qglobal

[joligario]

Create an NPC (we'll say Wanderer) with whatever stats you want, but enable qglobals.
In spawn2 table, set a spawn at 100% at the zone-in location from the previous zones (each of which, we'll call 1, 2, and 3). For example, zone2 spawn point would be where Wanderer would have zoned in from zone1. Zone3 spawn would be from the zone line of zone2, and zone1 would be from the zone line of zone3.
Create waypoints (we'll say id of 100) in our zones. Use full pause and ensure that the last waypoint has a decent pause time for the x/y check.

All 3 script files will look almost identical. Items in red will be the difference between the files. The first one is the starting zone.

quests\1\Wanderer.pl

my $ZoneOutX = 1111;
my $ZoneOutY = 1111;

sub EVENT_SPAWN {
  if (!defined($qglobals{Wanderer}) {
    quest::setglobal("Wanderer",1,7,"F");
  }
  if (defined($qglobals{Wanderer}) && ($qglobals{Wanderer} == 1)) {
    quest::start(100);
  }
  else {
    depop();
  }
}

sub EVENT_DEATH {
  quest::delglobal("Wanderer");
}

sub EVENT_WAYPOINT {
  if (($x == $ZoneOutX) && ($y == $ZoneOutY)) {
    quest::stop();
    quest::setglobal("Wanderer",2,7,"F");
    quest::depop();
  }
}

quests\2\Wanderer.pl

my $ZoneOutX = 2222;
my $ZoneOutY = 2222;

sub EVENT_SPAWN {
  if (defined($qglobals{Wanderer}) && ($qglobals{Wanderer} == 2)) {
    quest::start(100);
  }
  else {
    depop();
  }
}

sub EVENT_DEATH {
  quest::delglobal("Wanderer");
}

sub EVENT_WAYPOINT {
  if (($x == $ZoneOutX) && ($y == $ZoneOutY)) {
    quest::stop();
    quest::setglobal("Wanderer",3,7,"F");
    quest::depop();
  }
}

quests\3\Wanderer.pl

my $ZoneOutX = 3333;
my $ZoneOutY = 3333;

sub EVENT_SPAWN {
  if (defined($qglobals{Wanderer}) && ($qglobals{Wanderer} == 3)) {
    quest::start(100);
  }
  else {
    depop();
  }
}

sub EVENT_DEATH {
  quest::delglobal("Wanderer");
}

sub EVENT_WAYPOINT {
  if (($x == $ZoneOutX) && ($y == $ZoneOutY)) {
    quest::stop();
    quest::setglobal("Wanderer",1,7,"F");
    quest::depop();
  }
}

[neiv2]

I've tested each part of this script, and this part of it is broken:

if (!defined($qglobals{Wanderer}) {
quest::setglobal("Wanderer",1,7,"F");
}

The rest of it works fine. Any reason this part doesn't work? Is the ! being used correctly?

[joligario]

Yeah, I missed a close parenthesis.

if (!defined($qglobals{Wanderer})) {

That's what I get for writing code "on the fly" instead of testing it first.

[neiv2]

Bah! I'm ashamed I missed that! It appears to be working now. Just need to revamp the 2d and 3d script and try the whole sequence. I'll let you know how it goes. Thanks.

[neiv2]

Okay, the following part is not working:

sub EVENT_WAYPOINT 
	{
 	if (($x == $ZoneOutX) && ($y == $ZoneOutY)) 
		{
    		quest::stop();
		quest::delglobal("wanderer");
   		quest::setglobal("wanderer",2,7,"F");
    		quest::depop();
  		}
	}

The npc is not responding to anything in this event. I assumed I should change the previously defined ZoneOuts from 1111 to the actual xy coords of the final waypoint, like so:

my $ZoneOutX = -15972.6;
my $ZoneOutY = 632.1;

Is this correct?

[joligario]

Yes.

Now, in the database, do you have that exact location in the grid_entries as the last grid for his path in that zone? If so, there might be a possibility that he triggers the waypoint before he gets to that exact coordinate. Also, just in case, are you sure the x/y y/x is correct?

[neiv2]

It is the exact location as in grid_entries. And I used #loc on the npc when he was paused at the final waypoint to verify the coords (x comes first using #). Those values are in the definition:

my $ZoneOutX = -15972.6;
my $ZoneOutY = 632.1;

The zone is Qey2hh1 and is on the dirt path right before the zone line with northkarana.