Wandering NPC qglobal

[joligario]

How about this:

Add the NPC to all zones using the spawn point at where it would enter the zone. In EVENT_SPAWN, have it check if the global is set to a number associated with the current zone. If it is not, then depop(). If it is, do a start() and when it reaches a specific x/y, have it stop(). Set the global for the next zone, and run a depop().

Other things to consider if using this method:
Designate 1 "start" zone. When that NPC spawns, have it set its own zone number in the global if the global does not exist. If killed, ensure the global is deleted in EVENT_DEATH. If a zone crashes, no big deal, because the global is already set for that specific zone, so it will just start over at the beginning of its path only in that zone.

[Dibalamin]

Or you can make it be random by using another set of globals.

[neiv2]

Joli, I think you suggested having the global check and depop as part of the npc script; but wouldn't it be better placed in the watcher script, as follows?

sub EVENT_WAYPOINT
	{
	if (defined($qglobals{wanderer})) 
		{

		my $x;
		my $y;
		my $z;
		my $h;

		$x = $npc->GetX();
		$y = $npc->GetY();
		$z = $npc->GetZ();
		$h = $npc->GetHeading();		

		if ($qglobals{wanderer} == 1 && $EventStart == 0)
			{	
			$EventStart == 1;
			quest::spawn2(999228,0,0,$x+5,$y+5,$z,$h);
			}
		elsif ($qglobals{wanderer} != 1)
			{
			quest::depop(999228);
			}
		}
	}

Would this accomplish the same thing?

[joligario]

Well, what I was suggesting does not require a "watcher". Basically, the NPC(s) would look at the 1 global and decide whether or not it should stay spawned. I'll give you an example in a few minutes.

[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.