Adding directional information to the rooms we already have

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 3fdb45387fe71144b6d6beac50d2783a1a4003a7..df16f2fa839a05f7d098b8ff8b7e105cb6a68fe1 100644 (file)
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -2391,8 +2391,9 @@ 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."))
+overhead and you shiver.")
+      (p "A warm light to the north beckons you towards it.
+South leads back to the Hotel's main grounds."))
     #:exits
     (list (make <exit>
            #:name "north"
@@ -2404,14 +2405,14 @@ it."))
     <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."))
+    '((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. To the left of the entrance is a sign, to the right is a frog
+sitting atop a hostess podium.")
+      (p "To the north the limbs of two trees intertwine, making an entrance.
+To the south is the forest."))
     #:exits
     (list (make <exit>
            #:name "south"
@@ -2431,7 +2432,12 @@ frog sitting atop a hostess podium."))
     <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. "))
+    '((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.")
+      (p "The tunnel enters from the south and exits from the north, with light
+glowing each way."))
     #:exits
     (list (make <exit>
            #:name "south"
@@ -2443,7 +2449,9 @@ frog sitting atop a hostess podium."))
     <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."
+    "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"))
    ('dance-floor
@@ -2453,7 +2461,9 @@ frog sitting atop a hostess podium."))
     '((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."))
+space have formed themselves into an elaborate chandelier above the dancers.")
+      (p "To the south the trees intertwine forming an entrance.
+The ballroom extends in every other cardinal direction."))
     #:exits
     (list (make <exit>
            #:name "north"