Teleporter to port to every zone, with alphabetized lists.

[Noport]

#Old man Thorren.pl
# LOC PoK (-170.68, -261.52, -156.31,+0)

sub EVENT_SAY { 
if($text=~/Hail/i){
quest::say("Welcome to The Veil of Alaris, $name. To ease your [Newly discoved Lands]. If you wish, I can also send you to [Arena] or [Crafthalls]. But be warned that while I can Teleport you to these distant Lands, you are on your own for finding a way back.");

}     if($text=~/Newly discoved Lands/i) {
        quest::say("Argath,Valley of Lunanyn,Sarith,Rubak Oseka,Beast Domain,Resplacement Temple,Bronze,Pillars,Windsong,Sepulcher,Sepulcher East,Sepulcher West")   
      }
      if($text=~/Arena/i) {
        quest::movepc(-882.00,132.00,51.47); 
      }
      if($text=~/Crafthalls/i) {
        quest::movepc(0.00,0.00,-6.30); 
       }
      if($text=~/Argath/i) {
        quest::movepc(62000.00,7930.00,-29.99);
      }
      if($text=~/Valley of Lunanyn/i) {
        quest::movepc(3379.00,-1922.00,1333.37);
      }
      if($text=~/Sarith/i) {
       quest::movepc(918.00,-499.00,-1.87);
      }
      if($text=~/Rubak Oseka/i) {
       quest::movepc(-27.00,-56.00,516.17);
      }
      if($text=~/Beast Domain/i) {
       quest::movepc(-4846.00,4463.00,181.21);
      }
      if($text=~/Resplacement Temple/i) {
       quest::movepc(92.00,-76.00,9.90);
      }
      if($text=~/Bronze/i) {
       quest::movepc(-978.00,-2255.00,50.54);
      }
      if($text=~/Pillars/i) {
       quest::movepc();
      }
      if($text=~/Windsong/i) {
       quest::movepc();
      }
      if($text=~/Sepulcher/i) {
       quest::movepc();
      }
      if($text=~/Sepulcher East/i) {
       quest::movepc();
      }
      if($text=~/Sepulcher West/i) {
       quest::movepc();
      }
	 
sub EVENT_SPAWN
{
	$x = $npc->GetX();
	$y = $npc->GetY();
	quest::set_proximity($x - 170.68, $x - 261.52, $y - 156.31, $y + 0);
}


sub EVENT_ITEM {
  quest::say("I have no use for this, $name.");
  plugin::return_items(\%itemcount);
}

#END of FILE Zone:poknowledge