neauoire
/
parade
mirror of https://git.sr.ht/~rabbits/parade
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed answer bugs

This commit is contained in:
Devine Lu Linvega 2024-05-19 15:27:21 -07:00
parent a2279cbe99
commit e0ea0b9152
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/paradise.modal
View File

@ -21,6 +21,7 @@
<> ((?x (into ?q)) parse) ((?x ?q) parse)
<> ((?x (a ?q)) parse) ((?x ?q) parse)
<> ((?x (an ?q)) parse) ((?x ?q) parse)
<> ((?x (the ?q)) parse) ((?x ?q) parse)
<> ((?x (?a (?b ()))) parse) ((?x (?a\s?b ())) parse)
<> ((?x (?a (?b (in (the (?c ())))))) parse) ((?x (?a\s?b (?c ()))) parse)
@ -74,7 +75,7 @@
)
<> (((enter ?v) wait :?V ?C) ((<- ?v :?v ?c) ?r)) (
print (You entered the ?q.\n)
print (You entered the ?v.\n)
((:?v ((sight > $ :?V ?C) ?c)) ?r)
)
@ -106,7 +107,7 @@
)
<> (((take ?v) wait :?V ?C) ((<- ?v :?v ?c) ?r)) (
print (You took the ?q.\n)
print (You took the ?v.\n)
(sight > $ :?V ((:?v ?c) ?C)) ?r
)
@ -127,7 +128,7 @@
)
<> (((drop ?v) wait :?V ((<- ?v :?v ?c) ?C)) ?r) (
print (You dropped the ?q.\n)
print (You dropped the ?v.\n)
(sight > $ :?V ?C) ((:?v ?c) ?r)
)
@ -161,8 +162,6 @@
((move ?a ?b) wait :?V ?C) ((-> ?b :?v ?c) ?r)
)
?(?-) (Look)
?(?-) (Transform)
<> ((transform (?q ())) parse sight > $ :?V) (