#:text (format #f "It doesn't seem like you can pick up ~a.\n"
thing-name))))
(define* (thing-cmd-drop thing message #:key direct-obj)
(define player (message-from message))
(define player-name
#:text (format #f "It doesn't seem like you can pick up ~a.\n"
thing-name))))
(define* (thing-cmd-drop thing message #:key direct-obj)
(define player (message-from message))
(define player-name