From 944e490c39ef13cf98e2811006ea607f14ad4316 Mon Sep 17 00:00:00 2001
From: Christine Lemmer-Webber <cwebber@dustycloud.org>
Date: Fri, 23 Sep 2022 12:48:28 -0400
Subject: [PATCH] Add wedding exits, etc

---
 worlds/bricabrac.scm | 230 ++++++++++++++++++++++++++++++++-----------
 1 file changed, 172 insertions(+), 58 deletions(-)

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 226d3fc..3fdb453 100644
--- 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
-- 
2.31.1