From e8f7ffe230492fb299bc7f6d9063dc3191c6e05d Mon Sep 17 00:00:00 2001
From: gumi <git@gumi.ca>
Date: Wed, 17 Jan 2018 15:06:10 -0500
Subject: improve GM event portals

---
 world/map/npc/functions/gm_island.txt | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'world')

diff --git a/world/map/npc/functions/gm_island.txt b/world/map/npc/functions/gm_island.txt
index 1bd7b5e9..97fd8230 100644
--- a/world/map/npc/functions/gm_island.txt
+++ b/world/map/npc/functions/gm_island.txt
@@ -11,7 +11,10 @@ OnInit:
 }
 function|script|GmWarp
 {
-    warp "028-1", 110, 30;
+    if ($@GM_EVENT_WARP == 1) warp "028-1", 110, 30;
+    if ($@GM_EVENT_WARP == 2) warp "028-1", 119, 74;
+    if ($@GM_EVENT_WARP == 3) warp "028-3", 68, 36;
+    if ($@GM_EVENT_WARP == 4) warp "001-3", 0, 0;
     return;
 }
 function|script|GmDebug
@@ -19,11 +22,20 @@ function|script|GmDebug
     mes "[GM Debug]";
     mes "What do you want to do?";
     menu
-        "Open Event Portals.", L_GmStart,
+        "Open Event Portals.", L_GmChoose,
         "Close Event Portals.", L_GmStop,
         "Disguise.", L_Disguise;
 
+L_GmChoose:
+    mes "Choose a destination:";
+    menu
+        "GM Island (entrance)", L_GmStart,
+        "GM Island (auditorium)", L_GmStart,
+        "GM Island (cave)", L_GmStart,
+        "Tulimshar Arena", L_GmStart;
+
 L_GmStart:
+    set $@GM_EVENT_WARP, @menu;
     enablenpc "Gm Event#1";
     enablenpc "Gm Event#2";
     enablenpc "Gm Event#3";
-- 
cgit v1.2.3-70-g09d2