From: grue Date: Mon, 14 Aug 2006 12:03:30 +0000 (+0000) Subject: upd advent.lisp so it works X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=refs%2Fheads%2Fmaster;p=lifp.git upd advent.lisp so it works darcs-hash:d6e30e0b4514dad496fde0f253cb96406ccd1e46 --- diff --git a/EXAMPLES/advent.lisp b/EXAMPLES/advent.lisp index fd86b04..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,7 +346,7 @@ "strong" "steel" "grating") (description "It just looks like an ordinary grate mounted in concrete.") - (key 'set-of-keys) + (with-keys set-of-keys) (direction (lambda () (if (eql *location* below-the-grate) 'u-to 'd-to))) (destination @@ -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)) - - - - - - - - -