From a20fe9a0fd48c1c708db327897f3df660131cdc0 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Fri, 22 Jun 2018 09:44:58 -0300
Subject: Fix sleepy typing

---
 npc/001-1/portal.txt | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'npc/001-1')

diff --git a/npc/001-1/portal.txt b/npc/001-1/portal.txt
index cb5fbeb2d..3cead0d6d 100644
--- a/npc/001-1/portal.txt
+++ b/npc/001-1/portal.txt
@@ -75,11 +75,12 @@ OnTouch:
     mesn;
     mes l("This Portal can send your soul back to the world, along any items, money and/or experience gained.");
     mes l("Would you like to leave this place?");
-    menu
-        l("No."), L_Close,
-        l("Yes."), L_Leave;
+    select
+        l("No."),
+        l("Yes.");
 
-L_Leave:
-    warp getsavepoint(0), getsavepoint(1), getsavepoint(2);
-    goto L_Close;
+    if (@menu == 2)
+        warp getsavepoint(0), getsavepoint(1), getsavepoint(2);
+    closedialog;
+    close;
 }
-- 
cgit v1.2.3-70-g09d2