| Entrance |
'-----------------'")
+
+(define-class <semi-edible-chatty-npc> (<chatty-npc>)
+ (commands
+ #:allocation #:each-subclass
+ #:init-thunk (build-commands
+ (("eat") ((direct-command cmd-eat)))))
+ (eat-catchphrase
+ #:init-keyword #:eat-catchphrase
+ #:accessor .eat-catchphrase
+ #:init-value "Should you really eat this?")
+ (actions #:allocation #:each-subclass
+ #:init-thunk
+ (build-actions
+ (cmd-eat cmd-eat-semi-edible-chatty-npc))))
+
+(define* (cmd-eat-semi-edible-chatty-npc actor message #:key direct-obj)
+ (<- (message-from message) 'tell
+ #:text (.eat-catchphrase actor)))
+
+
(define wedding
(lol
;; Courtyard
#:to 'fairy-go-round)))
('banquet
<room> #f
- #:name "Banquet Hall"
+ #: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 moves"))
+ (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"
(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
'((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."))
+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"
#:name "The Cake Wing"
#:desc
'((p "A large tree stump sits in the middle of the space with a
-massive tiered cake atop it."))
+massive tiered cake atop it.")
+ (p "The ballroom extends to the north, west, and south."))
#:exits
(list (make <exit>
#:name "north"
#: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."))
+are frolicking about.")
+ (p "The ballroom extends to the north, west, and south."))
#:exits
(list (make <exit>
#:name "north"
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."))
+see-saw hovers a foot from the soft grass below.")
+ (p "The ballroom extends to the north."))
#:exits
(list (make <exit>
#:name "north"
'((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’."))
+‘hoaxes’.")
+ (p "The ballroom extends to the north, east, and south."))
#:exits
(list (make <exit>
#:name "north"
#: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
-stools."))
+stools.")
+ (p "The ballroom extends to the east and south."))
#:exits
(list (make <exit>
#:name "east"
#:desc
'((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."))
+the stairs is a fairy dreamily looking up at them.")
+ (p "The stairwell's entrance from the ballroom goes down. Looking
+up fills you with a sense of wonder as the stairs open into the canopy above."))
#:exits
(list (make <exit>
#:name "up"
('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."
+ #:desc "A serene, young fairy wearing a long gossamer dress.
+She stairs upwards at the stairs, in true wonder."
#: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."
- ))
+ '("The stairs, just look at those stairs!"
+ "I'd like to thank everyone who made this possible... and most
+importantly... I'd like to thank the stairs."
+ "What a beautiful mind... what a beautiful mind must have made
+these stairs."
+ "They go on, and upward, the stairs... they're so... beautiful..."))
+ ('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
+able to think of anything else."
+ #:goes-by '("stairs"))
('canopy
<room> #f
#:name "The Canopy"
projects / mudsync.git / commitdiff