+ (container-commands #:init-value '())
+ (message-handler
+ #:init-value
+ (simple-dispatcher gameobj-actions)))
+
+
+;;; gameobj message handlers
+;;; ========================
+
+;; Kind of a useful utility, maybe?
+(define (simple-slot-getter slot)
+ (lambda (actor message)
+ (reply-message actor message
+ #:val (slot-ref actor slot))))
+
+(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)
+ (define filtered-commands
+ (filter-commands (val-or-run (slot-ref actor 'commands))
+ verb))
+ (<-reply actor message #:commands filtered-commands))
+
+(define-mhandler (gameobj-get-container-commands actor message verb)
+ (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)
+ (hash-set! (slot-ref actor 'occupants)
+ who #t))
+
+(define-mhandler (gameobj-remove-occupant! actor message who)
+ (hash-remove! (slot-ref actor 'occupants) who))
+
+(define-mhandler (gameobj-get-occupants actor message)
+ (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)
+ (define old-loc (gameobj-loc actor))
+ (format #t "DEBUG: Location set to ~s for ~s\n"
+ loc (actor-id-actor actor))
+
+ (set! (gameobj-loc actor) 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))))