(define inv-names
(map
(lambda (inv-item)
- (msg-val (<-wait inv-item 'get-name)))
+ (mbody-val (<-wait inv-item 'get-name)))
(gameobj-occupants player)))
(define text-to-show
(if (eq? inv-names '())
;; Ask the room for its commands
(define room-commands
;; TODO: Map room id and sort
- (msg-receive (_ #:key commands)
+ (mbody-receive (_ #:key commands)
(<-wait player-loc 'get-container-commands
#:verb verb)
commands))
(define co-occupants
(remove
(lambda (x) (equal? x (actor-id player)))
- (msg-receive (_ #:key occupants)
+ (mbody-receive (_ #:key occupants)
(<-wait player-loc 'get-occupants)
occupants)))
(define co-occupant-commands
(fold
(lambda (co-occupant prev)
- (msg-receive (_ #:key commands goes-by)
+ (mbody-receive (_ #:key commands goes-by)
(<-wait co-occupant 'get-commands
#:verb verb)
(append
(define inv-item-commands
(fold
(lambda (inv-item prev)
- (msg-receive (_ #:key commands goes-by)
+ (mbody-receive (_ #:key commands goes-by)
(<-wait inv-item 'get-contained-commands
#:verb verb)
(append