Add Lilit to Anise Inc. Teleporters

6 files changed, 71 insertions, 2 deletions

diff --git a/db/constants.conf b/db/constants.conf
index ccdd1553b..f84fde3a9 100644
--- a/db/constants.conf
+++ b/db/constants.conf
@@ -4237,6 +4237,7 @@ constants_db: {
 	TP_ARTIS:               32
 	TP_ESPER:               64
 	TP_BOSSR:               128
+	TP_LILIT:               256
 
 	comment__: "Grand Collector Quest enum"
 	COLLECT_CHESTPLATE:     1
diff --git a/maps/re/018-5-2.mcache b/maps/re/018-5-2.mcache
index 01990dc0f..aed84bf35 100644
--- a/maps/re/018-5-2.mcache
+++ b/maps/re/018-5-2.mcache
diff --git a/npc/009-1/teleporter.txt b/npc/009-1/teleporter.txt
index 7491b045e..fddd3922a 100644
--- a/npc/009-1/teleporter.txt
+++ b/npc/009-1/teleporter.txt
@@ -25,6 +25,7 @@ OnTouch:
     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")),
@@ -40,8 +41,10 @@ OnTouch:
         case 1:
             warp "024-1", 155, 82; break;
         case 3:
-            warp "003-1", any(40, 41), 49; break;
+            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;
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;
+}
+
diff --git a/npc/024-1/teleporter.txt b/npc/024-1/teleporter.txt
index 1e29472a1..e1724b89e 100644
--- a/npc/024-1/teleporter.txt
+++ b/npc/024-1/teleporter.txt
@@ -25,6 +25,7 @@ OnTouch:
     select
         rif(TELEPORTERS & TP_FROST && 0, l("Frostia")),
         rif(TELEPORTERS & TP_HALIN, 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")),
@@ -40,8 +41,10 @@ OnTouch:
         case 2:
             warp "009-1", 113, 91; break;
         case 3:
-            warp "003-1", any(40, 41), 49; break;
+            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;