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)
#:goes-by '("orange cartoon cat phone" "orange cartoon cat telephone"
"orange cat phone" "orange cat telephone"
"cartoon cat phone" "cartoon cat"
- "cat phone" "cat telephone" "phone" "telephone"))))
+ "cat phone" "cat telephone" "phone" "telephone"))
+ ('lobby:monster-stuffie
+ <gameobj> 'lobby
+ #:name "an off-brand monster stuffie"
+ #:desc "It's an off brand monster stuffed animal that looks, well kinda
+like a popular character you've seen in a video game, but there's been a very
+thin attempt to make it look like something different... mostly by changing
+the shape of the ears. It's cute though!"
+ #:take-me? #t
+ #:goes-by '("monster stuffie" "monster" "stuffed animal" "stuffed monster"
+ "off-brand monster stuffie" "stuffie" "monster stuffie"))))
\f
spirit\". You've heard of Hackthena... not a goddess, but spiritual protector of
all good hacks, and legendary hacker herself.")
(p "Hackthena holds the form of a human woman. She wears flowing
-robes, has a pear of curly bovine-esque horns protruding from the sides of her
+robes, has a pair of curly bovine-esque horns protruding from the sides of her
head, wears a pair of horn-rimmed glasses, and appears posed as if for battle.
But instead of a weapon, she seems to hold some sort of keyboard. And her
shield... well it's round like a shield, but something seems off about it.
#:name "a candle"
#:goes-by '("candle")
#:steps `("The candle burns..."
- (/ 2 3) ; oops!
+ .3 ; oops!
"The candle is burning away a rope!"
2
"The rope snaps!"
<furniture> 'smoking-parlor
#:name "a comfy leather chair"
#:desc " That leather chair looks really comfy!"
- #:goes-by '("leather chair" "comfy leather chair" "chair")
+ #:goes-by '("leather chair" "comfy leather chair" "chair" "comfy chair")
#:sit-phrase "sink into"
#:sit-phrase-third-person "sinks into"
#:sit-name "the comfy leather chair")
"but they all seem glued in place and instead of a person manning the shop "
"there's merely a cardboard cutout of a person with a \"shopkeeper\" nametag. "
"You can pretty well bet that someone wanted to finish this room but ran out of "
- "time.")
+ "time. "
+ "It looks like there's an exit to the northeast, should you choose that you "
+ "want to get out of here.")
#:exits (list
(make <exit>
#:name "northeast"
"ActivityPub")
" is a federation standard being developed under the "
(a "https://www.w3.org/wiki/Socialwg/"
- "w3C Social Working Group")
+ "W3C Social Working Group")
", and doubles as a general client-to-server API. "
"It follows a few simple core ideas:")
(ul (li "Uses "
also a large sign near the doors on a wooden easel."))
#:exits
(list (make <exit>
+ #:name "north"
+ #:to 'courtyard)
+ (make <exit>
#:name "south"
#:to 'grand-hallway)))
('north-hall:sign
#:goes-by '("door" "doors" "room doors" "large doors"))))
+;;; ============
+;;; WEDDING TIME
+;;; ============
+
+(define wedding-map-text
+ "\
+ Banquet
+ &Stairs
+ (========)
+ .----.\\======/=.----.
+ Fairy - : \\====/ : -
+ Go ./ : )==( : \\. Orchestra
+ Round / (&&&) : (/==\\) : & & & \\
+ / : : \\
+ .--------..--------..--------.
+ | _ _ .' '. ,,, ;
+Photo | | | |_| : Dance : .|_|. | Cake
+ | '-' : Floor : |___| |
+ ',-------.\\ ;.--------,'
+ ; .. '.......' ;
+ \\ ||)) .-=-. ^ */
+ \\.||(( ^ // \\\\^ * ^'./
+ Play '. ^ ;; ;;^ ^.,'
+ Ground +----||-----||----+ Flowers
+ | .---. |
+ | |_ _| [F] |
+ | | |
+ | 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-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 wedding
+ (lol
+ ;; Courtyard
+ ;; ---------
+ ('courtyard
+ <room> #f
+ #:name "The Courtyard"
+ #:desc
+ '((p "Standing in the courtyard you feel... different. As if the courtyard itself
+was the space between worlds, cobbled together hastily by some distant being.")
+ (p "To the south are some large doors which serve as the back entrance to
+the hotel. To the north is a forest, from which festive noises emerge."))
+ #:exits
+ (list (make <exit>
+ #:name "south"
+ #:to 'north-hall)
+ (make <exit>
+ #:name "north"
+ #:to 'forest-clearing)))
+ ('forest-clearing
+ <room> #f
+ #:name "A Clearing in the Forest"
+ #:desc
+ '((p "During an aimless ramble through the forest you became
+disoriented and lost your way. It has been some time since you’ve seen
+any of the familiar landmarks that would help you orient yourself. As
+you continue on, the feel of the forest seems to shift. As the trees
+grow thicker the light dims. Eerie laughter echoes through the boughs
+overhead and you shiver.")
+ (p "A warm light to the north beckons you towards it.
+South leads back to the Hotel's main grounds."))
+ #:exits
+ (list (make <exit>
+ #:name "north"
+ #:to 'wedding-entrance)
+ (make <exit>
+ #:name "south"
+ #:to 'courtyard)))
+ ('wedding-entrance
+ <room> #f
+ #:name "Entrance to the Wedding"
+ #:desc
+ '((p "As you approach you realize that the light is not an exit from the
+forest or a clearing, rather thousands of minuscule lights twined
+through the boughs of the trees. What you see before you is some sort
+of living structure composed of a thicket of trees intertwined with
+bramble. To the left of the entrance is a sign, to the right is a frog
+sitting atop a hostess podium.")
+ (p "To the north the limbs of two trees intertwine, making an entrance.
+To the south is the forest."))
+ #:exits
+ (list (make <exit>
+ #:name "south"
+ #:to 'forest-clearing)
+ (make <exit>
+ #:name "north"
+ #:to 'vaulted-tunnel)))
+
+ ;; map
+ ('wedding-entrance:map
+ <readable> 'wedding-entrance
+ #:name "wedding map"
+ #:desc '("This appears to be a map of the wedding grounds. "
+ "You could read it if you want to.")
+ #:read-text `(pre ,wedding-map-text)
+ #:goes-by '("map" "wedding map"))
+ ('vaulted-tunnel
+ <room> #f
+ #:name "A Vaulted Tunnel of Trees"
+ #:desc
+ '((p "You step into the entrance to see two rows of trees with intersecting
+branches, forming a vaulted tunnel. The fairy lights cast a soft glow on the space.
+On each tree trunk is a portrait and the eerie laughter you heard outside echoes
+louder as you pass each portrait.")
+ (p "The tunnel enters from the south and exits from the north, with light
+glowing each way."))
+ #:exits
+ (list (make <exit>
+ #:name "south"
+ #:to 'wedding-entrance)
+ (make <exit>
+ #:name "north"
+ #:to 'dance-floor)))
+ ('vaulted-tunnel:portrait
+ <gameobj> 'vaulted-tunnel
+ #:name "hanging portraits"
+ #:desc
+ "Each portrait shows a hazy image of a fairy in various modes of dress from
+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"))
+ ('dance-floor
+ <room> #f
+ #: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.")
+ (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
+ (list (make <exit>
+ #:name "north"
+ #:to 'banquet)
+ (make <exit>
+ #:name "northeast"
+ #:to 'orchestra)
+ (make <exit>
+ #:name "east"
+ #:to 'cake-wing)
+ (make <exit>
+ #:name "southeast"
+ #:to 'flower-field)
+ (make <exit>
+ #:name "south"
+ #:to 'vaulted-tunnel)
+ (make <exit>
+ #:name "southwest"
+ #:to 'playground)
+ (make <exit>
+ #:name "west"
+ #:to 'photo-booth-wing)
+ (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")
+ ('banquet
+ <room> #f
+ #:name "A Lovely Banquet"
+ #:desc
+ '((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."))
+ #: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"
+ #:desc
+ '((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’.")
+ (p "The ballroom extends to the north, east, and south."))
+ #:exits
+ (list (make <exit>
+ #:name "north"
+ #:to 'fairy-go-round)
+ (make <exit>
+ #:name "northeast"
+ #:to 'banquet)
+ (make <exit>
+ #:name "east"
+ #:to 'dance-floor)
+ (make <exit>
+ #:name "south"
+ #: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 "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.")
+ (p "The ballroom extends to the east and south."))
+ #:exits
+ (list (make <exit>
+ #:name "east"
+ #:to 'banquet)
+ (make <exit>
+ #:name "southeast"
+ #:to 'dance-floor)
+ (make <exit>
+ #:name "south"
+ #:to 'photo-booth-wing)))
+ ('the-stairs
+ <room> #f
+ #:name "Stairwell"
+ #: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.")
+ (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"
+ #:to 'canopy)
+ (make <exit>
+ #:name "down"
+ #:to 'banquet)))
+ ('the-stairs:fairy
+ <chatty-npc> 'the-stairs
+ #:name "a serene young fairy"
+ #:desc "A serene, young fairy wearing a long gossamer dress.
+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!"
+ "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"
+ #: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"
+ #:desc
+ '((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"
+ #: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
+;; #:name "The Ballroom"
+;; #:exits (list
+;; (make <exit>
+;; )
+;; [north entrance]
+;; [east entrance]
+
+;; [south vaulted-tunnel]
+;; [west entrance])
+;; #:desc ("You emerge into a clearing with six trees encircling a magical ballroom. At the center is a dance floor where " (cast dancers "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."))
+
+ ))
+
+
\f
;;; Game
;;; ----
playroom break-room computer-room underground-lab
async-museum gift-shop hive-entrance
hive-inside federation-station
- north-hall))
+ north-hall wedding))
;; TODO: Provide command line args
(define (run-game . args)
projects / mudsync.git / blobdiff