worlds/bricabrac.scm

@@ -2383,6 +2383,176 @@ Photo | | | |_| :  Dance   :  .|_|.  | Cake
   (<- (message-from message) 'tell
       #:text (.eat-catchphrase actor)))
 
+(define-class <dancers> (<chatty-npc>)
+  (commands
+   #:allocation #:each-subclass
+   #:init-thunk (build-commands
+		 (("dance") ((direct-command cmd-dance)))))
+  (actions #:allocation #:each-subclass
+           #:init-thunk
+           (build-actions
+            (cmd-dance cmd-dance-dancers))))
+
+(define* (cmd-dance-dancers 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 join in dancing with the dancers.  You spin and
+get woozy... you feel wonderful... like you could dance forever...")
+	       (p "You step out just in time, lest you be caught in
+the dancing for eternity!")))
+  (<- player-loc 'tell-room
+      #:text `((p ,player-name " begins dancing with the fairies and
+spins around and around... as if they might dance forever!")
+	       (p "But " ,player-name " steps back just in time!
+Their eyes are cloudy and woozy, but they look happy..."))
+      #:exclude player))
+
+(define-class <swing> (<gameobj>)
+  (commands
+   #:allocation #:each-subclass
+   #:init-thunk (build-commands
+		 (("sit" "swing") ((direct-command cmd-swing)))))
+  (actions #:allocation #:each-subclass
+           #:init-thunk
+           (build-actions
+            (cmd-swing cmd-swing-on-swing))))
+
+(define* (cmd-swing-on-swing 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 swing on the swing and feel younger again
+as you rock to the motion, as if your movements resemble your
+traversal through the flow of time itself.  You feel happy.")))
+  (<- player-loc 'tell-room
+      #:text `((p ,player-name " looks very happy as they swing
+on the swing."))
+      #:exclude player))
+
+(define-class <fairy-go-round> (<gameobj>)
+  (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 <cake> (<semi-edible-chatty-npc>)
+  ((cmd-take cake-cmd-take)))
+
+(define-actor <slice-of-cake> (<gameobj>)
+  ((cmd-nibble slice-of-cake-cmd-nibble)
+   (cmd-eat slice-of-cake-cmd-eat))
+  (contained-commands
+   #:allocation #:each-subclass
+   #:init-thunk (build-commands
+                 ("nibble" ((direct-command cmd-nibble)))
+                 ("eat" ((direct-command cmd-eat)))))
+  
+  (bites-left #:init-value 4
+              #:accessor .bites-left)
+  (name #:init-value "a slice of cake")
+  (take-me? #:init-value #t)
+  (goes-by #:init-value '("slice of cake" "slice" "slice of wedding cake"
+			  "piece of cake" "piece of wedding cake"))
+  (desc #:init-value "It's a slice of wedding cake!  You could nibble on it
+or just plain eat it!"))
+
+(define (slice-of-cake-cmd-eat slice-of-cake message . _)
+  (define player (message-from message))
+  (define player-loc (mbody-val (<-wait player 'get-loc)))
+  (define player-name (mbody-val (<-wait player 'get-name)))
+  (<- player 'tell
+      #:text "You wolf down your piece of wedding cake all at once like some
+kind of hungry animal!  You're making a huge mess!")
+  (<- player-loc 'tell-room
+      #:text `(,player-name
+               " wolfs down a piece of wedding cake all at once!
+They're making a huge mess!")
+      #:exclude player)
+  (gameobj-self-destruct slice-of-cake))
+
+(define (slice-of-cake-cmd-nibble slice-of-cake message . _)
+  (define player (message-from message))
+  (define player-loc (mbody-val (<-wait player 'get-loc)))
+  (define player-name (mbody-val (<-wait player 'get-name)))
+  (set! (.bites-left slice-of-cake) (- (.bites-left slice-of-cake) 1))
+  (<- player 'tell
+      #:text "You take a nibble of your piece of wedding cake.
+How dignified!")
+  (<- player-loc 'tell-room
+      #:text `(,player-name
+               " takes a nibble of their piece of wedding cake.
+How dignified!")
+      #:exclude player)
+  (when (= (.bites-left slice-of-cake) 0)
+    (<- player 'tell
+        #:text "You've finished your slice of wedding cake!")
+    (<- player-loc 'tell-room
+        #:text `(,player-name
+                 " finishes their slice of wedding cake!")
+        #:exclude player)
+    (gameobj-self-destruct slice-of-cake)))
+
+(define* (cake-cmd-take gameobj message
+                        #:key direct-obj
+                        (player (message-from message)))
+  (create-gameobj <slice-of-cake> (gameobj-gm gameobj)
+                  player)  ;; set loc to player to put in player's inventory
+  (<- player 'tell
+      #:text '((p "You slice off a piece of the tiered wedding cake.
+The cake fills itself back in as if by magic!  Oh no, it's not alive, is it?")
+	       (p "You take the slice of wedding cake with you.")))
+  (<- (gameobj-loc gameobj) 'tell-room
+        #:text `(,(mbody-val (<-wait player 'get-name))
+                 " slices off a piece of the cake and the cake fills itself
+back in!  How strange!")
+        #:exclude player))
+
+(define-class <flowers> (<gameobj>)
+  (commands
+   #:allocation #:each-subclass
+   #:init-thunk (build-commands
+		 (("smell" "sniff") ((direct-command cmd-smell)))))
+  (actions #:allocation #:each-subclass
+           #:init-thunk
+           (build-actions
+            (cmd-smell flowers-cmd-smell))))
+
+(define* (flowers-cmd-smell 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 smell the flower and... whoa.  Wait.  What kind
+of flower is this?")
+	       (p "You teeter as the room spins and then politely
+re-orients itself.")))
+  (<- player-loc 'tell-room
+      #:text `((p ,player-name " smells the flower and teeters around
+a bit."))
+      #:exclude player))
+
+
 
 (define wedding
   (lol
@@ -2441,6 +2611,7 @@ To the south is the forest."))
 	  (make <exit>
 	    #:name "north"
 	    #:to 'vaulted-tunnel)))
+   
    ;; map
    ('wedding-entrance:map
     <readable> 'wedding-entrance
@@ -2449,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
+    <chatty-npc> '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
+    <gameobj> '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
+    <gameobj> '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
     <room> #f
     #:name "A Vaulted Tunnel of Trees"
@@ -2475,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
+    <gameobj> '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
     <room> #f
     #:name "The Ballroom Dance Flooor"
@@ -2484,6 +2698,8 @@ 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.")
+      (p "There are green tables and blue tables surrounding the dancers.
+Various creatures are sitting at them, sitting champagne, and laughing.")
       (p "To the south the trees intertwine forming an entrance.
 The ballroom extends in every other cardinal direction."))
     #:exits
@@ -2511,11 +2727,51 @@ The ballroom extends in every other cardinal direction."))
 	  (make <exit>
 	    #:name "northwest"
 	    #:to 'fairy-go-round)))
+   ('dance-floor:dancers
+    <dancers> 'dance-floor
+    #:name "some dancers"
+    #:desc
+    '((p "They dance at a frantic pace, moving too quickly to get any idea of how many of them there are what they look like.")
+      (p "You could dance with one of them, should you so dare.
+But remember what your parents warned you about dancing fairires..."))
+    #:chat-format (lambda _ "You try talking to the dancers.  They
+laugh and tell you that you should join in the dance with them!  Do you
+dare to do it?  You've vaguely heard about people being lost in time...")
+    #:catchphrases
+    '("Dance with us!  Dance!"
+      "You should be dancing!"
+      "There is nothing but the dance, the dance!")
+    #:goes-by
+    '("some dancers" "dancer" "dancers" "fairy" "fairies"))
+   ('dance-floor:green-table
+    <furniture> 'dance-floor
+    #:name "a green table"
+    #:desc "Each table is draped with layers of gossamer cloth in shades of green. The places are set with translucent china with cups the shape of tulips. The rose gold tableware is decorated with a delicate vine pattern snaking up the handles. In the center of the table is an elaborate arrangement of mauve roses and white lilies."
+    #:goes-by '("green table" "table")
+    #:sit-phrase "pull up a chair at"
+    #:sit-phrase-third-person "pulls up a chair at"
+    #:sit-name "a green table")
+   ('dance-floor:blue-table
+    <furniture> 'dance-floor
+    #:name "a blue table"
+    #:desc "Each table is draped with layers of gossamer cloth in shades of blue. The places are set with translucent china with cups the shape of lotus blossoms. The silver tableware is decorated with a delicate vine pattern snaking up the handles. In the center of the table is an elaborate arrangement of delphiniums and irises."
+    #:goes-by '("blue table")
+    #:sit-phrase "pull up a chair at"
+    #:sit-phrase-third-person "pulls up a chair at"
+    #:sit-name "a blue table")
+   ('dance-floor:chandelier
+    <gameobj> 'dance-floor
+    #:name "a chandelier"
+    #:desc
+    "The chandelier is beautiful with many lovely gems hanging from it.
+Light bounces through it and seems to dance through the room just as much
+as the fairies below it."
+    #:goes-by
+    '("chandelier"))
    ('banquet
     <room> #f
     #:name "A Lovely Banquet"
     #:desc
-    ;; TODO: The brownie disappears when you look directly at it.
     '((p "A large banquet table fills this space.
 Out of the corner of your eye you see a brownie tidying up the
 table while eating brownies.")
@@ -2605,6 +2861,36 @@ by various fiddles, a cello, a harp, and a flute.")
 	  (make <exit>
 	    #:name "south"
 	    #:to 'cake-wing)))
+   ('orchestra:orchestra
+    <chatty-npc> '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."))
+    #:goes-by
+    '("orchestra" "fairies"))
+   ('orchestra:instruments
+    <chatty-npc> 'orchestra
+    #:name "instruments"
+    #:desc
+    '((p "Each instrument seems beautifully made, the best of its kind.
+But you sense that only the most skilled players could play them."))
+    #:take-me?
+    (lambda _
+      (values #f
+              #:why-not
+              `((p "No way.  Are you kidding me?  They're playing those
+instruments right now!  Rude."))))
+    #:goes-by
+    '("instrument" "instruments"
+      "hapsichord" "hapsichords"
+      "harp" "harps"
+      "flute" "flutes"
+      "fiddle" "fiddles"
+      "cello" "cellos"))
    ('cake-wing
     <room> #f
     #:name "The Cake Wing"
@@ -2627,15 +2913,28 @@ massive tiered cake atop it.")
 	    #:to 'flower-field)))
    ;; TODO: You should be able to take a slice of cake
    ('cake-wing:cake
-    <gameobj> 'cake-wing
+    <cake> 'cake-wing
     #:name "the wedding cake"
+    #:chat-format (lambda _ '((p "Okay the wedding cake seems kinda
+alive, but it doesn't seem "
+				 (i "that")
+				 " alive.")))
     #:desc "The lowest tier is a dark green with a fondant vine
 scrolling around it. The second tier is light blue with delphiniums
 painted onto it and mauve fondant roses lining the transition between
 the tiers. The third tier is sky blue, with clouds painted onto the
 frosting. The cake is topped with figurines of four fairies dancing
 in a circle."
-    #:goes-by '("wedding cake" "cake"))
+    #:eat-catchphrase "You think about just eating the cake right here
+and now, but it seems rude."
+    #:goes-by '("wedding cake" "cake" "tiered cake" "tiered wedding cake"))
+   ('cake-wing:stump
+    <gameobj> 'cake-wing
+    #:name "a tree stump"
+    #:invisible? #t
+    #:desc "The cake's sitting on the tree stump.  Otherwise else there's
+not too much to say about this thing."
+    #:goes-by '("stump" "tree stump"))
    ('flower-field
     <room> #f
     #:name "Field of Flowers"
@@ -2643,7 +2942,7 @@ in a circle."
     '((p "A field of wildflowers stretches out before you, far further
 than the confines of the space you saw from the outside. Groups of fairies
 are frolicking about.")
-      (p "The ballroom extends to the north, west, and south."))
+      (p "The ballroom extends to the north."))
     #:exits
     (list (make <exit>
 	    #:name "north"
@@ -2651,6 +2950,28 @@ are frolicking about.")
 	  (make <exit>
 	    #:name "northwest"
 	    #:to 'dance-floor)))
+   ('flower-field:fairies
+    <chatty-npc> 'flower-field
+    #:name "group of fairies"
+    #:chat-format (lambda _
+		    '((p "You try chatting with these fairies but they seem
+kinda unresponsive.  Wait, just what kinds of flowers are these?")))
+    #:desc "There really are just like, a ton of fairies around here aren't
+there?  Anyway these ones are really into these flowers, like, *really* into
+them."
+    #:goes-by '("fairies" "some fairies" "group of fairies"))
+   ('flower-field:flowers
+    <flowers> 'flower-field
+    #:name "flowers"
+    #:desc "The flowers are beautiful... they're also fragrant..."
+    #:take-me?
+    (lambda _
+      (values #f
+              #:why-not
+              `((p "That's not a good idea.  Just look at how much work went
+into this place.  No way... the wedding planner would probably kill you.")
+		(p "I mean, not literally.  Okay, maybe literally."))))
+    #:goes-by '("flowers" "flower"))
    ('playground
     <room> #f
     #:name "Playground"
@@ -2668,6 +2989,35 @@ see-saw hovers a foot from the soft grass below.")
 	  (make <exit>
 	    #:name "northeast"
 	    #:to 'dance-floor)))
+   ('playground:swing
+    <swing> 'playground
+    #:name "a swing"
+    #:desc "There's an open swing here you could swing on.  It sways
+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
+    <chatty-npc> '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
+    <gameobj> '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
     <room> #f
     #:name "The Photo Booth Wing"
@@ -2717,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
+    <gameobj> 'photo-booth-wing
+    #:name "hoaxes"
+    #:invisible? #t
+    #:desc "Some real good japes, these are."
+    #:goes-by '("hoaxes"))
+   ('photo-booth-wing:photographs
+    <gameobj> '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
     <room> #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
@@ -2735,6 +3098,22 @@ stools.")
 	  (make <exit>
 	    #:name "south"
 	    #:to 'photo-booth-wing)))
+   ('fairy-go-round: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
     <room> #f
     #:name "Stairwell"
@@ -2747,7 +3126,7 @@ up fills you with a sense of wonder as the stairs open into the canopy above."))
     #:exits
     (list (make <exit>
 	    #:name "up"
-	    #:to 'wedding-canopy)
+	    #:to 'canopy)
 	  (make <exit>
 	    #:name "down"
 	    #:to 'banquet)))
@@ -2755,7 +3134,7 @@ up fills you with a sense of wonder as the stairs open into the canopy above."))
     <chatty-npc> 'the-stairs
     #:name "a serene young fairy"
     #:desc "A serene, young fairy wearing a long gossamer dress.
-She stairs upwards at the stairs, in true wonder."
+She stares upwards at the stairs, in true wonder."
     #:goes-by '("serene young fairy" "serene fairy" "fairy" "young fairy")
     #:catchphrases
     '("The stairs, just look at those stairs!"
@@ -2767,7 +3146,6 @@ these stairs."
    ('the-stairs:stairs
     <gameobj> 'the-stairs
     #:name "the stairs"
-    #:invisible? #t
     #:desc "They're some beautiful stairs all right.  Whoever made these
 must have been an incredible architect.  Entrancing... maybe too entrancing.
 You fear that if you look at them too long, you might risk not being
@@ -2785,6 +3163,22 @@ around."))
     (list (make <exit>
 	    #:name "down"
 	    #:to 'the-stairs)))
+   ('canopy:pair-of-cats
+    <chatty-npc> 'canopy
+    #:name "a pair of cats"
+    #:desc
+    '((p "These cats are very well dressed!  They're both wearing top
+hats.  They are somewhat gender ambiguous but one seems to lean more
+feminine and the other one leans more masculine.  They look delighted
+from the festivities but also exhausted, as if the party was for them,
+but also as if they planned the whole thing, or whether they're just
+representationally appearing to fill such roles."))
+    #:catchphrases
+    '("Oh yes... hello!  This was a fun time."
+      "It's nice to get away and be here at the same time."
+      "Later maybe we'll have a nice vacation."
+      "Twice is twice as nice, right?")
+    #:goes-by '("cat" "cats" "pair of cats"))
 
 ;;    ('ballroom
 ;;     <room> #f