+ (define occupant-names-string
+ (if (eq? occupant-names-filtered '())
+ #f
+ (format #f "You see here: ~a.\n"
+ (list-words-as-string occupant-names-filtered))))
+
+ (define final-text
+ (if occupant-names-string
+ (string-append room-text occupant-names-string)
+ room-text))
+
+ (<- room player-id 'tell
+ #:text final-text))
+
+
+(define-mhandler (room-look-room room message)
+ "Command: Player asks to look around the room"
+ (room-player-looks-around
+ room
+ ;; Either send it to the #:to-id of the message, or to the
+ ;; sender of the message
+ (message-ref message 'to-id
+ (message-from message))))
+
+(define (room-find-thing-called room called-this)
+ "Find something called CALLED-THIS in the room, if any."
+ (call/ec
+ (lambda (return)
+ (for-each
+ (lambda (occupant)
+ (define goes-by
+ (message-ref (<-wait room occupant 'goes-by)
+ 'goes-by #f))
+ (if (member called-this goes-by)
+ (return occupant)))
+ (hash-map->list (lambda (key val) key)
+ (slot-ref room 'occupants)))
+ #f)))
+
+(define %formless-desc
+ "You don't see anything special.")
+
+(define-mhandler (room-look-at room message direct-obj)
+ "Look at a specific object in the room."
+ (define matching-object
+ (room-find-thing-called room direct-obj))