Translocator Quest To Many Common Zones

[eqwarrior]

Originally Posted by trevius

Nice, eqwarrior. Now, you just need to start using the new silent saylinks, and you won't see any spam at all other than the initial hail. Then, almost all text you see will be from actual players. I think it does make the game lose a little something, but IMO, the benefit is well worth it.

I need to install new source this weekend to get the extra 2 parameters in saylink. You have some good and helpful ideas. Thanks

[drzoyburg]

Ok Im a complete Noob when it comes to EQ editing and creating, good at wow crap, but for some reason not geeting the hang of this.
Tried to use Dieffer_wolfhugger for my translocator, used the above script created a .pl for him in the POK quest folder which looks like this

#Translocator for Multiple Zones

#Array for all available zones to be sent to
@ZoneList = qw(
	cazicthule
	akanon
	bothunder
	befallen
	blackburrow
	cabeast
	cabwest
	mistmoore
	chardok
	thurgadina
	veksar
	cobaltscar
	crystal
	dalnir
	necropolis
	dreadlands
	dulak
	freporte
	echo
	erudnext
	unrest
	everfrost
	fieldofbone
	fungusgrove
	greatdivide
	grobb
	guktop
	halas
	highkeep
	charasis
	paw
	kael
	kaesora
	karnor
	kurn
	lakeofillomen
	nurga
	soldungb
	najena
	nexus
	freportn
	nro
	oggok
	sebilis
	permafrost
	airplane
	fearplane
	growthplane
	hateplane
	poinnovation
	poknowledge
	mischiefplane
	ponightmare
	postorms
	povalor
	qeytoqrg
	rivervale
	runnyeye
	shadowhaven
	skyshrine
	soldunga
	sro
	felwitheb
	ssratemple
	qrg
	acrylia
	arena
	burningwood
	citymist
	sharvahl
	nadox
	dawnshroud
	thegrey
	gunthak
	hole
	jaggedpine
	maiden
	overthere
	paludal
	podisease
	hateplaneb
	pojustice
	scarlet
	umbral
	frozenshadow
	poeartha
	velketor
	vexthal
	warrens
	warslikswood
	freportw
);

sub EVENT_SAY{

	my $all = quest::saylink("All", 1);

	#Spacer between Text messages to make them easier to read
	$client->Message(7, "-");
	my $NPCName = $npc->GetCleanName();

	if ($text =~/Hail/i)
	{
		$client->Message(315, "$NPCName whispers to you, 'If there is a zone you would like to go to, just tell me the short name of it and I will see if I have a spell to send you there. If you do not know the full name, just type part of the name to search my list of possible zones.  Or, I can list [$all] of them if you like.'");
	}

	#Counts each row for the While
	my $count = 1;

	#Counts each element in the Array for the While
	my $n = 0;

	
	if ($text !~ /Hail/i)
	{
		#Use scalar form of Array
		while ($ZoneList[$n])
		{
			#This uses the lc() function in perl to convert anything typed into all lowercase, since that is what the zone list is
			#If the zone name contains part of the text said, or if the player wants to list all possible zones we list them
			if (($ZoneList[$n] =~ lc($text) && $ZoneList[$n] ne lc($text)) || ($text =~ /^All$/i))
			{
				my $ZoneName = quest::saylink($ZoneList[$n]);
				$client->Message(315, "$NPCName whispers to you, 'Possible match is: $ZoneName");
			}
			#If they say the full name of one of the zones in the Array, or click one of the saylinks, port them to the safe loc there
			if ($ZoneList[$n] eq lc($text) && $text !~ /^All$/i)
			{
				#my $PortZone = $ZoneList[$n];
				$client->Message(315, "$NPCName whispers to you, 'Enjoy your adventure!'");
				$client->Message(6, "$NPCName casts a spell to translocate you to another place.");
				quest::zone("$ZoneList[$n]");
			}
			$n++;
			$count++;
		}
	}
}

#END of FILE Zone:poknowledge  ID:202363 -- Dieffer_wolfhugger

