EXAMPLES/lifptest.lisp

   1 (if-lib::load-libs :lifp-test)\r
   2 \r
   3 (in-package :lifp-test)\r
   4 \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
   8         features of LIFP."))\r
   9 \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
  13 \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
  17         (with-keys bigkey)\r
  18         (has :openable :closed :lockable :locked))\r
  19 \r
  20 (supply init ()\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
  24