(define* (sign-cmd-sign-in actor message
#:key direct-obj indir-obj preposition)
(define old-name
- (msg-val (<-wait (message-from message) 'get-name)))
+ (mbody-val (<-wait (message-from message) 'get-name)))
(define name indir-obj)
(if (valid-name? indir-obj)
(begin
;; handler... meanwhile, this procedure suspends until we get
;; their response.
(define who-rang
- (msg-val (<-wait (message-from message) 'get-name)))
+ (mbody-val (<-wait (message-from message) 'get-name)))
;; Now we'll invoke the "tell" message handler on the player
;; who rang us, displaying this text on their screen.
#:desc
" You're in some sort of hotel lobby. You see a large sign hanging
over the desk that says \"Hotel Bricabrac\". On the desk is a bell
-that says \"ring for service\". Terrible music plays from a speaker
+that says \"'ring bell' for service\". Terrible music plays from a speaker
somewhere overhead.
The room is lined with various curio cabinets, filled with all sorts
of kitschy junk. It looks like whoever decorated this place had great
(define* (furniture-cmd-sit actor message #:key direct-obj)
(define player-name
- (msg-val (<-wait (message-from message) 'get-name)))
+ (mbody-val (<-wait (message-from message) 'get-name)))
(<- (message-from message) 'tell
#:text (format #f "You ~a ~a.\n"
(slot-ref actor 'sit-phrase)
(define* (clerk-cmd-dismiss clerk message . _)
(define player-name
- (msg-val (<-wait (message-from message) 'get-name)))
+ (mbody-val (<-wait (message-from message) 'get-name)))
(match (slot-ref clerk 'state)
('on-duty
(<- (gameobj-loc clerk) 'tell-room
"The clerk takes a deep breath.\n"
"The clerk yawns.\n"
"The clerk drums her nails on the counter.\n"
- "The clerk clicks around on the desk computer.\n"))
+ "The clerk clicks around on the desk computer.\n"
+ "The clerk thumbs through a printout of some physics paper.\n"
+ "The clerk mutters that her dissertation isn't going to write itself.\n"))
(define clerk-slack-excuse-text
"The desk clerk excuses herself, claiming she has important things to