Refactor teleport gates and ensure they all work

1 files changed, 1 insertions, 39 deletions

diff --git a/npc/009-1/teleporter.txt b/npc/009-1/teleporter.txt
index f36abc917..85d85ef5d 100644
--- a/npc/009-1/teleporter.txt
+++ b/npc/009-1/teleporter.txt
@@ -11,45 +11,7 @@
     end;
 
 OnTouch:
-    if (!(TELEPORTERS & TP_HALIN)) {
-        TELEPORTERS=TELEPORTERS|TP_HALIN;
-        mesn "Anise Inc.";
-        mesc l("Location Registered. You are now capable to use this warp gate.");
-        next;
-    }
-    mesc l("Where should I warp to?");
-    mesc l("Cost: 1 @@", getitemlink(PileOfAsh)), 1;
-    if (!countitem(PileOfAsh))
-        close;
-    next;
-    select
-        rif(TELEPORTERS & TP_FROST, l("Frostia")),
-        rif(TELEPORTERS & TP_HALIN && 0, l("Halinarzo")),
-        rif(TELEPORTERS & TP_LILIT, l("Lilit")),
-        rif(TELEPORTERS & TP_TULIM, l("Tulimshar")),
-        rif(TELEPORTERS & TP_HURNS, l("Hurnscald")),
-        rif(TELEPORTERS & TP_NIVAL, l("Nivalis")),
-        rif(TELEPORTERS & TP_LOF,   l("Land Of Fire")),
-        rif(TELEPORTERS & TP_FORT,  l("Fortress Island")),
-        rif(TELEPORTERS & TP_BOSSR, l("The Monster King Fortress")),
-        l("None");
-    mes "";
-    if (@menu != 9)
-        delitem PileOfAsh, 1;
-    closedialog;
-    switch (@menu) {
-        case 1:
-            warp "024-1", 155, 82; break;
-        case 3:
-            warp "018-5", any(89, 90), 45; break;
-        case 4:
-            warp "003-1", any(40, 41), 49; break;
-        case 5:
-            warp "012-1", any(86, 87), any(69, 70); break;
-        default:
-            close;
-    }
-
+    TeleporterGate(TP_HALIN);
     close;