Active vessel will alwayd float up the tree

This commit is contained in:
Devine Lu Linvega 2024-05-16 08:32:59 -07:00
parent 9a8c307b39
commit 9467669f4f
2 changed files with 4 additions and 7 deletions

6
NOTES
View File

@ -18,11 +18,9 @@ Datastructure:
(:library ((:ghost ()) ((:house ((:teapot ((:moth ()) ())) ())) ())))
## Create
## Create a NewVessel
(:library ((:NewVessel ()) ((:ghost ()) ((:house ((:teapot ((:moth ()) ())) ())) ()))))
## Take the NewVessel

View File

@ -4,17 +4,16 @@
?(?-) (Sight)
<> (sight > $ :?v) ((\nYou are a ?v.\n\n) print > $ :?v)
<> (:?p ((sight > $ :?v ?c) ?r)) (((\nYou are a ?v in a ?p.\n\n) print > $ :?v ?c) ?r)
?(?-) (Cleanup articles)
<> ((?x (a ?q)) parse) ((?x ?q) parse)
<> ((?x (the ?q)) parse) ((?x ?q) parse)
?(?-) (Actions)
<> (((create (?q ())) parse sight > $ :?v ?c) ?r) ((You created a ?q.\n) print (:?q ()) ((sight > $ :?v ?c) ?r))
<> (((create (?q ())) parse sight > $ :?v ?c) ?r) ((You created a ?q.\n) print (sight > $ :?v ?c) ((:?q ()) ?r))
<> ((become ?q) parse) ()
<> ((enter ?q) parse) ()
<> ((leave ?q) parse) ()