~rabbits/parade

997526e33cec60691d67e8dde09ff864c77795d5 — Devine Lu Linvega a month ago 6c0c946
Added note command
1 files changed, 14 insertions(+), 3 deletions(-)

M src/paradise.modal
M src/paradise.modal => src/paradise.modal +14 -3
@@ 4,21 4,26 @@

?(?-) (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) ()))) (print (You ?a a ?x and a ?y.\n))
<> (print-list ?a ((:?x ?X) ())) (print (You ?a a ?x.\n))
<> (print-list ?a ()) ()
<> print-prompt (?(?: ?:) (\n|\s))

<> (:?p ((sight > $ :?V ?C) ?r)) (
	print (\nYou are a ?V in a ?p.\n)
	print-list see ?r
	print-list carry ?C
	print (\n|\s)
	:?p ((> $ :?V ?C) ?r)
	print-note
	:?p print-prompt ((> $ :?V ?C) ?r)
)

?(?-) (Cleanup articles)

<> ((note ?q) remove-articles parse) ((note ?q) parse-special)
<> ((?x ?r) remove-articles) (clean ?r (?x ()))

<> (clean (the ?r) ?q) (clean ?r ?q)


@@ 180,7 185,13 @@

?(?-) (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 > $) (
	?(?: ?:) (You fell asleep.\n)