;; Commands we can handle by being something's container
;; dominant version (goes before everything)
;; Commands we can handle by being something's container
;; dominant version (goes before everything)
(define (gameobj-setup-props gameobj)
(define class (class-of gameobj))
(define props (slot-ref gameobj 'props))
(define (gameobj-setup-props gameobj)
(define class (class-of gameobj))
(define props (slot-ref gameobj 'props))
(hashq-set! (slot-ref gameobj 'props) key val))
(define* (gameobj-act-get-prop actor message key #:optional dflt)
(hashq-set! (slot-ref gameobj 'props) key val))
(define* (gameobj-act-get-prop actor message key #:optional dflt)
(define (gameobj-goes-by gameobj)
"Find the name we go by. Defaults to #:name if nothing else provided."
(define (gameobj-goes-by gameobj)
"Find the name we go by. Defaults to #:name if nothing else provided."