+(define-class <furniture> (<gameobj>)
+ (sit-phrase #:init-keyword #:sit-phrase)
+ (sit-phrase-third-person #:init-keyword #:sit-phrase-third-person)
+ (sit-name #:init-keyword #:sit-name)
+
+ (commands
+ #:init-value
+ (list
+ (direct-command "sit" 'cmd-sit-furniture)))
+ (message-handler
+ #:init-value
+ (simple-dispatcher
+ (append
+ (build-actions
+ (cmd-sit-furniture (wrap-apply furniture-cmd-sit)))
+ gameobj-actions))))
+
+(define-mhandler (furniture-cmd-sit actor message direct-obj)
+ (define player-name
+ (message-ref
+ (<-wait actor (message-from message) 'get-name)
+ 'val))
+ (<- actor (message-from message) 'tell
+ #:text (format #f "You ~a ~a.\n"
+ (slot-ref actor 'sit-phrase)
+ (slot-ref actor 'sit-name)))
+ (<- actor (slot-ref actor 'loc) 'tell-room
+ #:text (format #f "~a ~a on ~a.\n"
+ player-name
+ (slot-ref actor 'sit-phrase-third-person)
+ (slot-ref actor 'sit-name))
+ #:exclude (message-from message)))
+
+
+(define smoking-parlor
+ (lol
+ ('room:smoking-parlor
+ <room> #f
+ #:name "Smoking Parlor"
+ #:desc " This room looks quite posh. There are huge comfy seats you can sit in
+if you like.
+ Strangely, you see a large sign saying \"No Smoking\". The owners must
+have installed this place and then changed their mind later.
+ Nonetheless there are some candy cigarettes and cigars you can pick up
+at the bar. (editor's note: or will be soon :])"
+ #:exits
+ (list (make <exit>
+ #:name "west"
+ #:to 'room:grand-hallway)))
+ ('thing:smoking-room:chair
+ <furniture> 'room:smoking-parlor
+ #:name "a comfy leather chair"
+ #:desc " That leather chair looks really comfy!"
+ #:goes-by '("leather chair" "comfy leather chair" "chair")
+ #:sit-phrase "sink into"
+ #:sit-phrase-third-person "sinks into"
+ #:sit-name "the comfy leather chair")
+ ('thing:smoking-room:sofa
+ <furniture> 'room:smoking-parlor
+ #:name "a plush leather sofa"
+ #:desc " That leather chair looks really comfy!"
+ #:goes-by '("leather sofa" "plush leather sofa" "chair"
+ "leather couch" "plush leather couch" "couch")
+ #:sit-phrase "sprawl out on"
+ #:sit-phrase-third-person "sprawls out on into"
+ #:sit-name "the plush leather couch")
+ ('thing:smoking-room:bar-stool
+ <furniture> 'room:smoking-parlor
+ #:name "a bar stool"
+ #:desc " Conveniently located near the bar! Not the most comfortable
+seat in the room, though."
+ #:goes-by '("stool" "bar stool")
+ #:sit-phrase "hop on"
+ #:sit-phrase-third-person "hops onto"
+ #:sit-name "the bar stool")))