upd advent.lisp so it works

[lifp.git] / EXAMPLES / advent.lisp

diff --git a/EXAMPLES/advent.lisp b/EXAMPLES/advent.lisp
index e768c049568a651e90ba0740037cc7aaf9d85232..f15d28c5f3589449e67afcbffca5fdb0faec6e4e 100644 (file)
--- a/EXAMPLES/advent.lisp
+++ b/EXAMPLES/advent.lisp
@@ -319,6 +319,8 @@
         (name "bed" "streambed" "rock" "small" "rocky" "bare" "dry")\r
         (found-in in-a-valley at-slit-in-streambed))        \r
 \r
         (name "bed" "streambed" "rock" "small" "rocky" "bare" "dry")\r
         (found-in in-a-valley at-slit-in-streambed))        \r
 \r

+(ref grate)\r
+\r

 (object outside-grate (above-ground) "Outside Grate"\r
         (description "You are in a 20-foot depression floored with \r
                 bare dirt. Set into the dirt is a strong steel grate \r
 (object outside-grate (above-ground) "Outside Grate"\r
         (description "You are in a 20-foot depression floored with \r
                 bare dirt. Set into the dirt is a strong steel grate \r


@@ -344,10 +346,10 @@
               "strong" "steel" "grating")\r
         (description "It just looks like an ordinary grate\r
                       mounted in concrete.")\r
               "strong" "steel" "grating")\r
         (description "It just looks like an ordinary grate\r
                       mounted in concrete.")\r

-        (key 'set-of-keys)\r
-        (door-dir\r
+        (with-keys set-of-keys)\r
+        (direction\r

          (lambda () (if (eql *location* below-the-grate) 'u-to 'd-to)))\r
          (lambda () (if (eql *location* below-the-grate) 'u-to 'd-to)))\r

-        (door-to\r
+        (destination\r

          (lambda () (if (eql *location* below-the-grate)\r
                         outside-grate below-the-grate)))\r
         (glance\r
          (lambda () (if (eql *location* below-the-grate)\r
                         outside-grate below-the-grate)))\r
         (glance\r


@@ -365,15 +367,6 @@
                steel grate to the surface. A low crawl over\r
                cobbles leads inward to the west.")\r
         (w-to 'in-cobble-crawl) (u-to 'grate))\r
                steel grate to the surface. A low crawl over\r
                cobbles leads inward to the west.")\r
         (w-to 'in-cobble-crawl) (u-to 'grate))\r

-        \r
-        \r
-        \r
-        \r
-          \r
-\r
-\r
-\r
-\r

 \r
 \r
 \r
 \r
 \r
 \r