Wedding grounds

[mudsync.git] / worlds / bricabrac.scm

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index d675a711e554d81901dc7f4511ee813fd5072aa0..226d3fc0b84ba32940ea3244691a5e2457280317 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -2337,6 +2337,32 @@ Although towering, they seem passable."))
 ;;; WEDDING TIME
 ;;; ============
 
+(define wedding-map-text
+  "\
+                   Banquet
+                   &Stairs
+                 (========)
+            .----.\\======/=.----.
+ Fairy     -     : \\====/ :     -
+  Go     ./      :  )==(  :      \\.  Orchestra
+ Round  / (&&&)  : (/==\\) : & & &  \\
+       /         :        :         \\
+       .--------..--------..--------.
+      |  _   _  .'        '.   ,,,   ;
+Photo | | | |_| :  Dance   :  .|_|.  | Cake
+      | '-'     :  Floor   :  |___|  |
+      ',-------.\\         ;.--------,'
+       ;   ..    '.......'         ;
+        \\  ||))    .-=-.     ^   */
+         \\.||(( ^ //   \\\\^ *  ^'./
+     Play '.  ^  ;;     ;;^  ^.,'
+    Ground  +----||-----||----+  Flowers
+            | .---.           |
+            | |_ _|       [F] |
+            |   |             |
+            |      Entrance   |
+            '-----------------'")
+
 (define wedding
   (lol
    ;; Courtyard
@@ -2367,25 +2393,13 @@ 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)))
+           #:to 'courtyard)))
    ('wedding-entrance
     <room> #f
     #:name "Entrance to the Wedding"
@@ -2401,7 +2415,106 @@ frog sitting atop a hostess podium."))
     #:exits
     (list (make <exit>
            #:name "south"
-           #:to 'vaulted-tunnel)))))
+           #:to 'forest-clearing)
+         (make <exit>
+           #:name "north"
+           #:to 'vaulted-tunnel)))
+   ;; map
+   ('wedding-entrance:map
+    <readable> 'wedding-entrance
+    #:name "wedding map"
+    #:desc '("This appears to be a map of the wedding grounds. "
+             "You could read it if you want to.")
+    #:read-text `(pre ,wedding-map-text)
+    #:goes-by '("map" "wedding map"))
+   ('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"))
+   ;; ('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)
+;;       ))
+
+;;    ('ballroom
+;;     <room> #f
+;;     #:name "The Ballroom"
+;;     #:exits (list
+;;          (make <exit>
+;;            )
+;;          [north entrance]
+;;              [east entrance]
+            
+;;              [south vaulted-tunnel]
+;;              [west entrance])
+;;      #:desc ("You emerge into a clearing with six trees encircling a magical ballroom. At the center is a dance floor where " (cast dancers "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."))
+
+   ))
 
 
 \f