+
+(define-mhandler (room-tell-room room message text)
+ "Tell the room some messages."
+ (define exclude (message-ref message 'exclude #f))
+ (define wait-delivery (message-ref message 'wait-delivery #f))
+ (define who-to-tell (gameobj-occupants room #:exclude exclude))
+ (for-each
+ (lambda (tell-me)
+ ;; @@: Does anything really care?
+ (define deliver-method
+ (if wait-delivery
+ <-wait
+ <-))
+ (deliver-method room tell-me 'tell
+ #:text text))
+ who-to-tell))