(dyn-ref room (slot-ref exit 'to))
#f))
(define player-name
- (msg-receive (_ #:key val)
- (<-wait room (message-from message) 'get-name)
- val))
+ (msg-val (<-wait room (message-from message) 'get-name)))
(cond
(exit
;; Set the player's new location
(cond
(matching-object
(let ((obj-desc
- (msg-receive (_ #:key val)
- (<-wait room matching-object 'get-desc
- #:whos-looking (message-from message))
- val)))
+ (msg-val (<-wait room matching-object 'get-desc
+ #:whos-looking (message-from message)))))
(if obj-desc
(<- room (message-from message) 'tell
#:text (string-append obj-desc "\n"))
(define* (room-cmd-say room message #:key phrase)
"Command: Say something to room participants."
(define player-name
- (msg-receive (_ #:key val)
- (<-wait room (message-from message)
- 'get-name)
- val))
+ (msg-val (<-wait room (message-from message)
+ 'get-name)))
(define message-to-send
(format #f "~a says: ~a\n" player-name phrase))
(room-tell-room room message-to-send))
(define* (room-cmd-emote room message #:key phrase)
"Command: Say something to room participants."
(define player-name
- (msg-receive (_ #:key val)
- (<-wait room (message-from message)
- 'get-name)
- val))
+ (msg-val (<-wait room (message-from message)
+ 'get-name)))
(define message-to-send
(format #f "* ~a ~a\n" player-name phrase))
(room-tell-room room message-to-send))
(define* (room-announce-entrance room message #:key who-entered)
(define player-name
- (msg-receive (_ #:key val)
- (<-wait room who-entered 'get-name)
- val))
+ (msg-val (<-wait room who-entered 'get-name)))
(define message-to-send
(format #f "~a enters the room.\n" player-name))
(room-tell-room room message-to-send