X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=a00e7acc781115d62d045df2983b66b2ab44f51d;hp=1f8995b8153436058db00bb9f2b50cbd49ea616a;hb=HEAD;hpb=00935da784de1867665f3f5e3d5146903b69cf4e diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index 1f8995b..523546b 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -411,6 +411,7 @@ the four essential freedoms: ") English language surrounding the word 'free' have lead to a lot of terminology debates.")) #:goes-by '("scroll of teletype" "scroll of teletype paper" "teletype scroll" "teletype paper" "scroll" "four freedoms" + "paper" "scroll of teletype paper holding the software Four Freedoms" "scroll of teletype paper holding the software four freedoms")) ('lobby:orange-cat-phone @@ -472,6 +473,8 @@ hands!"))) #:allocation #:each-subclass #:init-thunk (build-props '((hd-platter? . #t)))) + (take-me? #:allocation #:each-subclass + #:init-value #t) (name #:allocation #:each-subclass #:init-value "a glowing disc") (desc #:allocation #:each-subclass @@ -2240,7 +2243,7 @@ comments, and so on flowing from node to node." (p (ul (li (b "Scheme") " " - (a "http://cs.au.dk/~hosc/local/HOSC-11-4-pp399-404.pdf" + (a "https://en.wikipedia.org/wiki/History_of_the_Scheme_programming_language" "was originally started ") " to explore the " (b "actor model") ". (It became more focused around studying the " (b "lambda calculus") @@ -2432,6 +2435,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 +2555,26 @@ re-orients itself."))) a bit.")) #:exclude player)) +(define-actor () + ;; TODO: Add "open" verb, since obviously people will try that + ((cmd-kiss frog-cmd-kiss)) + (commands + #:allocation #:each-subclass + #:init-thunk (build-commands + (("kiss") ((direct-command cmd-kiss)))))) + +(define* (frog-cmd-kiss 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 kiss the frog. She blushes and you get a distinctly " + "princess'y vibe off of her!"))) + (<- player-loc 'tell-room + #:text `((p ,player-name " kisses the frog! The frog blushes!")) + #:exclude player)) + + (define wedding (lol ;; Courtyard @@ -2594,6 +2641,39 @@ 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!" + "A kiss? Well... I wouldn't object to 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 +2700,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 +2886,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 +3018,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 +3089,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 +3120,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"