From 01dab049c64f10f8c46637bd3257a7fb05bd727e Mon Sep 17 00:00:00 2001
From: Dael <dael.separa@gmail.com>
Date: Sat, 15 Aug 2020 22:43:46 +0800
Subject: [PATCH] bug fixes to gamebook engine

---
 src/gamebook.zil | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/gamebook.zil b/src/gamebook.zil
index 8bed7c7..26f5c34 100644
--- a/src/gamebook.zil
+++ b/src/gamebook.zil
@@ -173,7 +173,7 @@
         <SET KEY <INPUT 1>>
         <COND (<AND <G=? .KEY !\1> <L=? .KEY !\9>>
             <SET CHOICE <- .KEY !\0>>
-            <COND (<AND <G=? .CHOICES 1> <L=? .CHOICE <GET .CHOICES 0>>>
+            <COND (<AND <G=? <GET .CHOICES 0> 1> <L=? .CHOICE <GET .CHOICES 0>>>
                 <COND (<AND <G=? .CHOICE 1> <L=? .CHOICE <GET .DESTINATIONS 0>> <L=? .CHOICE <GET .TYPES 0>>>
                     <SET TYPE <GET .TYPES .CHOICE>>
                     <COND (<EQUAL? .TYPE R-NONE>
@@ -1394,7 +1394,7 @@
             >
             <COND (<AND <G=? .KEY !\1> <L=? .KEY !\9>>
                 <SET CHOICE <- .KEY !\0>>
-                <COND (<AND <G=? CHARACTERS 1> <G=? .CHOICE 1> <L=? .CHOICE <GET CHARACTERS 0>>>
+                <COND (<AND <G=? <GET CHARACTERS 0> 1> <G=? .CHOICE 1> <L=? .CHOICE <GET CHARACTERS 0>>>
                     <SET CHARACTER <GET CHARACTERS .CHOICE>>
                     <CRLF>
                     <DESCRIBE-CHARACTER .CHARACTER>