(loose-direct-command "look" 'cmd-look-at)
(empty-command "look" 'cmd-look-room)
(empty-command "go" 'cmd-go-where)
- (loose-direct-command "go" 'cmd-go)))
+ (loose-direct-command "go" 'cmd-go)
+ ;; (greedy-command "say" 'cmd-say)
+ ))
(define room-actions
(build-actions
(matching-object
(let ((obj-desc
(message-ref
- (<-wait room matching-object 'get-desc)
+ (<-wait room matching-object 'get-desc
+ #:whos-looking (message-from message))
'val)))
(if obj-desc
(<- room (message-from message) 'tell