X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=7679735f813317fc4bae729165a36415cc9b583d;hp=117e86af3af1d8351cf86fe002961d5adbddddbe;hb=7e11c67b59dc07a46576b2acaa4657ee533df7d5;hpb=2d7173d04d4b01f4480ec700c6419407232ef1bb

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 117e86a..7679735 100644
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -160,9 +160,9 @@ or 'skribe'?  Now *that's* composition!"))
             #: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
@@ -257,13 +257,15 @@ Busts of serious looking people line the walls, but there's no
 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)))
@@ -279,6 +281,24 @@ The inscription says \"St. Ignucius\".
 ;;; 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!")))
+
+
 
 ;;; Writing room
 ;;; ------------
@@ -354,7 +374,7 @@ at the bar.  (editor's note: or will be soon :])"
     <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"
@@ -367,7 +387,11 @@ 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")))
+    #:sit-name "the bar stool")
+
+   ;; TODO: Cigar dispenser
+
+   ))
 
 
 ;;; Ennpie's Sea Lounge
@@ -382,7 +406,8 @@ seat in the room, though."
 ;;; ----
 
 (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)