+ #: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.")
+ (p "An ornate set of stairs goes up and into the distance.
+The ballroom extends to the west, south, and east."))
+ #:exits
+ (list (make <exit>
+ #:name "south"
+ #:to 'dance-floor)
+ (make <exit>
+ #:name "west"
+ #:to 'fairy-go-round)
+ (make <exit>
+ #:name "east"
+ #:to 'orchestra)
+ (make <exit>
+ #:name "southeast"
+ #:to 'cake-wing)
+ (make <exit>
+ #:name "southwest"
+ #:to 'photo-booth-wing)
+ (make <exit>
+ #:name "up"
+ #:to 'the-stairs)))
+ ('banquet:brownie
+ <semi-edible-chatty-npc> 'banquet
+ #:chat-format (lambda _ "The brownie disappears when you try to
+talk to her! But she reappears once you stop talking.")
+ #:eat-catchphrase "The brownie shrieks with surprise as you try
+to eat her! She swats you away!"
+ #:name "a brownie"
+ #:desc "The brownie disappears out of sight when you try to
+look directly at her! However if you look just off to the side you
+can see her positively devouring that plate of brownies."
+ #:take-me? (lambda _
+ (values #f
+ #:why-not
+ `("The brownie swats your hand away when you try to take her!")))
+ #:goes-by '("brownie"))
+ ('banquet:brownies
+ <semi-edible-chatty-npc> 'banquet
+ #:chat-format (lambda _ "You try to chat with the brownies but
+they are inanimate! The brownie looks at you strangely from the corner
+of her eye. She's clearly judging you.")
+ #:eat-catchphrase "You reach forward to eat one of the brownies,
+but the brownie snarls at you and you think better of it. Best to leave them
+to her."
+ #:name "brownies"
+ #:desc "It's a plate of brownies. They look delicious and you desperately
+wish to eat one."
+ #:take-me? (lambda _
+ (values #f
+ #:why-not
+ `("The brownie swats your hand away when you try to take
+one of the brownies! She leans over the plate of brownies protectively!")))
+ #:goes-by '("brownies" "plate of brownies"))
+ ('banquet:stairs
+ <gameobj> 'banquet
+ #:name "the stairs"
+ #:invisible? #t
+ #:desc "From here it's clearly a nice set of stairs.
+But you get the impression that to really see the stairs, you
+should go upward and get a view from on the stairs themselves."
+ #:goes-by '("stairs" "stairwell" "stairwell entrance"))
+ ('banquet:banquet-table
+ <gameobj> 'banquet
+ #:name "a banquet table"
+ #:desc "The long rectangular table is draped with layers of gossamer
+cloth in shades of blue and green. It is laden with an assortment of
+exotic dishes in bowls and platters in the shapes of various flowers."
+ #:goes-by '("banquet table" "table"))
+ ('orchestra
+ <room> #f
+ #:name "The Orchestra"
+ #:desc
+ '((p "An orchestra of fairies plays the high-tempo ethereal music
+for the frenzied dancers. In the back is a harpsichord, accompanied
+by various fiddles, a cello, a harp, and a flute.")
+ (p "The ballroom extends to the west and south."))
+ #:exits
+ (list (make <exit>
+ #:name "west"
+ #:to 'banquet)
+ (make <exit>
+ #:name "southwest"
+ #:to 'dance-floor)
+ (make <exit>
+ #:name "south"
+ #:to 'cake-wing)))
+ ('cake-wing
+ <room> #f
+ #:name "The Cake Wing"
+ #:desc
+ '((p "A large tree stump sits in the middle of the space with a
+massive tiered cake atop it.")
+ (p "The ballroom extends to the north, west, and south."))
+ #:exits
+ (list (make <exit>
+ #:name "north"
+ #:to 'orchestra)
+ (make <exit>
+ #:name "west"
+ #:to 'dance-floor)
+ (make <exit>
+ #:name "northwest"
+ #:to 'banquet)
+ (make <exit>
+ #:name "south"
+ #:to 'flower-field)))
+ ;; TODO: You should be able to take a slice of cake
+ ('cake-wing:cake
+ <gameobj> 'cake-wing
+ #:name "the wedding cake"
+ #: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"))
+ ('flower-field
+ <room> #f
+ #:name "Field of Flowers"
+ #:desc
+ '((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."))
+ #:exits
+ (list (make <exit>
+ #:name "north"
+ #:to 'cake-wing)
+ (make <exit>
+ #:name "northwest"
+ #:to 'dance-floor)))
+ ('playground
+ <room> #f
+ #:name "Playground"
+ #:desc
+ '((p "You come across a playground that echoes with the sounds of children
+playing. Vines hang from the boughs above forming swings of varying
+heights and sizes. Young fairies climb up an obliging maple tree and
+use the helicopter seeds to float back to the ground. An enchanted
+see-saw hovers a foot from the soft grass below.")
+ (p "The ballroom extends to the north."))
+ #:exits
+ (list (make <exit>
+ #:name "north"
+ #:to 'photo-booth-wing)
+ (make <exit>
+ #:name "northeast"
+ #:to 'dance-floor)))
+ ('photo-booth-wing
+ <room> #f
+ #:name "The Photo Booth Wing"