From: Christine Lemmer-Webber Date: Fri, 23 Sep 2022 16:48:28 +0000 (-0400) Subject: Add wedding exits, etc X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=944e490c39ef13cf98e2811006ea607f14ad4316;p=mudsync.git Add wedding exits, etc --- 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 #:name "south" - #:to 'wedding-entrance))) + #:to 'wedding-entrance) + (make + #:name "north" + #:to 'dance-floor))) ('vaulted-tunnel:portrait '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 -;; #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 -;; #:name "south" -;; #:to 'vaulted-tunnel) -;; (make -;; #:name "east" -;; #:to 'east-ballroom) -;; (make -;; #:name "west" -;; #:to 'west-ballroom) -;; (make -;; #:name "north" -;; #:to 'north-ballroom) -;; ;; and north of that, the stairwell -;; (make -;; #:name "northeast" -;; #:to 'orchestra) -;; (make -;; #:name "southeast" -;; #:to 'wildflowers) -;; (make -;; #:name "southwest" -;; #:to 'playground) -;; (make -;; #:name "west" -;; #:to 'photo-studio) -;; (make -;; #:name "northwest" -;; #:to 'fairy-go-round) ; fgr - -;; (make -;; #:name "") - -;; (make -;; #:name "south" -;; #:to 'vaulted-tunnel) -;; (make -;; #:name "south" -;; #:to 'vaulted-tunnel) -;; (make -;; #:name "south" -;; #:to 'vaulted-tunnel) -;; (make -;; #:name "south" -;; #:to 'vaulted-tunnel) -;; (make -;; #:name "south" -;; #:to 'vaulted-tunnel) -;; )) + ('dance-floor + #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 + #:name "north" + #:to 'banquet) + (make + #:name "northeast" + #:to 'orchestra) + (make + #:name "east" + #:to 'cake-wing) + (make + #:name "southeast" + #:to 'flower-field) + (make + #:name "south" + #:to 'vaulted-tunnel) + (make + #:name "southwest" + #:to 'playground) + (make + #:name "west" + #:to 'photo-booth-wing) + (make + #:name "northwest" + #:to 'fairy-go-round))) + ('banquet + #f + #:name "Banquet Hall" + #:desc + '((p "")) + #:exits + (list (make + #:name "south" + #:to 'dance-floor) + (make + #:name "west" + #:to 'fairy-go-round) + (make + #:name "east" + #:to 'orchestra) + (make + #:name "southeast" + #:to 'cake-wing) + (make + #:name "southwest" + #:to 'photo-booth-wing) + (make + #:name "up" + #:to 'the-stairs))) + ('orchestra + #f + #:name "The Orchestra" + #:desc + '((p "")) + #:exits + (list (make + #:name "west" + #:to 'banquet) + (make + #:name "southwest" + #:to 'dance-floor) + (make + #:name "south" + #:to 'cake-wing))) + ('cake-wing + #f + #:name "The Cake Wing" + #:desc + '((p "")) + #:exits + (list (make + #:name "north" + #:to 'orchestra) + (make + #:name "west" + #:to 'dance-floor) + (make + #:name "northwest" + #:to 'banquet) + (make + #:name "south" + #:to 'flower-field))) + ('flower-field + #f + #:name "Field of Flowers" + #:desc + '((p "")) + #:exits + (list (make + #:name "north" + #:to 'cake-wing) + (make + #:name "northwest" + #:to 'dance-floor))) + ('playground + #f + #:name "Playground" + #:desc + '((p "")) + #:exits + (list (make + #:name "north" + #:to 'photo-booth-wing) + (make + #:name "northeast" + #:to 'dance-floor))) + ('photo-booth-wing + #f + #:name "The Photo Booth Wing" + #:desc + '((p "")) + #:exits + (list (make + #:name "north" + #:to 'fairy-go-round) + (make + #:name "northeast" + #:to 'banquet) + (make + #:name "east" + #:to 'dance-floor) + (make + #:name "south" + #:to 'playgroun))) + ('fairy-go-round + #f + #:name "Fairy Go Round" + #:desc + '((p "")) + #:exits + (list (make + #:name "east" + #:to 'banquet) + (make + #:name "southeast" + #:to 'dance-floor) + (make + #:name "south" + #:to 'photo-booth-wing))) + ('the-stairs + #f + #:name "The Stairs" + #:desc + '((p "")) + #:exits + (list (make + #:name "up" + #:to 'wedding-canopy) + (make + #:name "down" + #:to 'banquet))) + ('name + #f + #:name "The Canopy" + #:desc + '((p "")) + #:exits + (list (make + #:name "down" + #:to 'the-stairs))) ;; ('ballroom ;; #f