Restarted the server and he does nothing, Please help, as I love this idea and want to get it going on my server.

Doc

[drzoyburg]

Well I also tried to put the .pl in the templates folder as well and nothing happens, changed the npc to one of the guards at the pok bank, since he did not have any quests on him, renamed him teleporter and ran the old script, works great, player just needs to know the short name.

Then I tried to run the newer script and nothing seems to work on him now. added in the saylink table and still nothing. Could this be due to the emu? think im running 6.4.0 or something to that nature.

Doc

[trevius]

As I mentioned above, you have to be running R803 or later from the SVN here:

http://code.google.com/p/projecteqemu/source/list

If you are running EQEmu version 6.4 something, that is ancient! You will need a huge amount of updating to get to the current code and database schema if that is the case. If you don't want to update, you could modify this script to work without using the saylinks. The Saylinks just work really well with this script. It is a good example of just how nice they can be

Since it was a quick edit, here is the script without Saylinks:

#Translocator for Multiple Zones

#Array for all available zones to be sent to
@ZoneList = qw(
	cazicthule
	akanon
	bothunder
	befallen
	blackburrow
	cabeast
	cabwest
	mistmoore
	chardok
	thurgadina
	veksar
	cobaltscar
	crystal
	dalnir
	necropolis
	dreadlands
	dulak
	freporte
	echo
	erudnext
	unrest
	everfrost
	fieldofbone
	fungusgrove
	greatdivide
	grobb
	guktop
	halas
	highkeep
	charasis
	paw
	kael
	kaesora
	karnor
	kurn
	lakeofillomen
	nurga
	soldungb
	najena
	nexus
	freportn
	nro
	oggok
	sebilis
	permafrost
	airplane
	fearplane
	growthplane
	hateplane
	poinnovation
	poknowledge
	mischiefplane
	ponightmare
	postorms
	povalor
	qeytoqrg
	rivervale
	runnyeye
	shadowhaven
	skyshrine
	soldunga
	sro
	felwitheb
	ssratemple
	qrg
	acrylia
	arena
	burningwood
	citymist
	sharvahl
	nadox
	dawnshroud
	thegrey
	gunthak
	hole
	jaggedpine
	maiden
	overthere
	paludal
	podisease
	hateplaneb
	pojustice
	scarlet
	umbral
	frozenshadow
	poeartha
	velketor
	vexthal
	warrens
	warslikswood
	freportw
);

sub EVENT_SAY{

	#Spacer between Text messages to make them easier to read
	$client->Message(7, "-");
	my $NPCName = $npc->GetCleanName();

	if ($text =~/Hail/i)
	{
		$client->Message(315, "$NPCName whispers to you, 'If there is a zone you would like to go to, just tell me the short name of it and I will see if I have a spell to send you there. If you do not know the full name, just type part of the name to search my list of possible zones.  Or, I can list [all] of them if you like.'");
	}

	#Counts each row for the While
	my $count = 1;

	#Counts each element in the Array for the While
	my $n = 0;

	
	if ($text !~ /Hail/i)
	{
		#Use scalar form of Array
		while ($ZoneList[$n])
		{
			#This uses the lc() function in perl to convert anything typed into all lowercase, since that is what the zone list is
			#If the zone name contains part of the text said, or if the player wants to list all possible zones we list them
			if (($ZoneList[$n] =~ lc($text) && $ZoneList[$n] ne lc($text)) || ($text =~ /^All$/i))
			{
				my $ZoneName = $ZoneList[$n];
				$client->Message(315, "$NPCName whispers to you, 'Possible match is: $ZoneName");
			}
			#If they say the full name of one of the zones in the Array, or click one of the saylinks, port them to the safe loc there
			if ($ZoneList[$n] eq lc($text) && $text !~ /^All$/i)
			{
				$client->Message(315, "$NPCName whispers to you, 'Enjoy your adventure!'");
				$client->Message(6, "$NPCName casts a spell to translocate you to another place.");
				quest::zone("$ZoneList[$n]");
			}
			$n++;
			$count++;
		}
	}
}