From: Christine Lemmer-Webber Date: Wed, 21 Sep 2022 14:58:52 +0000 (-0400) Subject: Wedding has limits X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=79eceeee56e472f9055ca63c12ae2227bd848a2f;p=mudsync.git Wedding has limits --- diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index 1fdee92..d675a71 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -2291,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 + #:name "north" + #:to 'courtyard) + (make #:name "south" #:to 'grand-hallway))) ('north-hall:sign @@ -2330,6 +2333,77 @@ Although towering, they seem passable.")) #:goes-by '("door" "doors" "room doors" "large doors")))) +;;; ============ +;;; WEDDING TIME +;;; ============ + +(define wedding + (lol + ;; Courtyard + ;; --------- + ('courtyard + #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 + #:name "south" + #:to 'north-hall) + (make + #:name "north" + #:to 'forest-clearing))) + ('forest-clearing + #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 + #:name "north" + #:to 'vaulted-tunnel) + (make + #:name "south" + #:to 'courtyard))) + ('vaulted-tunnel + #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 + #:name "north" + #:to 'wedding-entrance) + (make + #:name "south" + #:to 'forest-clearing))) + ('wedding-entrance + #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 + #:name "south" + #:to 'vaulted-tunnel))))) + + ;;; Game ;;; ---- @@ -2339,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)