Add wedding exits, etc

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 226d3fc0b84ba32940ea3244691a5e2457280317..3fdb45387fe71144b6d6beac50d2783a1a4003a7 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -2435,7 +2435,10 @@ frog sitting atop a hostess podium."))
     #:exits
     (list (make <exit>
            #:name "south"
-           #:to 'wedding-entrance)))
+           #:to 'wedding-entrance)
+         (make <exit>
+           #:name "north"
+           #:to 'dance-floor)))
    ('vaulted-tunnel:portrait
     <gameobj> 'vaulted-tunnel
     #:name "hanging portraits"
@@ -2443,63 +2446,174 @@ frog sitting atop a hostess podium."))
     "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"))
-   ;; ('ballroom
-;;     <room> #f
-;;     #:name "The Ballroom"
-;;     #:desc
-;;     '((p "You emerge into a clearing with six trees encircling a magical ballroom.
-;; At the center is a dance floor where fairies are dancing in rows of concentric
-;; circles. The lights that appear in unstructured smatterings throughout the mystical
-;; space have formed themselves into an elaborate chandelier above the dancers."))
-;;     #:exits
-;;     (list (make <exit>
-;;         #:name "south"
-;;         #:to 'vaulted-tunnel)
-;;       (make <exit>
-;;         #:name "east"
-;;         #:to 'east-ballroom)
-;;       (make <exit>
-;;         #:name "west"
-;;         #:to 'west-ballroom)
-;;       (make <exit>
-;;         #:name "north"
-;;         #:to 'north-ballroom)
-;;       ;; and north of that, the stairwell
-;;       (make <exit>
-;;         #:name "northeast"
-;;         #:to 'orchestra)
-;;       (make <exit>
-;;         #:name "southeast"
-;;         #:to 'wildflowers)
-;;       (make <exit>
-;;         #:name "southwest"
-;;         #:to 'playground)
-;;       (make <exit>
-;;         #:name "west"
-;;         #:to 'photo-studio)
-;;       (make <exit>
-;;         #:name "northwest"
-;;         #:to 'fairy-go-round) ; fgr
-         
-;;       (make <exit>
-;;         #:name "")
-
-;;       (make <exit>
-;;         #:name "south"
-;;         #:to 'vaulted-tunnel)
-;;       (make <exit>
-;;         #:name "south"
-;;         #:to 'vaulted-tunnel)
-;;       (make <exit>
-;;         #:name "south"
-;;         #:to 'vaulted-tunnel)
-;;       (make <exit>
-;;         #:name "south"
-;;         #:to 'vaulted-tunnel)
-;;       (make <exit>
-;;         #:name "south"
-;;         #:to 'vaulted-tunnel)
-;;       ))
+   ('dance-floor
+    <room> #f
+    #:name "The Ballroom Dance Flooor"
+    #:desc
+    '((p "You emerge into a clearing with six trees encircling a magical ballroom.
+At the center is a dance floor where fairies are dancing in rows of concentric
+circles. The lights that appear in unstructured smatterings throughout the mystical
+space have formed themselves into an elaborate chandelier above the dancers."))
+    #:exits
+    (list (make <exit>
+           #:name "north"
+           #:to 'banquet)
+         (make <exit>
+           #:name "northeast"
+           #:to 'orchestra)
+         (make <exit>
+           #:name "east"
+           #:to 'cake-wing)
+         (make <exit>
+           #:name "southeast"
+           #:to 'flower-field)
+         (make <exit>
+           #:name "south"
+           #:to 'vaulted-tunnel)
+         (make <exit>
+           #:name "southwest"
+           #:to 'playground)
+         (make <exit>
+           #:name "west"
+           #:to 'photo-booth-wing)
+         (make <exit>
+           #:name "northwest"
+           #:to 'fairy-go-round)))
+   ('banquet
+    <room> #f
+    #:name "Banquet Hall"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "south"
+           #:to 'dance-floor)
+         (make <exit>
+           #:name "west"
+           #:to 'fairy-go-round)
+         (make <exit>
+           #:name "east"
+           #:to 'orchestra)
+         (make <exit>
+           #:name "southeast"
+           #:to 'cake-wing)
+         (make <exit>
+           #:name "southwest"
+           #:to 'photo-booth-wing)
+         (make <exit>
+           #:name "up"
+           #:to 'the-stairs)))
+   ('orchestra
+    <room> #f
+    #:name "The Orchestra"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "west"
+           #:to 'banquet)
+         (make <exit>
+           #:name "southwest"
+           #:to 'dance-floor)
+         (make <exit>
+           #:name "south"
+           #:to 'cake-wing)))
+   ('cake-wing
+    <room> #f
+    #:name "The Cake Wing"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "north"
+           #:to 'orchestra)
+         (make <exit>
+           #:name "west"
+           #:to 'dance-floor)
+         (make <exit>
+           #:name "northwest"
+           #:to 'banquet)
+         (make <exit>
+           #:name "south"
+           #:to 'flower-field)))
+   ('flower-field
+    <room> #f
+    #:name "Field of Flowers"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "north"
+           #:to 'cake-wing)
+         (make <exit>
+           #:name "northwest"
+           #:to 'dance-floor)))
+   ('playground
+    <room> #f
+    #:name "Playground"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "north"
+           #:to 'photo-booth-wing)
+         (make <exit>
+           #:name "northeast"
+           #:to 'dance-floor)))
+   ('photo-booth-wing
+    <room> #f
+    #:name "The Photo Booth Wing"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "north"
+           #:to 'fairy-go-round)
+         (make <exit>
+           #:name "northeast"
+           #:to 'banquet)
+         (make <exit>
+           #:name "east"
+           #:to 'dance-floor)
+         (make <exit>
+           #:name "south"
+           #:to 'playgroun)))
+   ('fairy-go-round
+    <room> #f
+    #:name "Fairy Go Round"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "east"
+           #:to 'banquet)
+         (make <exit>
+           #:name "southeast"
+           #:to 'dance-floor)
+         (make <exit>
+           #:name "south"
+           #:to 'photo-booth-wing)))
+   ('the-stairs
+    <room> #f
+    #:name "The Stairs"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "up"
+           #:to 'wedding-canopy)
+         (make <exit>
+           #:name "down"
+           #:to 'banquet)))
+   ('name
+    <room> #f
+    #:name "The Canopy"
+    #:desc
+    '((p ""))
+    #:exits
+    (list (make <exit>
+           #:name "down"
+           #:to 'the-stairs)))
 
 ;;    ('ballroom
 ;;     <room> #f