Soul Menhirs can send players to Aeros. The portal can be used to go back or enable event.

1 files changed, 19 insertions, 12 deletions

diff --git a/npc/functions/soul_menhir.txt b/npc/functions/soul_menhir.txt
index 78b28a44a..838b5d868 100644
--- a/npc/functions/soul_menhir.txt
+++ b/npc/functions/soul_menhir.txt
@@ -1,16 +1,17 @@
 function	script	SoulMenhir	{
-    mes "[Soul Menhir]";
-    mes "(A mystical aura surrounds this stone. You feel mysteriously attracted to it. Something tells you to touch it. What do you do?)";
+    mes l("[Soul Menhir]");
+    mes l("(A mystical aura surrounds this stone. You feel mysteriously attracted to it. Something tells you to touch it. What do you do?)");
 
     menu
-        "Touch it.", L_Bind,
-        "Leave it alone.", L_Return;
+        l("Touch it."), L_Bind,
+        rif($@GM_EVENT, l("Send soul to the Mana Plane for GM events")), L_Aeros,
+        l("Leave it alone."), L_Return;
 
 //L_Towel:
 //    if (TowelLastUsed > (gettimetick(2) - 1800))
 //        goto L_DontPanic;
 //    TowelLastUsed = gettimetick(2);
-//    mes "[Soul Menhir]";
+//    mes l("[Soul Menhir]");
 //    mes "(You touch the mysterious stone. Somehow it feels hard and soft at the same time.)";
 //    getitem "HitchhikersTowel", 1;
 //    goto L_Return;
@@ -19,16 +20,16 @@ L_Bind:
     if (Menhir_Activated == 1)
         goto L_Shortversion;
 
-    mes "[Soul Menhir]";
-    mes "(You touch the mysterious stone. Somehow it feels warm and cold at the same time.)";
-    mes "(Suddenly a strange sensation flows through you. It feels like your soul leaves your body and becomes one with the stone.)";
-    mes "(As suddenly as the feeling started it stops. The strange attraction is away from one moment to the next and the menhir feels like just an ordinary stone.)";
+    mes l("[Soul Menhir]");
+    mes l("(You touch the mysterious stone. Somehow it feels warm and cold at the same time.)");
+    mes l("(Suddenly a strange sensation flows through you. It feels like your soul leaves your body and becomes one with the stone.)");
+    mes l("(As suddenly as the feeling started it stops. The strange attraction is away from one moment to the next and the menhir feels like just an ordinary stone.)");
     Menhir_Activated = 1;
     goto L_Save;
 
 L_Shortversion:
-    mes "[Soul Menhir]";
-    mes "(A strange sensation flows through you. It feels like your soul leaves your body and becomes one with the stone. As suddenly as the feeling started it stops.)";
+    mes l("[Soul Menhir]");
+    mes l("(A strange sensation flows through you. It feels like your soul leaves your body and becomes one with the stone. As suddenly as the feeling started it stops.)");
     goto L_Save;
 
 L_Save:
@@ -36,8 +37,14 @@ L_Save:
         goto L_FindPoint;
     goto L_Do_Save;
 
+L_Aeros:
+    if (!$@GM_EVENT) goto L_DontPanic;
+    warp "001-1", 235, 26;
+    message strcharinfo(0), l("You are now at the Mana Plane of Existence, at the Floating Island of Aeros.");
+    close;
+
 L_DontPanic:
-    message strcharinfo(0), "(A strange barrier keeps you from touching the stone at this time.)";
+    message strcharinfo(0), l("(A strange barrier keeps you from touching the stone at this time.)");
     goto L_Return;
 
 L_Do_Save: