various bugfixes + updated example

[lifp.git] / EXAMPLES / lifptest.lisp

diff --git a/EXAMPLES/lifptest.lisp b/EXAMPLES/lifptest.lisp
index 61e14e91690469f24fd041c49fd7f43302ff6c82..0ed87797d8b87bde7d2968cbb3e782ad31b9d633 100644 (file)
--- a/EXAMPLES/lifptest.lisp
+++ b/EXAMPLES/lifptest.lisp
@@ -5,7 +5,8 @@
 (object bigroom (room) "The Big Room"\r
         (description "This is the Big Room. It's main purpose is\r
         to host the devices that are used to test various\r
-        features of LIFP."))\r
+        features of LIFP. The door to the north leads to closet.")\r
+        (n-to 'closetdoor))\r
 \r
 (object bigkey (item) "big key" bigroom\r
         (description "This is a big key. It is probably used to\r
@@ -17,6 +18,15 @@
         (with-keys bigkey)\r
         (has :openable :closed :lockable :locked))\r
 \r
+(object closetdoor (door) "door to closet" bigroom\r
+        (name "door")\r
+        (description "The door that leads to closet")\r
+        (destination 'closet))\r
+\r
+(object closet (room) "Small Closet"\r
+        (description "This closet is small and dimly lit.")\r
+        (s-to 'bigroom))\r
+\r
 (supply init ()\r
    (setf *location* bigroom)\r
    "~%~%Somehow you ended up in some big room. But hey, what do\r