reknowned -> legendary

[mudsync.git] / worlds / bricabrac.scm

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index a84b76db5c7fb77bfbfcc161a553df28c0134734..04d9240d0fe2433f6ad15d5bf26ef2a93dcdcb25 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -379,13 +379,14 @@ this general shape in the 1990s."
    ('room:grand-hallway
     <room> #f
     #:name "Grand Hallway"
    ('room:grand-hallway
     <room> #f
     #:name "Grand Hallway"

-    #:desc "  A majestic red carpet runs down the center of the room.
+    #:desc '((p "  A majestic red carpet runs down the center of the room.

 Busts of serious looking people line the walls, but there's no
 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.  A door to the east is labeled \"smoking
-room\", while a door to the west is labeled \"playroom\"."
+clear indication that they have any logical relation to this place.")
+             (p "In the center is a large statue of a woman in a warrior's
+pose, but something is strange about her weapon and shield.  You wonder what
+that's all about?")
+             (p "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"
     #:exits
     (list (make <exit>
             #:name "south"


@@ -396,13 +397,19 @@ room\", while a door to the west is labeled \"playroom\"."
           (make <exit>
             #:name "east"
             #:to 'room:smoking-parlor)))
           (make <exit>
             #:name "east"
             #:to 'room:smoking-parlor)))

-   ('thing:ignucius-statue
+   ('thing:hackthena-statue

     <gameobj> 'room:grand-hallway
     #:name "a statue"
     <gameobj> 'room:grand-hallway
     #:name "a statue"

-    #:desc "  The statue is of a serious-looking bearded man with long, flowing hair.
-  It has a large physical halo.  Removing it is tempting, but it looks pretty
-well fastened."
-    #:goes-by '("statue" "st ignucius" "st. ignucius"))))
+    #:desc '((p "The base of the statue says \"Hackthena, guardian of the hacker
+spirit\".  You've heard of Hackthena... not a goddess, but spiritual protector of
+all good hacks, and legendary hacker herself.")
+             (p "Hackthena holds the form of a human woman.  She wears flowing
+robes, has a pear of curly bovine-esque horns protruding from the sides of her
+head, wears a pair of horn-rimmed glasses, and appears posed as if for battle.
+But instead of a weapon, she seems to hold some sort of keyboard.  And her
+shield... well it's round like a shield, but something seems off about it.
+You'd better take a closer look to be sure."))
+    #:goes-by '("hackthena statue" "hackthena" "statue"))))

 
 \f
 ;;; Playroom
 
 \f
 ;;; Playroom


@@ -435,8 +442,17 @@ if this room is intended for children or child-like adults."
     <gameobj> 'room:playroom
     #:name "a toy chest"
     #:goes-by '("toy chest" "chest")
     <gameobj> 'room:playroom
     #:name "a toy chest"
     #:goes-by '("toy chest" "chest")

-    #:desc "A brightly painted wooden chest.  The word \"TOYS\" is engraved
-on it.  What could be inside?"
+    #:desc (lambda (toy-chest whos-looking)
+             (let ((contents (gameobj-occupants toy-chest)))
+               `((p "A brightly painted wooden chest.  The word \"TOYS\" is "
+                    "engraved on it.")
+                 (p "Inside you see:"
+                    ,(if (eq? (pk 'contents contents) '())
+                         " nothing!  It's empty!"
+                         `(ul ,(map (lambda (occupant)
+                                      `(li ,(mbody-val
+                                             (<-wait occupant 'get-name))))
+                                    (gameobj-occupants toy-chest))))))))

     #:take-from-me? #t
     #:put-in-me? #t)
 
     #:take-from-me? #t
     #:put-in-me? #t)