Correct order again :P

[mudsync.git] / worlds / bricabrac.scm

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 74258252f4e66ddc00bbaa93f5709a8bf4514d1c..1d99181dcd9e23d59b0cb528e2646b1e30ce9849 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -1967,7 +1967,9 @@ as well as an exit leading to the south."))
              "but they all seem glued in place and instead of a person manning the shop "
              "there's merely a cardboard cutout of a person with a \"shopkeeper\" nametag. "
              "You can pretty well bet that someone wanted to finish this room but ran out of "
-             "time.")
+             "time. "
+            "It looks like there's an exit to the northeast, should you choose that you "
+            "want to get out of here.")
     #:exits (list
              (make <exit>
                #:name "northeast"
@@ -2195,7 +2197,7 @@ comments, and so on flowing from node to node."
             "ActivityPub")
          " is a federation standard being developed under the "
          (a "https://www.w3.org/wiki/Socialwg/"
-            "w3C Social Working Group")
+            "W3C Social Working Group")
          ", and doubles as a general client-to-server API. "
          "It follows a few simple core ideas:")
       (ul (li "Uses "
@@ -2289,6 +2291,9 @@ north seem to hint that this may be the exit to the outdoors.  There's
 also a large sign near the doors on a wooden easel."))
     #:exits
     (list (make <exit>
+           #:name "north"
+           #:to 'courtyard)
+         (make <exit>
            #:name "south"
            #:to 'grand-hallway)))
    ('north-hall:sign
@@ -2328,6 +2333,84 @@ Although towering, they seem passable."))
     #:goes-by '("door" "doors" "room doors" "large doors"))))
 
 
+;;; ============
+;;; WEDDING TIME
+;;; ============
+
+(define wedding
+  (lol
+   ;; Courtyard
+   ;; ---------
+   ('courtyard
+    <room> #f
+    #:name "The Courtyard"
+    #:desc
+    '((p "Standing in the courtyard you feel... different.  As if the courtyard itself
+was the space between worlds, cobbled together hastily by some distant being.")
+      (p "To the south are some large doors which serve as the back entrance to
+the hotel.  To the north is a forest, from which festive noises emerge."))
+    #:exits
+    (list (make <exit>
+           #:name "south"
+           #:to 'north-hall)
+         (make <exit>
+           #:name "north"
+           #:to 'forest-clearing)))
+   ('forest-clearing
+    <room> #f
+    #:name "A Clearing in the Forest"
+    #:desc
+    '((p "During an aimless ramble through the forest you became
+disoriented and lost your way. It has been some time since you’ve seen
+any of the familiar landmarks that would help you orient yourself. As
+you continue on, the feel of the forest seems to shift. As the trees
+grow thicker the light dims.  Eerie laughter echoes through the boughs
+overhead and you shiver.  A warm light to the north beckons you towards
+it."))
+    #:exits
+    (list (make <exit>
+           #:name "north"
+           #:to 'wedding-entrance)
+         (make <exit>
+           #:name "south"
+           #:to 'courtyard)))
+   ('wedding-entrance
+    <room> #f
+    #:name "Entrance to the Wedding"
+    #:desc
+    '((p "As you approach you realize that the light is not an exit
+from the forest or a clearing, rather thousands of minuscule lights
+twined through the boughs of the trees. What you see before you is
+some sort of living structure composed of a thicket of trees
+intertwined with bramble. Directly in front of you the limbs of two
+trees intertwine over what appears to be an entrance north.
+To the left of the entrance is a sign, to the right is a
+frog sitting atop a hostess podium."))
+    #:exits
+    (list (make <exit>
+           #:name "south"
+           #:to 'forest-clearing)
+         (make <exit>
+           #:name "north"
+           #:to 'vaulted-tunnel)))
+   ('vaulted-tunnel
+    <room> #f
+    #:name "A Vaulted Tunnel of Trees"
+    #:desc
+    '((p "You step into the entrance to see two rows of trees with intersecting branches, forming a vaulted tunnel. The fairy lights cast a soft glow on the space. On each tree trunk is a portrait and the eerie laughter you heard outside echoes louder as you pass each portrait. "))
+    #:exits
+    (list (make <exit>
+           #:name "south"
+           #:to 'wedding-entrance)))
+   ('vaulted-tunnel:portrait
+    <gameobj> 'vaulted-tunnel
+    #:name "hanging portraits"
+    #:desc
+    "Each portrait shows a hazy image of a fairy in various modes of dress from Victorian to today's current fashions. The style and format of the photographs all look the same."
+    #:goes-by
+    '("hanging portrait" "hanging portraits" "portrait" "portraits"))))
+
+
 \f
 ;;; Game
 ;;; ----
@@ -2337,7 +2420,7 @@ Although towering, they seem passable."))
           playroom break-room computer-room underground-lab
           async-museum gift-shop hive-entrance
           hive-inside federation-station
-         north-hall))
+         north-hall wedding))
 
 ;; TODO: Provide command line args
 (define (run-game . args)