Better fix.

1 files changed, 9 insertions, 9 deletions

diff --git a/npc/functions/soul_menhir.txt b/npc/functions/soul_menhir.txt
index ecde37287..8afd10bdc 100644
--- a/npc/functions/soul_menhir.txt
+++ b/npc/functions/soul_menhir.txt
@@ -3,6 +3,14 @@
 // With parts from The Mana World.
 
 function	script	SoulMenhir	{
+    // Create @x and @y for this script
+    @n = rand2(getarraysize(@Xs));
+    @x = @Xs[@n];
+    @y = @Ys[@n];
+    deletearray @Xs;
+    deletearray @Ys;
+    @n = 0;
+
     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?)");
 
@@ -40,14 +48,6 @@ L_Shortversion:
     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:
-    @n = rand2(getarraysize(@Xs));
-    @x = @Xs[@n];
-    @y = @Ys[@n];
-    deletearray @Xs;
-    deletearray @Ys;
-    goto L_Do_Save;
-
 L_Aeros:
     if (!$@GM_EVENT) goto L_DontPanic;
     .@gt=$@AEROS_SPWN;
@@ -95,7 +95,7 @@ L_DontPanic:
     message strcharinfo(0), l("(A strange barrier keeps you from touching the stone at this time.)");
     return;
 
-L_Do_Save:
+L_Save:
     if (GSET_SOULMENHIR_MANUAL) {
         savepoint @map$, @x, @y;
         specialeffect(4, SELF, getcharid(3));