diff --git a/NOTES b/NOTES index 466ac10..6bef9a1 100644 --- a/NOTES +++ b/NOTES @@ -12,11 +12,17 @@ Datastructure: ())) ) +(:Vessel ()) + +## Default + +(:library ((:ghost ()) ((:house ((:teapot ((:moth ()) ())) ())) ()))) + +## Create + +(:library ((:NewVessel ()) ((:ghost ()) ((:house ((:teapot ((:moth ()) ())) ())) ())))) + + -(:library children ()) -(:ghost children ()) -(:house children ()) -(:teapot children ()) -(:moth children ()) diff --git a/src/paradise.modal b/src/paradise.modal index b5b2206..3cb4c90 100644 --- a/src/paradise.modal +++ b/src/paradise.modal @@ -11,9 +11,10 @@ <> ((?x (a ?q)) parse) ((?x ?q) parse) <> ((?x (the ?q)) parse) ((?x ?q) parse) + ?(?-) (Actions) -<> ((create (?q ())) parse sight > $ :?v ?c) ((?v created a ?q.\n) print sight > $ :?v ((:?q ()) ?c)) +<> (((create (?q ())) parse sight > $ :?v ?c) ?r) ((You created a ?q.\n) print (:?q ()) ((sight > $ :?v ?c) ?r)) <> ((become ?q) parse) () <> ((enter ?q) parse) () <> ((leave ?q) parse) ()