From c0ba38cd4b68491e28e467889804ebc09c9c002e Mon Sep 17 00:00:00 2001
From: Ben Longbons <b.r.longbons@gmail.com>
Date: Wed, 2 Apr 2014 11:06:32 -0700
Subject: Clean up main scripts

---
 world/map/conf/magic-base.sex | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'world/map/conf/magic-base.sex')

diff --git a/world/map/conf/magic-base.sex b/world/map/conf/magic-base.sex
index 841b4d98..64b69a58 100644
--- a/world/map/conf/magic-base.sex
+++ b/world/map/conf/magic-base.sex
@@ -3069,12 +3069,14 @@
                 mes \"Do you accept?\";
                 next;
                 menu \"Yes, I do!\", L_yes,
-                     \"No.\", -;
-                close;
+                     \"No.\", L_Close;
 
                 L_yes:
                     if marriage(@caster_name$)
                         announce @caster_name$ + \" and \" + strcharinfo(0) + \" are now married!\", 0;
+                    goto L_Close;
+
+            L_Close:
                 close;
               }")
             (IF (not
-- 
cgit v1.2.3-60-g2f50