- ;; Is it not there, or maybe we won't allow it to be taken?
- ((or (not thing-to-take) (not (should-take-from-me)))
- (<- (message-from message) 'tell
- #:text default-objection))
+ ;; Wait, aren't we going to check (should-take-from-me) later?
+ ;; Well yes, but this checks if there's a #f as the value, which
+ ;; is a much clearer indication that this doesn't take *anything*.
+ ((not (slot-ref gameobj 'take-from-me?))
+ (<- player 'tell
+ #:text `("It's not really clear how to take something " ,preposition
+ " " ,our-name ".")))
+ ;; Unfortunately this does leak information about what is contained
+ ;; by us. Maybe not what's wanted in all circumstances.
+ ((not this-thing)
+ (<- player 'tell
+ #:text `("You don't see any such " ,direct-obj " to take from "
+ ,our-name ".")))
+ ;; A particular objection to taking this thing.
+ ;; We should allow customizing the reason here, which could be
+ ;; provided by the 'ok-to-be-taken-from? slot.
+ ((not (should-take-from-me))
+ (<- player 'tell
+ #:text (default-objection)))