From: grue <grue@mail.ru>
Date: Sat, 22 Jul 2006 13:00:13 +0000 (+0000)
Subject: new example
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=6127988f58f2573be584939a5fabbf9244f12dbd;p=lifp.git

new example

darcs-hash:0cfd6a397685b455f8a69be5ed1290ca0561676e
---

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