#:name "the Hotel Bricabrac sign"
#:desc " It strikes you that there's something funny going on with this sign.
Sure enough, if you look at it hard enough, you can tell that someone
#:name "the Hotel Bricabrac sign"
#:desc " It strikes you that there's something funny going on with this sign.
Sure enough, if you look at it hard enough, you can tell that someone
#:name "a shiny brass bell"
#:goes-by '("shiny brass bell" "shiny bell" "brass bell" "bell")
#:desc " A shiny brass bell. Inscribed on its wooden base is the text
\"ring me for service\". You probably could \"ring the bell\" if you
wanted to."
#:name "a shiny brass bell"
#:goes-by '("shiny brass bell" "shiny bell" "brass bell" "bell")
#:desc " A shiny brass bell. Inscribed on its wooden base is the text
\"ring me for service\". You probably could \"ring the bell\" if you
wanted to."
"the pickled circuitboard of EVLIS"
"a scroll of teletype paper holding the software Four Freedoms"
"a telephone shaped like an orange cartoon cat")))))
"the pickled circuitboard of EVLIS"
"a scroll of teletype paper holding the software Four Freedoms"
"a telephone shaped like an orange cartoon cat")))))
#:name "sign-in form"
#:goes-by '("sign-in form" "form" "signin form")
#:desc "It looks like you could sign this form and set your name.")
#:name "sign-in form"
#:goes-by '("sign-in form" "form" "signin form")
#:desc "It looks like you could sign this form and set your name.")
#:invisible? #t
#:name "a creepy porcelain doll"
#:desc "It strikes you that while the doll is technically well crafted,
it's also the stuff of nightmares."
#:goes-by '("porcelain doll" "doll"))
#:invisible? #t
#:name "a creepy porcelain doll"
#:desc "It strikes you that while the doll is technically well crafted,
it's also the stuff of nightmares."
#:goes-by '("porcelain doll" "doll"))
#:invisible? #t
#:name "a set of 1950s robots"
#:desc "There's a whole set of these 1950s style robots.
They seem to be stamped out of tin, and have various decorations of levers
and buttons and springs. Some of them have wind-up knobs on them."
#:goes-by '("robot" "robots" "1950s robot" "1950s robots"))
#:invisible? #t
#:name "a set of 1950s robots"
#:desc "There's a whole set of these 1950s style robots.
They seem to be stamped out of tin, and have various decorations of levers
and buttons and springs. Some of them have wind-up knobs on them."
#:goes-by '("robot" "robots" "1950s robot" "1950s robots"))
#:invisible? #t
#:name "a tea set"
#:desc "A complete tea set. Some of the cups are chipped.
You can imagine yourself joining a tea party using this set, around a
nice table with some doilies, drinking some Earl Grey tea, hot. Mmmm."
#:goes-by '("tea set" "tea"))
#:invisible? #t
#:name "a tea set"
#:desc "A complete tea set. Some of the cups are chipped.
You can imagine yourself joining a tea party using this set, around a
nice table with some doilies, drinking some Earl Grey tea, hot. Mmmm."
#:goes-by '("tea set" "tea"))
like this in a museum.")
(p "Ha... imagine that... a mustard museum."))
#:goes-by '("mustard pot" "antique mustard pot" "mustard"))
like this in a museum.")
(p "Ha... imagine that... a mustard museum."))
#:goes-by '("mustard pot" "antique mustard pot" "mustard"))
#:invisible? #t
#:name "the pickled circuitboard of Evlis"
#:desc '((p "It's a circuitboard from a Lisp Machine called EVLIS.
#:invisible? #t
#:name "the pickled circuitboard of Evlis"
#:desc '((p "It's a circuitboard from a Lisp Machine called EVLIS.
#:goes-by '("pickled circuitboard of evlis" "pickled circuitboard of Evlis"
"pickled circuitboard of EVLIS"
"evlis" "Evlis" "EVLIS" "circuitboard" "pickled circuitboard"))
#:goes-by '("pickled circuitboard of evlis" "pickled circuitboard of Evlis"
"pickled circuitboard of EVLIS"
"evlis" "Evlis" "EVLIS" "circuitboard" "pickled circuitboard"))
"teletype paper" "scroll" "four freedoms"
"scroll of teletype paper holding the software Four Freedoms"
"scroll of teletype paper holding the software four freedoms"))
"teletype paper" "scroll" "four freedoms"
"scroll of teletype paper holding the software Four Freedoms"
"scroll of teletype paper holding the software four freedoms"))
#:invisible? #t
#:name "a telephone shaped like an orange cartoon cat"
#:desc "It's made out of a cheap plastic, and it's very orange.
#:invisible? #t
#:name "a telephone shaped like an orange cartoon cat"
#:desc "It's made out of a cheap plastic, and it's very orange.
- #:to 'room:smoking-parlor)))
- ('thing:hackthena-statue
- <gameobj> 'room:grand-hallway
+ #:to 'smoking-parlor)))
+ ('grand-hallway:hackthena-statue
+ <gameobj> 'grand-hallway
#:name "a statue"
#:desc '((p "The base of the statue says \"Hackthena, guardian of the hacker
spirit\". You've heard of Hackthena... not a goddess, but spiritual protector of
#:name "a statue"
#:desc '((p "The base of the statue says \"Hackthena, guardian of the hacker
spirit\". You've heard of Hackthena... not a goddess, but spiritual protector of
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.
You'd better take a closer look to be sure."))
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.
You'd better take a closer look to be sure."))
#:name "a cuddles plushie"
#:goes-by '("plushie" "cuddles plushie" "cuddles")
#:take-me? #t
#:desc " A warm and fuzzy cuddles plushie! It's a cuddlefish!")
#:name "a cuddles plushie"
#:goes-by '("plushie" "cuddles plushie" "cuddles")
#:take-me? #t
#:desc " A warm and fuzzy cuddles plushie! It's a cuddlefish!")
#:name "a comfy leather chair"
#:desc " That leather chair looks really comfy!"
#:goes-by '("leather chair" "comfy leather chair" "chair")
#:sit-phrase "sink into"
#:sit-phrase-third-person "sinks into"
#:sit-name "the comfy leather chair")
#:name "a comfy leather chair"
#:desc " That leather chair looks really comfy!"
#:goes-by '("leather chair" "comfy leather chair" "chair")
#:sit-phrase "sink into"
#:sit-phrase-third-person "sinks into"
#:sit-name "the comfy leather chair")
#:name "a plush leather sofa"
#:desc " That leather chair looks really comfy!"
#:goes-by '("leather sofa" "plush leather sofa" "sofa"
#:name "a plush leather sofa"
#:desc " That leather chair looks really comfy!"
#:goes-by '("leather sofa" "plush leather sofa" "sofa"
#:sit-phrase "sprawl out on"
#:sit-phrase-third-person "sprawls out on into"
#:sit-name "the plush leather couch")
#:sit-phrase "sprawl out on"
#:sit-phrase-third-person "sprawls out on into"
#:sit-name "the plush leather couch")
#:name "a bar stool"
#:desc " Conveniently located near the bar! Not the most comfortable
seat in the room, though."
#:name "a bar stool"
#:desc " Conveniently located near the bar! Not the most comfortable
seat in the room, though."
#:name "Ford Prefect"
#:desc "Just some guy, you know?"
#:goes-by '("Ford Prefect" "ford prefect"
"frood" "prefect" "ford")
#:catchphrases prefect-quotes)
#:name "Ford Prefect"
#:desc "Just some guy, you know?"
#:goes-by '("Ford Prefect" "ford prefect"
"frood" "prefect" "ford")
#:catchphrases prefect-quotes)
#:text
"The clerk's ears perk up, she stamps out a cigarette, and she
runs out of the room!\n")
#:text
"The clerk's ears perk up, she stamps out a cigarette, and she
runs out of the room!\n")
(slot-set! clerk 'patience 8)
(slot-set! clerk 'state 'on-duty)
(<- (gameobj-loc clerk) 'tell-room
(slot-set! clerk 'patience 8)
(slot-set! clerk 'state 'on-duty)
(<- (gameobj-loc clerk) 'tell-room
(slot-set! clerk 'state 'slacking)
(<- (gameobj-loc clerk) 'tell-room
#:text clerk-return-to-slacking-text
(slot-set! clerk 'state 'slacking)
(<- (gameobj-loc clerk) 'tell-room
#:text clerk-return-to-slacking-text
(tell-room clerk-return-to-slacking-text)
;; annnnnd back to slacking
(slot-set! clerk 'state 'slacking)
(tell-room clerk-return-to-slacking-text)
;; annnnnd back to slacking
(slot-set! clerk 'state 'slacking)
- #:to 'room:smoking-parlor))
- )
- ('npc:break-room:desk-clerk
- <desk-clerk> 'room:break-room
+ #:to 'smoking-parlor)))
+ ('break-room:desk-clerk
+ <desk-clerk> 'break-room
#:name "the hotel desk clerk"
#:desc " The hotel clerk is wearing a neatly pressed uniform bearing the
hotel insignia. She appears to be rather exhausted."
#:goes-by '("hotel desk clerk" "clerk" "desk clerk"))
#:name "the hotel desk clerk"
#:desc " The hotel clerk is wearing a neatly pressed uniform bearing the
hotel insignia. She appears to be rather exhausted."
#:goes-by '("hotel desk clerk" "clerk" "desk clerk"))
#:invisible? #t
#:name "The Void"
#:desc "As you stare into the void, the void stares back into you."
#:goes-by '("void" "abyss" "nothingness" "scenery"))
#:invisible? #t
#:name "The Void"
#:desc "As you stare into the void, the void stares back into you."
#:goes-by '("void" "abyss" "nothingness" "scenery"))