+(define (val-or-run val-or-proc)
+ "Evaluate if a procedure, or just return otherwise"
+ (if (procedure? val-or-proc)
+ (val-or-proc)
+ val-or-proc))
+
+(define (filter-commands commands verb)
+ (filter
+ (lambda (cmd)
+ (equal? (command-verbs cmd)
+ verb))
+ commands))
+
+(define-mhandler (gameobj-get-commands actor message verb)
+ "Get commands a co-occupant of the room might execute for VERB"
+ (define filtered-commands
+ (filter-commands (val-or-run (slot-ref actor 'commands))
+ verb))
+ (<-reply actor message
+ #:commands filtered-commands
+ #:goes-by (gameobj-goes-by actor)))
+
+(define-mhandler (gameobj-get-container-commands actor message verb)
+ "Get commands as the container / room of message's sender"
+ (define filtered-commands
+ (filter-commands (val-or-run (slot-ref actor 'container-commands))
+ verb))
+ (<-reply actor message #:commands filtered-commands))
+
+(define-mhandler (gameobj-add-occupant! actor message who)
+ "Add an actor to our list of present occupants"
+ (hash-set! (slot-ref actor 'occupants)
+ who #t))
+
+(define-mhandler (gameobj-remove-occupant! actor message who)
+ "Remove an occupant from the room."
+ (hash-remove! (slot-ref actor 'occupants) who))
+
+(define-mhandler (gameobj-get-occupants actor message)
+ "Get all present occupants of the room."
+ (define occupants
+ (hash-map->list (lambda (key val) key)
+ (gameobj-occupants actor)))
+
+ (<-reply actor message
+ #:occupants occupants))
+
+;; @@: Should it really be #:id ? Maybe #:loc-id or #:loc?
+(define-mhandler (gameobj-set-loc! actor message loc)
+ "Set the location of this object."
+ (define old-loc (gameobj-loc actor))
+ (format #t "DEBUG: Location set to ~s for ~s\n"
+ loc (actor-id-actor actor))
+
+ (slot-set! actor 'loc loc)
+ ;; Change registation of where we currently are
+ (if loc
+ (<-wait actor loc 'add-occupant! #:who (actor-id actor)))
+ (if old-loc
+ (<-wait actor old-loc 'remove-occupant! #:who (actor-id actor))))
+
+(define gameobj-get-name (simple-slot-getter 'name))
+(define gameobj-get-desc (simple-slot-getter 'desc))