From 606990a39eb1c61ca53c27a5b331874483a3ad31 Mon Sep 17 00:00:00 2001 From: Christine Lemmer-Webber Date: Fri, 23 Sep 2022 18:44:39 -0400 Subject: [PATCH] And there we go, wedding in place!! --- worlds/bricabrac.scm | 125 ++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 124 insertions(+), 1 deletion(-) diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index 1f8995b..87cd1c6 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -2432,6 +2432,30 @@ traversal through the flow of time itself. You feel happy."))) on the swing.")) #:exclude player)) +(define-class () + (commands + #:allocation #:each-subclass + #:init-thunk (build-commands + (("ride" "sit") ((direct-command cmd-ride))))) + (actions #:allocation #:each-subclass + #:init-thunk + (build-actions + (cmd-ride cmd-ride-on-fairy-go-round)))) + +(define* (cmd-ride-on-fairy-go-round actor message #:key direct-obj) + (define player (message-from message)) + (define player-loc (mbody-val (<-wait player 'get-loc))) + (define player-name (mbody-val (<-wait player 'get-name))) + (<- (message-from message) 'tell + #:text '((p "You ride on the fairy go round. Your vision blurs +and refocuses into places everywhere in this realm and every other. +You feel a part of everywhere at once for a moment, and then, you +step off."))) + (<- player-loc 'tell-room + #:text `((p ,player-name " rides on the fairy go round and seems +to be everywhere and nowhere at once for a moment before stepping off.")) + #:exclude player)) + (define-actor () ((cmd-take cake-cmd-take))) @@ -2528,6 +2552,8 @@ re-orients itself."))) a bit.")) #:exclude player)) + + (define wedding (lol ;; Courtyard @@ -2594,6 +2620,38 @@ To the south is the forest.")) "You could read it if you want to.") #:read-text `(pre ,wedding-map-text) #:goes-by '("map" "wedding map")) + ('wedding-entrance:frog + 'wedding-entrance + #:name "a frog" + #:desc "The frog is sitting on top of the hostess podium and doing +her best to look dignified. Actually, to be honest, she's doing a pretty +good job looking dignified. My gosh! What a dignified frog!" + #:goes-by '("frog") + #:catchphrases + '("Oh yes, oh yes! Welcome to the wedding! *Ribbit!*" + "Enjoy your stay!" + "Welcome, welcome! *Ribbit!*" + "*Ribbit!* We've been waiting for you, come in come in!" + "We're so happy you're here!" + "Hoo, this wedding took a lot of work to plan but it was WORTH IT!")) + ('wedding-entrance:podium + 'wedding-entrance + #:name "a hostess podium" + #:desc "It's very well constructed. A frog is sitting on it, so you +guess that makes the frog the hostess." + #:goes-by '("podium" "hostess podium")) + ('wedding-entrance:lights + 'wedding-entrance + #:name "fairy lights and trees" + #:invisible? #t + #:desc '((p "The lights are intertwined in the tree boughs and beautiful. +You look closely and realize that the only way they could work is if they +were threaded into the tree boughs as the trees grew!") + (p "To the north, some of the tree boughs grow together into +an entrance.")) + #:goes-by '("lights" "fairy lights" + "trees" "tree" "light" "fairy light" + "bough" "boughs")) ('vaulted-tunnel #f #:name "A Vaulted Tunnel of Trees" @@ -2620,6 +2678,17 @@ 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")) + ('vaulted-tunnel:trees + 'vaulted-tunnel + #:name "trees" + #:invisible? #t + #:desc + "The trees are arched above you, vaulted and beautiful. A gentle light +streams through them and is accented by the fairy lights which are everywhere, +lovely, and glowing themselves." + #:goes-by + '("trees" "fairy lights" "lights" "tree" "light" "vaulted trees" + "tunnel" "vaulted tunnel")) ('dance-floor #f #:name "The Ballroom Dance Flooor" @@ -2795,6 +2864,9 @@ by various fiddles, a cello, a harp, and a flute.") ('orchestra:orchestra 'orchestra #:name "the orchestra" + #:chat-format (lambda _ + '((p "You're being very rude. They're trying to +concentrate."))) #:desc '((p "The orchestra members are playing their songs. The music and their instruments seem as much a part of them as their bodies.")) @@ -2924,6 +2996,28 @@ see-saw hovers a foot from the soft grass below.") back and forth gently. You feel as if to sit on it would help you feel younger again, to experience time itself..." #:goes-by '("swing")) + ('playground:children + 'playground + #:name "children" + #:chat-format (lambda _ + '((p "It's hard to have a conversation with the children, +they're too busy running around! It's clear they're having a good time, though."))) + #:desc "The children are laughing and climbing and generally having a +wonderful time." + #:goes-by '("young fairies" "children" "fairy children")) + ('playground:seeds + 'playground + #:name "helicopter seeds" + #:invisible? #t + #:desc "The helicopter seeds are falling from the sky! +They're really lovely to look at though." + #:take-me? + (lambda _ + (values #f + #:why-not + `((p "You feel like you'd develop an allergy to these things +if you tried to hold onto them for too long, so you'd better not."))) + #:goes-by '("seeds" "helicopter seeds"))) ('photo-booth-wing #f #:name "The Photo Booth Wing" @@ -2973,9 +3067,22 @@ kind of unusual. It glows even when the camera isn't flashing. Every now and then the photographer takes a picture, a loud *kzzzt!* noise fills the room, and a magical glow suffuses everything." #:goes-by '("flash bulb" "flash" "bulb")) + ('photo-booth-wing:hoaxes + 'photo-booth-wing + #:name "hoaxes" + #:invisible? #t + #:desc "Some real good japes, these are." + #:goes-by '("hoaxes")) + ('photo-booth-wing:photographs + 'photo-booth-wing + #:name "photographs" + #:invisible? #t + #:desc "You know, you kind of feel like you recognize the fairy in +that one from some old Fairy History class you took a long time ago!" + #:goes-by '("photograph" "photographs")) ('fairy-go-round #f - #:name "Fairy Go Round" + #:name "Fairy-Go-Round" #:desc '((p "A large carousel fills the space. The seating arrangement alternates between vine swings that move up and down and large mums that serve as @@ -2991,6 +3098,22 @@ stools.") (make #:name "south" #:to 'photo-booth-wing))) + ('fairy-go-round:fairy-go-round + 'fairy-go-round + #:name "the fairy-go-round" + #:desc '((p "The fairy-go-round is a wonderful work of art. There +are many kinds of seats on it, and they move up and down as the fairy go round +spins. You feel a part of it and yet disconnected at once, a yearning to +ride and participate on this fantastic device. You feel an aura around it +that makes it seem both present and distant, as it were everywhere and nowhere +at once.") + (p "The vine swings are made of real vines, and the mums are +made of real... well you aren't really sure what they're made of. Overgrown +flowers, it seems like.")) + #:goes-by '("fairy-go-round" "fairy go round" + "carousel" "swing" "swings" "stool" "stools" + "seat" "seats" "vine swing" "vine swings" + "mum" "mums" "flowers" "overgrown flowers")) ('the-stairs #f #:name "Stairwell" -- 2.31.1