From e5439ada23860bf478a53221ce28eecafdc1a967 Mon Sep 17 00:00:00 2001
From: jesusalva <cpntb1@ymail.com>
Date: Fri, 9 Feb 2018 18:58:41 -0200
Subject: Include Soul Menhir scripts. This is still a work in progress.

---
 npc/functions/soul_menhir.txt | 55 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 npc/functions/soul_menhir.txt

(limited to 'npc/functions/soul_menhir.txt')

diff --git a/npc/functions/soul_menhir.txt b/npc/functions/soul_menhir.txt
new file mode 100644
index 000000000..75079c33a
--- /dev/null
+++ b/npc/functions/soul_menhir.txt
@@ -0,0 +1,55 @@
+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?)";
+
+    menu
+        "Touch it.", L_Bind,
+        "Leave it alone.", L_Return;
+
+//L_Towel:
+//    if (TowelLastUsed > (gettimetick(2) - 1800))
+//        goto L_DontPanic;
+//    TowelLastUsed = gettimetick(2);
+//    mes "[Soul Menhir]";
+//    mes "(You touch the mysterious stone. Somehow it feels hard and soft at the same time.)";
+//    getitem "HitchhikersTowel", 1;
+//    goto L_Return;
+
+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.)";
+    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.)";
+    goto L_Save;
+
+L_Save:
+    if (@x == 0 && @y == 0)
+        goto L_FindPoint;
+    goto L_Do_Save;
+
+L_DontPanic:
+    message strcharinfo(0), "(A strange barrier keeps you from touching the stone at this time.)";
+    goto L_Return;
+
+L_Do_Save:
+    savepoint @map$, @x, @y;
+    goto L_Return;
+
+L_FindPoint:
+    @n = rand(getarraysize(@Xs));
+    @x = @Xs[@n];
+    @y = @Ys[@n];
+    goto L_Do_Save;
+
+L_Return:
+    return;
+}
-- 
cgit v1.2.3-60-g2f50