bug fixes to gamebook engine

daelsepara · Aug 15, 2020 · 01dab04 · 01dab04
1 parent 3727f74
commit 01dab04
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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>