#:text (format #f "~a signs the form!\n~a is now known as ~a\n"
old-name old-name name)))
(<- actor (message-from message) 'tell
- "Sorry, that's not a valid name.
+ #:text "Sorry, that's not a valid name.
Alphanumerics, _ and - only, 2-15 characters, starts with an alphabetic
-character.")))
+character.\n")))
(define lobby
clear indication that they have any logical relation to this place.
In the center is a large statue of a bearded man. You wonder what
that's all about?
- To the south is the lobby. All around are various doors, but
-they're all boarded up. One to the east goes to the smoking parlor,
-though."
+ To the south is the lobby. A door to the east is labeled \"smoking
+room\", while a door to the west is labeled \"playroom\"."
#:exits
(list (make <exit>
#:name "south"
#:to 'room:lobby)
+ (make <exit>
+ #:name "west"
+ #:to 'room:playroom)
(make <exit>
#:name "east"
#:to 'room:smoking-parlor)))
;;; Playroom
;;; --------
+(define playroom
+ (lol
+ ('room:playroom
+ <room> #f
+ #:name "The Playroom"
+ #:desc " There are toys scattered everywhere here. It's really unclear
+if this room is intended for children or child-like adults."
+ #:exits
+ (list (make <exit>
+ #:name "east"
+ #:to 'room:grand-hallway)))
+ ('thing:playroom:cubey
+ <thing> 'room:playroom
+ #:name "cubey"
+ #:takeable #t
+ #:desc " It's a little foam cube with googly eyes on it. So cute!")))
+
+
\f
;;; Writing room
;;; ------------
<furniture> 'room:smoking-parlor
#:name "a plush leather sofa"
#:desc " That leather chair looks really comfy!"
- #:goes-by '("leather sofa" "plush leather sofa" "chair"
+ #:goes-by '("leather sofa" "plush leather sofa" "sofa"
"leather couch" "plush leather couch" "couch")
#:sit-phrase "sprawl out on"
#:sit-phrase-third-person "sprawls out on into"
#:goes-by '("stool" "bar stool")
#:sit-phrase "hop on"
#:sit-phrase-third-person "hops onto"
- #:sit-name "the bar stool")))
+ #:sit-name "the bar stool")
+
+ ;; TODO: Cigar dispenser
+
+ ))
\f
;;; Ennpie's Sea Lounge
;;; ----
(define game-spec
- (append lobby grand-hallway smoking-parlor))
+ (append lobby grand-hallway smoking-parlor
+ playroom))
;; TODO: Provide command line args
(define (run-game . args)