X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=226d3fc0b84ba32940ea3244691a5e2457280317;hb=ae6e690186b54d9227afbdaf0a3ebaf2eed7f642;hp=cd335e2c19fd442fdfe7b34ca4ede2754db1ab9f;hpb=1b7cf3ba89c6ba497bdd7a3b144e0ceeafe6152e;p=mudsync.git diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index cd335e2..226d3fc 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -424,7 +424,17 @@ this general shape in the 1990s." #:goes-by '("orange cartoon cat phone" "orange cartoon cat telephone" "orange cat phone" "orange cat telephone" "cartoon cat phone" "cartoon cat" - "cat phone" "cat telephone" "phone" "telephone")))) + "cat phone" "cat telephone" "phone" "telephone")) + ('lobby:monster-stuffie + 'lobby + #:name "an off-brand monster stuffie" + #:desc "It's an off brand monster stuffed animal that looks, well kinda +like a popular character you've seen in a video game, but there's been a very +thin attempt to make it look like something different... mostly by changing +the shape of the ears. It's cute though!" + #:take-me? #t + #:goes-by '("monster stuffie" "monster" "stuffed animal" "stuffed monster" + "off-brand monster stuffie" "stuffie" "monster stuffie")))) @@ -561,7 +571,7 @@ but there's no indication of who they are." spirit\". You've heard of Hackthena... not a goddess, but spiritual protector of all good hacks, and legendary hacker herself.") (p "Hackthena holds the form of a human woman. She wears flowing -robes, has a pear of curly bovine-esque horns protruding from the sides of her +robes, has a pair of curly bovine-esque horns protruding from the sides of her head, wears a pair of horn-rimmed glasses, and appears posed as if for battle. But instead of a weapon, she seems to hold some sort of keyboard. And her shield... well it's round like a shield, but something seems off about it. @@ -972,7 +982,7 @@ What could happen if you started it?") #:name "a candle" #:goes-by '("candle") #:steps `("The candle burns..." - (/ 2 3) ; oops! + .3 ; oops! "The candle is burning away a rope!" 2 "The rope snaps!" @@ -1093,7 +1103,7 @@ a nondescript steel door to the south, leading apparently outside.")) '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") @@ -1957,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 #:name "northeast" @@ -2185,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 " @@ -2279,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 @@ -2318,6 +2333,190 @@ Although towering, they seem passable.")) #:goes-by '("door" "doors" "room doors" "large doors")))) +;;; ============ +;;; 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 + ;; --------- + ('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 'wedding-entrance) + (make + #:name "south" + #:to 'courtyard))) + ('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 'forest-clearing) + (make + #:name "north" + #:to 'vaulted-tunnel))) + ;; map + ('wedding-entrance:map + '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 + #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 "south" + #:to 'wedding-entrance))) + ('vaulted-tunnel:portrait + '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 +;; #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) +;; )) + +;; ('ballroom +;; #f +;; #:name "The Ballroom" +;; #:exits (list +;; (make +;; ) +;; [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.")) + + )) + + ;;; Game ;;; ---- @@ -2327,7 +2526,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)