From 4bde6d4604086913339d06763cc08cfa0b170473 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 17 Mar 2019 00:24:42 -0300
Subject: Add Lilit to Anise Inc. Teleporters

---
 npc/018-5/_import.txt    |  1 +
 npc/018-5/teleporter.txt | 61 ++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 62 insertions(+)
 create mode 100644 npc/018-5/teleporter.txt

(limited to 'npc/018-5')

diff --git a/npc/018-5/_import.txt b/npc/018-5/_import.txt
index f411db7bb..5cfa0f52f 100644
--- a/npc/018-5/_import.txt
+++ b/npc/018-5/_import.txt
@@ -3,4 +3,5 @@
 "npc/018-5/_mobs.txt",
 "npc/018-5/_warps.txt",
 "npc/018-5/soul_menhir.txt",
+"npc/018-5/teleporter.txt",
 "npc/018-5/town.txt",
diff --git a/npc/018-5/teleporter.txt b/npc/018-5/teleporter.txt
new file mode 100644
index 000000000..542aee62e
--- /dev/null
+++ b/npc/018-5/teleporter.txt
@@ -0,0 +1,61 @@
+// 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
+
+
+018-5,89,45,0	script	#WarpGateLilit	NPC_NO_SPRITE,1,0,{
+    end;
+
+OnTouch:
+    if (!(TELEPORTERS & TP_LILIT)) {
+        TELEPORTERS=TELEPORTERS|TP_LILIT;
+        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, l("Halinarzo")),
+        rif(TELEPORTERS & TP_LILIT && 0, l("Lilit")),
+        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;
+        case 2:
+            warp "009-1", 113, 91; 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;
+    }
+
+    close;
+
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+    end;
+}
+
-- 
cgit v1.2.3-60-g2f50