Working create action

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 ())
 

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) ()