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

Formatting

This commit is contained in:
Devine Lu Linvega 2024-05-16 18:57:06 -07:00
parent 6241612a73
commit 3295765f18
1 changed files with 36 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
src/paradise.modal
View File

@ -4,10 +4,14 @@
?(?-) (Sight)
<> (:?p ((sight > $ :?v ?c) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r))))) ((\nYou are a ?v in a ?p\nYou see a ?i, a ?j and a ?k.\n\n) print :?p ((> $ :?v ?c) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
<> (:?p ((sight > $ :?v ?c) ((:?i ?I) ((:?j ?J) ?r)))) ((\nYou are a ?v in a ?p\nYou see a ?i and a ?j.\n\n) print :?p ((> $ :?v ?c) ((:?i ?I) ((:?j ?J) ?r))))
<> (:?p ((sight > $ :?v ?c) ((:?i ?I) ?r))) ((\nYou are a ?v in a ?p\nYou see a ?i.\n\n) print :?p ((> $ :?v ?c) ((:?i ?I) ?r)))
<> (:?p ((sight > $ :?v ?c) ?r)) ((\nYou are a ?v in a ?p .\n\n) print :?p ((> $ :?v ?c) ?r))
<> (:?p ((sight > $ :?V ?c) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
((\nYou are a ?V in a ?p\nYou see a ?i, a ?j and a ?k.\n\n) print :?p ((> $ :?V ?c) ((:?i ?I) ((:?j ?J) ((:?k ?K) ?r)))))
<> (:?p ((sight > $ :?V ?c) ((:?i ?I) ((:?j ?J) ?r))))
((\nYou are a ?V in a ?p\nYou see a ?i and a ?j.\n\n) print :?p ((> $ :?V ?c) ((:?i ?I) ((:?j ?J) ?r))))
<> (:?p ((sight > $ :?V ?c) ((:?i ?I) ?r)))
((\nYou are a ?V in a ?p\nYou see a ?i.\n\n) print :?p ((> $ :?V ?c) ((:?i ?I) ?r)))
<> (:?p ((sight > $ :?V ?c) ?r))
((\nYou are a ?V in a ?p .\n\n) print :?p ((> $ :?V ?c) ?r))
?(?-) (Cleanup articles)
@ -15,36 +19,48 @@
<> ((?x (a ?q)) parse) ((?x ?q) parse)
<> ((?x (the ?q)) parse) ((?x ?q) parse)
?(?-) (Actions)
?(?-) (Parade Primitives)
<> (((create (?q ())) parse sight > $ :?v ?c) ?r) ((You created a ?q.\n) print (sight > $ :?v ?c) ((:?q ()) ?r))
<> (((create (?q ())) parse sight > $ :?V ?c) ?r)
((You created a ?q.\n) print (sight > $ :?V ?c) ((:?q ()) ?r))
<> (((become (?q ())) parse sight > $ :?v ?c) ((:?q ?x) ?r)) ((You became the ?q.\n) print (sight > $ :?q ?x) ((:?v ?c) ?r))
<> ((become (?q ())) parse) ((You don't see a ?q.\n) print)
<> (((become (?q ())) parse sight > $ :?V ?c) ((:?q ?x) ?r))
((You became the ?q.\n) print (sight > $ :?q ?x) ((:?V ?c) ?r))
<> ((become (?q ())) parse)
((You don't see a ?q.\n) print)
<> (((enter (?q ())) parse sight > $ :?v ?c) ((:?q ?a) ?r)) ((You entered the ?q.\n) print ((:?q ((sight > $ :?v ?c) ?a)) ?r))
<> ((enter (?q ())) parse) ((You don't see a ?q.\n) print)
<> (((enter (?q ())) parse sight > $ :?V ?c) ((:?q ?a) ?r))
((You entered the ?q.\n) print ((:?q ((sight > $ :?V ?c) ?a)) ?r))
<> ((enter (?q ())) parse)
((You don't see a ?q.\n) print)
<> (((:?p (((leave ()) parse sight > $ :?v ?c) ?r)) ?a)) ((You left the ?p.\n) print (sight > $ :?v ?c) ((:?p ?r) ?a))
<> ((leave ?q) parse) ((You cannot leave.\n) print)
<> (((:?p (((leave ()) parse sight > $ :?V ?c) ?r)) ?a))
((You left the ?p.\n) print (sight > $ :?V ?c) ((:?p ?r) ?a))
<> ((leave ?q) parse)
((You cannot leave.\n) print)
<> (((take (?q ())) parse sight > $ :?v ?c) ((:?q ?a) ?r)) ((You took the ?q.\n) print (sight > $ :?v ((:?q ?a) ?c)) ?r)
<> ((take (?q ())) parse) ((You don't see a ?q.\n) print)
<> (((take (?q ())) parse sight > $ :?V ?c) ((:?q ?a) ?r))
((You took the ?q.\n) print (sight > $ :?V ((:?q ?a) ?c)) ?r)
<> ((take (?q ())) parse)
((You don't see a ?q.\n) print)
<> (((drop (?q ())) parse sight > $ :?v ((:?q ?a) ?c)) ?r) ((You dropped the ?q.\n) print (sight > $ :?v ?c) ((:?q ?a) ?r))
<> ((drop (?q ())) parse) ((You don't see a ?q.\n) print)
<> (((drop (?q ())) parse sight > $ :?V ((:?q ?a) ?c)) ?r)
((You dropped the ?q.\n) print (sight > $ :?V ?c) ((:?q ?a) ?r))
<> ((drop (?q ())) parse)
((You don't see a ?q.\n) print)
<> ((transform (?q ())) parse sight > $ :?v) ((You transformed into a ?q.\n) print sight > $ :?q)
<> ((transform (?q ())) parse sight > $ :?V)
((You transformed into a ?q.\n) print sight > $ :?q)
<> ((note ?q) parse) ()
<> ((program ?q) parse) ()
<> ((use ?q) parse) ()
<> ((look ?q) parse) ()
<> ((quit ?q) parse sight > $) (?(?: ?:) (You fell asleep.\n))
?(?-) (Routing)
<> ((help ?q) parse) (TODO print)
<> ((quit ?q) parse sight > $) (?(?: ?:) (You quit.\n))
<> ((?x ?q) parse) ((Unknown action: ?x \n) print)
<> (() parse) ()
@ -52,6 +68,6 @@
<> (() input) ()
<> (?x input) (?(?* ((?*))) ?x parse)
<> (?~ $ :?v) ((?~) input sight > $ :?v)
<> (?~ $ :?V) ((?~) input sight > $ :?V)
(:library ((sight > $ :ghost ()) ((:house ((:teapot ((:moth ()) ())) ())) ())))