From 6127988f58f2573be584939a5fabbf9244f12dbd Mon Sep 17 00:00:00 2001 From: grue Date: Sat, 22 Jul 2006 13:00:13 +0000 Subject: [PATCH] new example darcs-hash:0cfd6a397685b455f8a69be5ed1290ca0561676e --- EXAMPLES/lifptest.lisp | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 EXAMPLES/lifptest.lisp diff --git a/EXAMPLES/lifptest.lisp b/EXAMPLES/lifptest.lisp new file mode 100644 index 0000000..61e14e9 --- /dev/null +++ b/EXAMPLES/lifptest.lisp @@ -0,0 +1,24 @@ +(if-lib::load-libs :lifp-test) + +(in-package :lifp-test) + +(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.")) + +(object bigkey (item) "big key" bigroom + (description "This is a big key. It is probably used to + open something big")) + +(object bigcrate (container) "big crate" bigroom + (name "big" "box" "crate" "keyhole") + (description "This big crate is a large container which can be closed or opened. It also has a keyhole.") + (with-keys bigkey) + (has :openable :closed :lockable :locked)) + +(supply init () + (setf *location* bigroom) + "~%~%Somehow you ended up in some big room. But hey, what do +you expect in a cheap demo game?~%~%") + \ No newline at end of file -- 2.31.1