mirror of https://git.sr.ht/~rabbits/parade
Added note command
This commit is contained in:
parent
6c0c9467e7
commit
997526e33c
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue