From 3310e25de23917ca9ffdb7d435b893b398f19b2f Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 29 Oct 2018 11:44:36 -0300
Subject: Hm... @Saulc will hate this commit and blame me %%n Even so, this is
 not permanent. I mean, some mechanic is, but price isn't. Price will probably
 rely on a few other elements...

---
 npc/009-1/_import.txt    |  1 +
 npc/009-1/teleporter.txt | 54 ++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+)
 create mode 100644 npc/009-1/teleporter.txt

(limited to 'npc/009-1')

diff --git a/npc/009-1/_import.txt b/npc/009-1/_import.txt
index 0d482e907..e91e09873 100644
--- a/npc/009-1/_import.txt
+++ b/npc/009-1/_import.txt
@@ -9,3 +9,4 @@
 "npc/009-1/lynnthetraveler.txt",
 "npc/009-1/mapflags.txt",
 "npc/009-1/soul-menhir.txt",
+"npc/009-1/teleporter.txt",
diff --git a/npc/009-1/teleporter.txt b/npc/009-1/teleporter.txt
new file mode 100644
index 000000000..a5a401149
--- /dev/null
+++ b/npc/009-1/teleporter.txt
@@ -0,0 +1,54 @@
+// TMW2 Script
+// Authors:
+//    Jesusalva
+// Description:
+//    Link portals to soul menhirs like the teleporters from old
+//    The price is temporary. This feature got in because no ship in Nivalis Port
+//    PS. Anise => “Aisen” Anagram
+
+
+024-1,155,80,0	script	#WarpGateFrost	NPC_NO_SPRITE,1,0,{
+    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(EverburnPowder)), 1;
+    if (!countitem(EverburnPowder))
+        close;
+    next;
+    select
+        rif(TELEPORTERS & TP_FROST, l("Frostia")),
+        rif(TELEPORTERS & TP_HALIN && 0, l("Halinarzo")),
+        rif(TELEPORTERS & TP_TULIM, l("Tulimshar")),
+        rif(TELEPORTERS & TP_HURNS, l("Hurnscald")),
+        rif(TELEPORTERS & TP_NIVAL, l("Nivalis")),
+        rif(TELEPORTERS & TP_ARTIS, l("Artis")),
+        rif(TELEPORTERS & TP_ESPER, l("Esperia")),
+        rif(TELEPORTERS & TP_BOSSR, l("The Monster King Fortress")),
+        l("None");
+    mes "";
+    if (@menu != 9)
+        delitem EverburnPowder, 1;
+    closedialog;
+    switch (@menu) {
+        case 1:
+            warp "024-1", 155, 82; break;
+        default:
+            close;
+    }
+
+    close;
+
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
-- 
cgit v1.2.3-60-g2f50