basic things, with the ability to pick them up (but not put them down, heh)

[mudsync.git] / worlds / bricabrac.scm

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 117e86af3af1d8351cf86fe002961d5adbddddbe..7679735f813317fc4bae729165a36415cc9b583d 100644 (file)
--- 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
             #: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
 Alphanumerics, _ and - only, 2-15 characters, starts with an alphabetic

-character.")))
+character.\n")))

 
 
 (define lobby
 
 
 (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?
 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)
     #:exits
     (list (make <exit>
             #:name "south"
             #:to 'room:lobby)

+          (make <exit>
+            #:name "west"
+            #:to 'room:playroom)

           (make <exit>
             #:name "east"
             #:to 'room:smoking-parlor)))
           (make <exit>
             #:name "east"
             #:to 'room:smoking-parlor)))


@@ -279,6 +281,24 @@ The inscription says \"St. Ignucius\".
 ;;; Playroom
 ;;; --------
 
 ;;; 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
 ;;; ------------
 \f
 ;;; 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!"
     <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"
                 "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"
     #: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
 
 \f
 ;;; Ennpie's Sea Lounge


@@ -382,7 +406,8 @@ seat in the room, though."
 ;;; ----
 
 (define game-spec
 ;;; ----
 
 (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)
 
 ;; TODO: Provide command line args
 (define (run-game . args)