+ #:occupants occupants))
+
+(define (gameobj-set-loc! gameobj loc)
+ "Set the location of this object."
+ (define old-loc (gameobj-loc gameobj))
+ (format #t "DEBUG: Location set to ~s for ~s\n"
+ loc (actor-id-actor gameobj))
+
+ (slot-set! gameobj 'loc loc)
+ ;; Change registation of where we currently are
+ (if loc
+ (<-wait gameobj loc 'add-occupant! #:who (actor-id gameobj)))
+ (if old-loc
+ (<-wait gameobj old-loc 'remove-occupant! #:who (actor-id gameobj))))
+
+;; @@: Should it really be #:id ? Maybe #:loc-id or #:loc?
+(define-mhandler (gameobj-act-set-loc! actor message loc)
+ "Action routine to set the location."
+ (gameobj-set-loc! actor loc))
+
+(define gameobj-get-name (simple-slot-getter 'name))
+
+(define-mhandler (gameobj-act-set-name! actor message val)
+ (slot-set! actor 'name val))
+
+(define-mhandler (gameobj-get-desc actor message whos-looking)
+ (define desc-text
+ (match (slot-ref actor 'desc)
+ ((? procedure? desc-proc)
+ (desc-proc actor whos-looking))
+ (desc desc)))
+ (<-reply actor message #:val desc-text))
+
+(define (gameobj-visible-to-player? gameobj whos-looking)
+ "Check to see whether we're visible to the player or not.
+By default, this is whether or not the generally-visible flag is set."
+ (slot-ref gameobj 'generally-visible))