Wedding has limits

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 1fdee9203a141a6bbc7f37eb041715e250583477..d675a711e554d81901dc7f4511ee813fd5072aa0 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -2291,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
@@ -2330,6 +2333,77 @@ 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 'vaulted-tunnel)
+         (make <exit>
+           #:name "south"
+           #:to 'courtyard)))
+   ('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 "north"
+           #:to 'wedding-entrance)
+         (make <exit>
+           #:name "south"
+           #:to 'forest-clearing)))
+   ('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 'vaulted-tunnel)))))
+
+
 \f
 ;;; Game
 ;;; ----
@@ -2339,7 +2413,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)