X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=EXAMPLES%2Flifptest.lisp;fp=EXAMPLES%2Flifptest.lisp;h=0ed87797d8b87bde7d2968cbb3e782ad31b9d633;hb=2624b2069897898a92d247cab9781989df240110;hp=61e14e91690469f24fd041c49fd7f43302ff6c82;hpb=447a18ccfc600c416a481266ecac28cd2ecd720f;p=lifp.git

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