new example
Sat Jul 22 06:00:13 PDT 2006 grue@mail.ru
* new example
diff -rN -u old-lifp/EXAMPLES/lifptest.lisp new-lifp/EXAMPLES/lifptest.lisp
--- old-lifp/EXAMPLES/lifptest.lisp 1969-12-31 16:00:00.000000000 -0800
+++ new-lifp/EXAMPLES/lifptest.lisp 2014-04-18 14:32:55.000000000 -0700
@@ -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