;; @@: Moving this to a container subclass/mixin could allow a lot more
;; customization of take out / put in phrases
(define* (cmd-take-from gameobj message
;; @@: Moving this to a container subclass/mixin could allow a lot more
;; customization of take out / put in phrases
(define* (cmd-take-from gameobj message
#:text `("You don't seem to have any such " ,direct-obj " to put "
,preposition " " ,our-name ".")))
((or (not (should-put-in-me)))
#:text `("You don't seem to have any such " ,direct-obj " to put "
,preposition " " ,our-name ".")))
((or (not (should-put-in-me)))
#:text (default-objection)))
;; the thing we wsant to take itself has objected...
((this-thing-objection) =>
(lambda (objection)
#:text (default-objection)))
;; the thing we wsant to take itself has objected...
((this-thing-objection) =>
(lambda (objection)