X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=EXAMPLES%2Fadvent.lisp;h=f15d28c5f3589449e67afcbffca5fdb0faec6e4e;hb=2d1a6f87c4d559af53eb5e5f0fe571caf14f8b29;hp=e768c049568a651e90ba0740037cc7aaf9d85232;hpb=291bf6649b6f445d7588c1d4c5a906ad2456fe03;p=lifp.git

diff --git a/EXAMPLES/advent.lisp b/EXAMPLES/advent.lisp
index e768c04..f15d28c 100644
--- a/EXAMPLES/advent.lisp
+++ b/EXAMPLES/advent.lisp
@@ -319,6 +319,8 @@
         (name "bed" "streambed" "rock" "small" "rocky" "bare" "dry")
         (found-in in-a-valley at-slit-in-streambed))        
 
+(ref grate)
+
 (object outside-grate (above-ground) "Outside Grate"
         (description "You are in a 20-foot depression floored with 
                 bare dirt. Set into the dirt is a strong steel grate 
@@ -344,10 +346,10 @@
               "strong" "steel" "grating")
         (description "It just looks like an ordinary grate
                       mounted in concrete.")
-        (key 'set-of-keys)
-        (door-dir
+        (with-keys set-of-keys)
+        (direction
          (lambda () (if (eql *location* below-the-grate) 'u-to 'd-to)))
-        (door-to
+        (destination
          (lambda () (if (eql *location* below-the-grate)
                         outside-grate below-the-grate)))
         (glance
@@ -365,15 +367,6 @@
                steel grate to the surface. A low crawl over
                cobbles leads inward to the west.")
         (w-to 'in-cobble-crawl) (u-to 'grate))
-        
-        
-        
-        
-          
-
-
-
-