summaryrefslogtreecommitdiff
path: root/npc/functions/soul_menhir.txt
diff options
context:
space:
mode:
authorBen Longbons <b.r.longbons@gmail.com>2011-06-18 21:58:47 -0700
committerBen Longbons <b.r.longbons@gmail.com>2011-06-19 14:19:55 -0700
commitbae4b92e560c2694eaaf0e8b4d9e95e56204471b (patch)
tree4acc120f6a94cfbf9694bf344658493de5aaa67b /npc/functions/soul_menhir.txt
parent319f80526f8585ecadaec986e37c9bd326f4d363 (diff)
downloadserverdata-bae4b92e560c2694eaaf0e8b4d9e95e56204471b.tar.gz
serverdata-bae4b92e560c2694eaaf0e8b4d9e95e56204471b.tar.bz2
serverdata-bae4b92e560c2694eaaf0e8b4d9e95e56204471b.tar.xz
serverdata-bae4b92e560c2694eaaf0e8b4d9e95e56204471b.zip
Move to a subdirectory
Diffstat (limited to 'npc/functions/soul_menhir.txt')
-rw-r--r--npc/functions/soul_menhir.txt47
1 files changed, 0 insertions, 47 deletions
diff --git a/npc/functions/soul_menhir.txt b/npc/functions/soul_menhir.txt
deleted file mode 100644
index a98681c6..00000000
--- a/npc/functions/soul_menhir.txt
+++ /dev/null
@@ -1,47 +0,0 @@
-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?)";
- next;
-
- menu
- "Touch it", -,
- "Leave it alone", L_Return;
-
- if (Menhir_Activated == 1) goto L_Shortversion;
-
- mes "[Soul Menhir]";
- mes "(You touch the mysteriouse stone. Somehow it feels warm and cold at the same time.)";
- next;
-
- mes "[Soul Menhir]";
- mes "(Suddenly a strange sensation flows through you. It feels like your soul leaves your body and becomes one with the stone.)";
- next;
-
- mes "[Soul Menhir]";
- 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.)";
- next;
-
- set 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.)";
- next;
-
-L_Save:
- if (@x == 0 && @y == 0) goto L_FindPoint;
-
-L_Do_Save:
- savepoint @map$, @x, @y;
- goto L_Return;
-
-L_FindPoint:
- set @n, rand(getarraysize(@Xs));
- set @x, @Xs[@n];
- set @y, @Ys[@n];
- goto L_Do_Save;
-
-L_Return:
- return;
-}