new example

darcs-hash:0cfd6a397685b455f8a69be5ed1290ca0561676e

diff --git a/EXAMPLES/lifptest.lisp b/EXAMPLES/lifptest.lisp
new file mode 100644 (file)
index 0000000..61e14e9
--- /dev/null
+++ b/EXAMPLES/lifptest.lisp
@@ -0,0 +1,24 @@
+(if-lib::load-libs :lifp-test)\r
+\r
+(in-package :lifp-test)\r
+\r
+(object bigroom (room) "The Big Room"\r
+        (description "This is the Big Room. It's main purpose is\r
+        to host the devices that are used to test various\r
+        features of LIFP."))\r
+\r
+(object bigkey (item) "big key" bigroom\r
+        (description "This is a big key. It is probably used to\r
+        open something big"))\r
+\r
+(object bigcrate (container) "big crate" bigroom\r
+        (name "big" "box" "crate" "keyhole")\r
+        (description "This big crate is a large container which can be closed or opened. It also has a keyhole.")\r
+        (with-keys bigkey)\r
+        (has :openable :closed :lockable :locked))\r
+\r
+(supply init ()\r
+   (setf *location* bigroom)\r
+   "~%~%Somehow you ended up in some big room. But hey, what do\r
+you expect in a cheap demo game?~%~%")\r
+        
\ No newline at end of file