Simple Translocator

[Vexyl]

Started up my server recently and am doing a lot of quest/database/code testing. Here is just a simple translocator I use for my Master Translocator NPC:

Note: The "training" option is for a not yet implemented wizard quest. PoKnowledge is blocked in the quest for my server. The #zonestart command is a custom command I added to teleport back to the start area. The translocator will teleport you to any valid short name zone you give it except PoKnowledge/Sunset Home (Which can be changed, of course.). There are no error checking in this version. Here it is:

sub EVENT_SAY {

	if ($text=~/hail/i) {
	
	if ($class =~ Wizard) {
	
		quest::say("Greetings $name, do you seek [training] to become a High $class? Or just need to be [translocated] somewhere?");
		
	}
	
	else {
	
	quest::say("Hello mortal. Do you seek to be [translocated] somewhere?");
	
	}
	
	}
	
	elsif ($text=~/training/i) {
	
	if ($class =~ Wizard) {
	
	quest::say("I have no tasks for you today to become a High $class.");
	
	}
	
	}
	
	elsif ($text=~/translocated/i) {
	
		quest::say("State the short name of the zone you wish to go.");
		$port0 = 1;
		$teleName = $name;
		
	}
	
	else {
	
	if ($port0 =~ 1) {
	
		$portApproved = 1;
		
	if ($text =~ poknowledge || $text =~ cshome) {
	
		$portApproved = 0;
			
	}
	
	if ($portApproved =~ 1) {
	
	if ($teleName =~ $name) {
	
		quest::say("$name has been approved for translocation to $text.");
		quest::say("Attempting to teleport $name to $text.");
		quest::say("Remember, to teleport back to Crushbone say #zonestart.");
		quest::zone($text);
		
	}
	
	}
	
	else {
	
		quest::say("Translocation to $text is not possible, $name.");
		
	}
	
		$port0 = 0;
		$teleName = "";
		
	}
	
	}
	
	}
	
}

sub EVENT_ATTACK {

		quest::emote("laughs at you.");
		quest::say("None shall defeat the mighty Elite Squads.");
		
}


sub EVENT_DEATH {

		quest::say("This...is...impossi--");
		quest::me("You hear Solusek Ro's name chanted quietly, as High Wizard Vivi's remains disappears.);

}


sub EVENT_SLAY {

		quest::say("None shall fight the High Wizard Council and live to tell the tale!");
		
}

Hope it helps!