X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=worlds%2Fbricabrac.scm;h=d675a711e554d81901dc7f4511ee813fd5072aa0;hb=79eceeee56e472f9055ca63c12ae2227bd848a2f;hp=f60eebaa850c81956a7115d862467d6a05c53d93;hpb=59f16c01b5b20b461ba831be074dfa93cb9bf754;p=mudsync.git

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index f60eeba..d675a71 100644
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -1103,7 +1103,7 @@ a nondescript steel door to the south, leading apparently outside."))
     <furniture> 'smoking-parlor
     #:name "a comfy leather chair"
     #:desc "  That leather chair looks really comfy!"
-    #:goes-by '("leather chair" "comfy leather chair" "chair")
+    #:goes-by '("leather chair" "comfy leather chair" "chair" "comfy chair")
     #:sit-phrase "sink into"
     #:sit-phrase-third-person "sinks into"
     #:sit-name "the comfy leather chair")
@@ -1967,7 +1967,9 @@ as well as an exit leading to the south."))
              "but they all seem glued in place and instead of a person manning the shop "
              "there's merely a cardboard cutout of a person with a \"shopkeeper\" nametag. "
              "You can pretty well bet that someone wanted to finish this room but ran out of "
-             "time.")
+             "time. "
+	     "It looks like there's an exit to the northeast, should you choose that you "
+	     "want to get out of here.")
     #:exits (list
              (make <exit>
                #:name "northeast"
@@ -2195,7 +2197,7 @@ comments, and so on flowing from node to node."
             "ActivityPub")
          " is a federation standard being developed under the "
          (a "https://www.w3.org/wiki/Socialwg/"
-            "w3C Social Working Group")
+            "W3C Social Working Group")
          ", and doubles as a general client-to-server API. "
          "It follows a few simple core ideas:")
       (ul (li "Uses "
@@ -2289,6 +2291,9 @@ north seem to hint that this may be the exit to the outdoors.  There's
 also a large sign near the doors on a wooden easel."))
     #:exits
     (list (make <exit>
+	    #:name "north"
+	    #:to 'courtyard)
+	  (make <exit>
 	    #:name "south"
 	    #:to 'grand-hallway)))
    ('north-hall:sign
@@ -2328,6 +2333,77 @@ Although towering, they seem passable."))
     #:goes-by '("door" "doors" "room doors" "large doors"))))
 
 
+;;; ============
+;;; WEDDING TIME
+;;; ============
+
+(define wedding
+  (lol
+   ;; Courtyard
+   ;; ---------
+   ('courtyard
+    <room> #f
+    #:name "The Courtyard"
+    #:desc
+    '((p "Standing in the courtyard you feel... different.  As if the courtyard itself
+was the space between worlds, cobbled together hastily by some distant being.")
+      (p "To the south are some large doors which serve as the back entrance to
+the hotel.  To the north is a forest, from which festive noises emerge."))
+    #:exits
+    (list (make <exit>
+	    #:name "south"
+	    #:to 'north-hall)
+	  (make <exit>
+	    #:name "north"
+	    #:to 'forest-clearing)))
+   ('forest-clearing
+    <room> #f
+    #:name "A Clearing in the Forest"
+    #:desc
+    '((p "During an aimless ramble through the forest you became
+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."))
+    #: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)))
+   ('wedding-entrance
+    <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."))
+    #:exits
+    (list (make <exit>
+	    #:name "south"
+	    #:to 'vaulted-tunnel)))))
+
+
 
 ;;; Game
 ;;; ----
@@ -2337,7 +2413,7 @@ Although towering, they seem passable."))
           playroom break-room computer-room underground-lab
           async-museum gift-shop hive-entrance
           hive-inside federation-station
-	  north-hall))
+	  north-hall wedding))
 
 ;; TODO: Provide command line args
 (define (run-game . args)