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. The door to the north leads to closet.")\r
   9         (n-to 'closetdoor))\r
  10 \r
  11 (object bigkey (item) "big key" bigroom\r
  12         (description "This is a big key. It is probably used to\r
  13         open something big"))\r
  14 \r
  15 (object bigcrate (container) "big crate" bigroom\r
  16         (name "big" "box" "crate" "keyhole")\r
  17         (description "This big crate is a large container which can be closed or opened. It also has a keyhole.")\r
  18         (with-keys bigkey)\r
  19         (has :openable :closed :lockable :locked))\r
  20 \r
  21 (object closetdoor (door) "door to closet" bigroom\r
  22         (name "door")\r
  23         (description "The door that leads to closet")\r
  24         (destination 'closet))\r
  25 \r
  26 (object closet (room) "Small Closet"\r
  27         (description "This closet is small and dimly lit.")\r
  28         (s-to 'bigroom))\r
  29 \r
  30 (supply init ()\r
  31    (setf *location* bigroom)\r
  32    "~%~%Somehow you ended up in some big room. But hey, what do\r
  33 you expect in a cheap demo game?~%~%")\r
  34