don't get the sense that she's likely to move any time soon.
Attached to her frumpy dress is a barely secured pin which says
\"Hotel Proprietor\", but she looks so disorganized that you think
-that can't possibly be true... can it?
- Despite her exhaustion, you sense she'd be happy to chat with you,
-though the conversation may be a bit one sided."))
+that can't possibly be true... can it?")
+ (p "Despite her exhaustion, you sense she'd be happy to chat
+with you, though the conversation may be a bit one sided."))
+
#:goes-by '("languid lady" "lady"
"hotel proprietor" "proprietor")
#:catchphrases hotel-owner-grumps)
#:name "The Ballroom Dance Flooor"
#: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.")
+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 "To the south the trees intertwine forming an entrance.
The ballroom extends in every other cardinal direction."))
#:exits
<room> #f
#:name "Banquet Hall"
#:desc
- '((p ""))
+ ;; 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 moves"))
#:exits
(list (make <exit>
#:name "south"
(make <exit>
#:name "up"
#:to 'the-stairs)))
+ ('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 ""))
+ '((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."))
#:exits
(list (make <exit>
#:name "west"
<room> #f
#:name "The Cake Wing"
#:desc
- '((p ""))
+ '((p "A large tree stump sits in the middle of the space with a
+massive tiered cake atop it."))
#:exits
(list (make <exit>
#:name "north"
(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 ""))
+ '((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."))
#:exits
(list (make <exit>
#:name "north"
<room> #f
#:name "Playground"
#:desc
- '((p ""))
+ '((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."))
#:exits
(list (make <exit>
#:name "north"
<room> #f
#:name "The Photo Booth Wing"
#:desc
- '((p ""))
+ '((p "There is a photographer with A Victorian bellows camera for guests to
+have their portrait taken. The trunks of the trees lining this section
+are covered in photographs of fairies and historical fairy
+‘hoaxes’."))
#:exits
(list (make <exit>
#:name "north"
#:to 'dance-floor)
(make <exit>
#:name "south"
- #:to 'playgroun)))
+ #:to 'playground)))
+ ('photo-booth-wing:camera
+ <gameobj> 'photo-booth-wing
+ #:name "an old-fashioned camera"
+ #:desc '((p "This old-fashioned camera has a lens that extends out with an accordion or bellows shaped enclosure. The flash bulb is held separately by the photographer."))
+ #:goes-by '("old-fashioned camera" "camera"))
+ ('photo-booth-wing:photographer
+ <chatty-npc> 'photo-booth-wing
+ #:name "a photographer"
+ #:desc "You suppose there's a person under the drapery of the
+camera somewhere, though all you can see are his legs."
+ #:goes-by '("photographer")
+ #:catchphrases
+ '("Alright, smile for me real big everyone!"
+ "It's real difficult to get fairies to sit still enough to take
+a clear photo of them. That's my specialty... and it's still tough, heh."
+ "Fairy photos just don’t work with modern cameras. You need these old
+bellows-cameras, or maybe an old brownie camera in order to really
+capture fairies!"))
+ ('photo-booth-wing:flash-bulb
+ <gameobj> 'photo-booth-wing
+ #:name "a flash bulb"
+ #:invisible? #t
+ #:desc "The flash bulb is large and appears to have a filament that's
+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"))
('fairy-go-round
<room> #f
#:name "Fairy Go Round"
#:desc
- '((p ""))
+ '((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
+stools."))
#:exits
(list (make <exit>
#:name "east"
#:to 'photo-booth-wing)))
('the-stairs
<room> #f
- #:name "The Stairs"
+ #:name "Stairwell"
#:desc
- '((p ""))
+ '((p "A grand staircase springs from the ground, the twisting branches and
+vines woven into an ornate pattern up the balustrade. At the foot of
+the stairs is a fairy dreamily looking up at them."))
#:exits
(list (make <exit>
#:name "up"
(make <exit>
#:name "down"
#:to 'banquet)))
- ('name
+ ('the-stairs:fairy
+ <chatty-npc> 'the-stairs
+ #:name "a serene young fairy"
+ #:desc "You suppose there's a person under the drapery of the
+camera somewhere, though all you can see are his legs."
+ #:goes-by '("serene young fairy" "serene fairy" "fairy" "young fairy")
+ #:catchphrases
+ '("Alright, smile for me real big everyone!"
+ "It's real difficult to get fairies to sit still enough to take
+a clear photo of them. That's my specialty... and it's still tough, heh."
+ ))
+ ('canopy
<room> #f
#:name "The Canopy"
#:desc
- '((p ""))
+ '((p "The branches of the trees helpfully form into a relatively smooth and
+sturdy surface to walk around the perimeter of the ballroom from
+above. There are two exhausted looking cats in tophats lounging
+around."))
#:exits
(list (make <exit>
#:name "down"
projects / mudsync.git / commitdiff