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

Added note command

This commit is contained in:
Devine Lu Linvega 2024-05-19 21:04:06 -07:00
parent 6c0c9467e7
commit 997526e33c
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/paradise.modal
View File

@ -4,21 +4,26 @@
?(?-) (Sight) ?(?-) (Sight)
<> (print-sentence (?q ?r)) (?(?: ?:) ?q\s print-sentence ?r)
<> (print-sentence ()) (?(?: ?:) \n)
<> (print-list ?a ((:?x ?X) ((:?y ?Y) ((:?z ?Z) ?r)))) (print (You ?a a ?x, a ?y and a ?z.\n)) <> (print-list ?a ((:?x ?X) ((:?y ?Y) ((:?z ?Z) ?r)))) (print (You ?a a ?x, a ?y and a ?z.\n))
<> (print-list ?a ((:?x ?X) ((:?y ?Y) ()))) (print (You ?a a ?x and a ?y.\n)) <> (print-list ?a ((:?x ?X) ((:?y ?Y) ()))) (print (You ?a a ?x and a ?y.\n))
<> (print-list ?a ((:?x ?X) ())) (print (You ?a a ?x.\n)) <> (print-list ?a ((:?x ?X) ())) (print (You ?a a ?x.\n))
<> (print-list ?a ()) () <> (print-list ?a ()) ()
<> print-prompt (?(?: ?:) (\n|\s))
<> (:?p ((sight > $ :?V ?C) ?r)) ( <> (:?p ((sight > $ :?V ?C) ?r)) (
print (\nYou are a ?V in a ?p.\n) print (\nYou are a ?V in a ?p.\n)
print-list see ?r print-list see ?r
print-list carry ?C print-list carry ?C
print (\n|\s) print-note
:?p ((> $ :?V ?C) ?r) :?p print-prompt ((> $ :?V ?C) ?r)
) )
?(?-) (Cleanup articles) ?(?-) (Cleanup articles)
<> ((note ?q) remove-articles parse) ((note ?q) parse-special)
<> ((?x ?r) remove-articles) (clean ?r (?x ())) <> ((?x ?r) remove-articles) (clean ?r (?x ()))
<> (clean (the ?r) ?q) (clean ?r ?q) <> (clean (the ?r) ?q) (clean ?r ?q)
@ -180,7 +185,13 @@
?(?-) (Note) ?(?-) (Note)
<> ((note ?q) parse) () <> (:?p (((note ?n) parse-special sight > $ :?V ?C) ?r)) (
>< (print-note :?p)
>< (print-note)
<> (print-note :?p) (print-sentence ?n :?p)
<> (print-note) ()
:?p ((sight > $ :?V ?C) ?r)
)
<> ((quit ?q) parse sight > $) ( <> ((quit ?q) parse sight > $) (
?(?: ?:) (You fell asleep.\n) ?(?: ?:) (You fell asleep.\n)