From 9795b7521879c79c742947dcf27a0d51a9b586df Mon Sep 17 00:00:00 2001
From: TurmoilToad <TurmoilToad@gmail.com>
Date: Mon, 5 Nov 2018 22:31:45 -0500
Subject: [PATCH] Created Teleport your Players (markdown)

---
 Teleport-your-Players.md | 64 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 Teleport-your-Players.md

diff --git a/Teleport-your-Players.md b/Teleport-your-Players.md
new file mode 100644
index 0000000..27592fc
--- /dev/null
+++ b/Teleport-your-Players.md
@@ -0,0 +1,64 @@
+Below is an example of a quest script for an NPC that can teleport your players. Ths scripts would go in your quest scripts directory, and would be named appropriately based on the NPC that you will create to transport your players.
+
+# Old World Porter
+
+* File Name (example): Roald_Teavee.pl
+* Description: This script will name translocate targets and teleport your player based on the target of their choosing.
+
+```perl
+sub EVENT_SAY {
+	if ($text =~ /Hail/i) {
+		quest::say("Hello. $name!  I am practicing the arcane art of [" . quest::saylink("teleportation") . "].  Would you like to try teleporting?");
+	}
+	elsif ($text =~ /teleportation/i) {
+		quest::say("I have mastered teleporting adventurers to [" . quest::saylink("Antonica") . "], [" . quest::saylink("Faydwer") . "], and [" . quest::saylink("Odus") . "].  Where would you like to travel?");
+	}
+	elsif ($text =~ /Antonica/i) {
+		quest::say("I have mastered transport to [" . quest::saylink("Nektulos Forest") . "], [" . quest::saylink("The Northern Desert of Ro") . "], [" . quest::saylink("The Northern Plains of Karana") . "], [" . quest::saylink("The Temple of Cazic Thule") . "], [" . quest::saylink("The Western Commonlands") . "]and [" . quest::saylink("The Western Plains of Karana") . "].  Where would you like to go?");
+	}
+	elsif ($text =~ /Faydwer/i) {
+		quest::say("I have mastered transport to [" . quest::saylink("The Greater Faydark") . "].  Where would you like to go?");
+	}
+	elsif ($text =~ /Odus/i) {
+		quest::say("I have mastered transport to [" . quest::saylink("Toxxulia Forest") . "].  Where would you like to go?");
+	}
+	elsif ($text =~ /Nektulos Forest/i) {
+		quest::say("Begone!");
+		$npc->CastSpell(1371, $userid);
+	}
+	elsif ($text =~ /The Northern Desert of Ro/i) {
+		quest::say("Begone!");
+		$npc->CastSpell(1373, $userid);
+	}
+	elsif ($text =~ /The Northern Plains of Karana/i) {
+		quest::say("Begone!");
+		$npc->CastSpell(1338, $userid);
+	}
+	elsif ($text =~ /The Temple of Cazic Thule/i) {
+		quest::say("Begone!");
+		$npc->CastSpell(1375, $userid);
+	}
+	elsif ($text =~ /The Western Commonlands/i) {
+		quest::say("Begone!");
+		$npc->CastSpell(1372, $userid);
+	}
+	elsif ($text =~ /The Western Plains of Karana/i) {
+		quest::say("Begone!");
+		$npc->CastSpell(1374, $userid);
+	}
+	elsif ($text =~ /The Greater Faydark/i) {
+		quest::say("Begone!");
+		$npc->CastSpell(1336, $userid);
+	}
+	elsif ($text =~ /Toxxulia Forest/i) {
+		quest::say("Begone!");
+		$npc->CastSpell(1337, $userid);
+	}
+
+}
+
+sub EVENT_ITEM {
+	#:: Return unused items
+	plugin::returnUnusedItems();
+}
+```
\ No newline at end of file