(cmd-take thing-cmd-take)
(cmd-drop thing-cmd-drop))))
(define* (thing-cmd-take thing message #:key direct-obj)
(define player (message-from message))
(define player-name
(cmd-take thing-cmd-take)
(cmd-drop thing-cmd-drop))))
(define* (thing-cmd-take thing message #:key direct-obj)
(define player (message-from message))
(define player-name