I made this a while back and I figured it might come in handy for others looking for a quick solution to give access to popular zones. It is just a teleporter with many common and popular zones. It definitely isn't all of them, but it is a start. You can easily use notepad to do replaces on the text throughout the quest to change wording or NPC name or whatever.
Code:
#############
#Quest Name: Translocator
#Author: Trevius of Storm Haven
#############
sub EVENT_SAY
{
if ($text =~/Hail/i)
{
quest::say ("Hey there, $name. If you know the shortname of the zone you would like to go to, just tell me and I will see if I have a spell to send you there.");
}
if ($text =~/crushbone/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(58, 158,-644,4); }
if ($text =~/cazicthule/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(48, -80,80,5.5); }
if ($text =~/akanon/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(55, -35,47,4); }
if ($text =~/bothunder/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(209, 207,178,-1620); }
if ($text =~/befallen/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(36, 35.22,-75.27,2.19); }
if ($text =~/blackburrow/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(17, 38.92,-158.97,3.75); }
if ($text =~/cabeast/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(106, -416,1343,4); }
if ($text =~/cabwest/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(82, 790,165,3.75); }
if ($text =~/mistmoore/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(59, 123,-295,-177); }
if ($text =~/chardok/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(103, 859,119,106); }
if ($text =~/thurgadina/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(115, 0,-1222,0); }
if ($text =~/veksar/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(109, -1,-514.5,49); }
if ($text =~/cobaltscar/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(117, 895,-939,318); }
if ($text =~/crystal/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(121, 303,487,-74); }
if ($text =~/dalnir/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(104, 90,8,3.75); }
if ($text =~/necropolis/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(123, 2000,-100,5); }
if ($text =~/dreadlands/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(86, 9565.05,2806.04,1045.2); }
if ($text =~/dulak/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(225, 438,548,4); }
if ($text =~/freporte/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(10, -648,-1097,-52.2); }
if ($text =~/echo/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(153, -800,840,-25); }
if ($text =~/erudnext/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(24, -309.75,109.64,23.75); }
if ($text =~/unrest/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(63, 52,-38,3.75); }
if ($text =~/everfrost/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(30, 682.74,3139.01,-60.16); }
if ($text =~/fieldofbone/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(78, 1617,-1684,-54.78); }
if ($text =~/fungusgrove/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(157, -1005,-2140,-308); }
if ($text =~/greatdivide/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(118, -965,-7720,-557); }
if ($text =~/grobb/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(52, 0,-100,4); }
if ($text =~/guktop/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(65, 7,-36,4); }
if ($text =~/halas/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(29, 0,0,3.75); }
if ($text =~/highkeep/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(6, 88,-16,4); }
if ($text =~/charasis/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(105, 0,0,-4.25); }
if ($text =~/paw/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(18, -7.9,-79.3,4); }
if ($text =~/kael/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(113, -633,-47,128); }
if ($text =~/kaesora/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(88, 40,370,99.72); }
if ($text =~/karnor/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(102, 0,0,4); }
if ($text =~/kurn/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(97, 77.72,-277.64,3.75); }
if ($text =~/lakeofillomen/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(85, -5383.07,5747.14,68.27); }
if ($text =~/nurga/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(107, 150,-1062,-107); }
if ($text =~/soldungb/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(32, -262.7,-423.99,-108.22); }
if ($text =~/najena/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(44, -22.6,229.1,-41.8); }
if ($text =~/nexus/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(152, 0,0,-28); }
if ($text =~/freportn/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(8, 211,-296,4); }
if ($text =~/nro/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(34, 299.12,3537.9,-24.5); }
if ($text =~/oggok/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(49, -99,-345,4); }
if ($text =~/sebilis/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(89, 0,235,40); }
if ($text =~/permafrost/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(73, 0,0,3.75); }
if ($text =~/airplane/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(71, 542.45,1384.6,-650); }
if ($text =~/fearplane/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(72, 1282.09,-1139.03,1.67); }
if ($text =~/growthplane/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(127, 3016,-2522,-19); }
if ($text =~/^hateplane$/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(76, -353.08,-374.8,3.75); }
if ($text =~/poinnovation/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(206, 241,509,-52.8); }
if ($text =~/poknowledge/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(202, -55.82,43.93,-158.81); }
if ($text =~/mischiefplane/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(126, -395,-1410,115); }
if ($text =~/ponightmare/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(204, 1668,282,210.4); }
if ($text =~/postorms/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(210, -1755.7,-2001.1,-463.8); }
if ($text =~/povalor/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(208, 207.4,-1615.1,77.9); }
if ($text =~/qeytoqrg/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(4, 196.7,5100.9,-1); }
if ($text =~/rivervale/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(19, 45.3,1.6,3.8); }
if ($text =~/runnyeye/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(11, -21.85,-108.88,3.75); }
if ($text =~/shadowhaven/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(150, 190,-982,-28); }
if ($text =~/skyshrine/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(114, -730,-210,0); }
if ($text =~/soldunga/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(31, -485.77,-476.04,73.72); }
if ($text =~/sro/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(35, 286,1265,79); }
if ($text =~/felwitheb/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(62, -790,320,-10.25); }
if ($text =~/ssratemple/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(162, 0,0,4); }
if ($text =~/qrg/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(3, 136.9,-65.9,4); }
if ($text =~/acrylia/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(154, -664,10,3.2); }
if ($text =~/arena/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(77, 460.9,-41.4,-7.38); }
if ($text =~/burningwood/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(87, -820,-4942,200.31); }
if ($text =~/citymist/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(90, -734,28,3.75); }
if ($text =~/sharvahl/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(155, 85,-1135,-188); }
if ($text =~/nadox/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(227, -643.06,-1349.17,-40.87); }
if ($text =~/dawnshroud/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(174, 2085,0,89); }
if ($text =~/thegrey/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(171, 349,-1994,-26); }
if ($text =~/gunthak/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(224, -938.34,1644.83,25.94); }
if ($text =~/hole/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(39, -1049.98,640.04,-77.22); }
if ($text =~/jaggedpine/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(181, 1800,1319,-13); }
if ($text =~/maiden/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(173, 1905,940,-150); }
if ($text =~/overthere/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(93, -4263,-241,235); }
if ($text =~/paludal/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(156, -241,-3721,195); }
if ($text =~/podisease/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(205, -1750,-1243,-56); }
if ($text =~/hateplaneb/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(186, -392.7,629.44,3.75); }
if ($text =~/pojustice/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(201, -61,58,5); }
if ($text =~/scarlet/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(175, -1678,-1054,-98); }
if ($text =~/umbral/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(176, 1900,-474,23); }
if ($text =~/frozenshadow/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(111, 200,120,0); }
if ($text =~/poeartha/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(218, 0,0,0); }
if ($text =~/velketor/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(112, -65,581,-152); }
if ($text =~/vexthal/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(158, -1400,343,-40.4); }
if ($text =~/warrens/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(101, -930,748,-37.22); }
if ($text =~/warslikswood/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(79, -467.95,-1428.95,197.31); }
if ($text =~/freportw/i)
{
quest::say ("Enjoy your adventure!");
$client->Message(6, "Linnya Sennu casts a spell to translocate you to another place.");
quest::movepc(9, 181,335,-24); }
}