1 (if-lib::load-libs :lifp-test)
\r
3 (in-package :lifp-test)
\r
5 (object bigroom (room) "The Big Room"
\r
6 (description "This is the Big Room. It's main purpose is
\r
7 to host the devices that are used to test various
\r
10 (object bigkey (item) "big key" bigroom
\r
11 (description "This is a big key. It is probably used to
\r
12 open something big"))
\r
14 (object bigcrate (container) "big crate" bigroom
\r
15 (name "big" "box" "crate" "keyhole")
\r
16 (description "This big crate is a large container which can be closed or opened. It also has a keyhole.")
\r
18 (has :openable :closed :lockable :locked))
\r
21 (setf *location* bigroom)
\r
22 "~%~%Somehow you ended up in some big room. But hey, what do
\r
23 you expect in a cheap demo game?~%~%")
\r