+(define-mhandler (gm-lookup-room actor message symbol)
+ (define room-id
+ (slot-ref (gm-room-dir actor) symbol))
+ (<-reply actor message room-id))
+
+(define-mhandler (gm-write-home actor message text)
+ (define client-id (hash-ref (gm-reverse-client-dir actor)
+ (message-from message)))
+ (<- actor (gm-network-manager actor) 'send-to-client
+ #:client client-id
+ #:data text))
+
+
+;;; GM utilities
+
+(define (gm-register-client! gm client-id player)
+ (hash-set! (gm-client-dir gm) client-id player)
+ (hash-set! (gm-reverse-client-dir gm) player client-id))
+
+(define (gm-unregister-client! gm client-id)
+ "Remove a connection/player combo and ask them to self destruct"
+ (match (hash-remove! (gm-client-dir gm) client-id) ; Remove from our client dir
+ ((_ . player-id)
+ ;; Remove from reverse table too
+ (hash-remove! (gm-reverse-client-dir gm) client-id)
+ ;; Destroy player
+ (<- gm player-id 'destroy-self))
+ (#f (throw 'no-client-to-unregister
+ "Can't unregister a client that doesn't exist?"
+ client-id))))
+
+;;; An easy default
+
+(define (make-default-room-conn-handler default-room)
+ "Make a handler for a GM that dumps people in a default room
+with an anonymous persona"
+ (let ((count 0))
+ (lambda (gm client-id)
+ (define guest-name (string-append "Guest-"
+ (number->string count)))
+ (define room-id
+ (hash-ref (gm-room-dir gm) default-room))
+ ;; create and register the player
+ (define player
+ (create-actor* gm <player> "player"
+ #:username guest-name
+ #:gm (actor-id gm)
+ #:client client-id))
+
+ ;; Register the player in our database of players -> connections
+ (gm-register-client! gm client-id player)
+ ;; Dump the player into the default room
+ (<-wait gm player 'set-loc! #:id room-id)
+ ;; Initialize the player
+ (<- gm player 'init))))
+
+
+;;; Game actor
+;;; ==========
+
+;;; *all* game components that talk to players should somehow
+;;; derive from this class.
+;;; And all of them need a GM!
+
+(define-class <gameobj> (<actor>)
+ ;; location id
+ (loc #:init-value #f
+ #:accessor gameobj-loc)
+ ;; game master id
+ (gm #:init-keyword #:gm
+ #:getter gameobj-gm)
+ ;; a name to be known by
+ (name #:init-keyword #:name
+ #:accessor gameobj-name)
+
+ ;; how to print our name
+ (name-f #:init-keyword #:name-f
+ #:getter gameobj-name-f
+ #:init-value gameobj-simple-name-f)
+
+ ;; Name aliases
+ (aliases #:init-keyword #:aliases
+ #:init-value '())
+
+ ;; Commands we can handle
+ (commands #:init-value #f)
+ ;; Commands we can handle by being something's container
+ (contain-commands #:init-value #f))
+
+
+(define (gameobj-simple-name-f gameobj)
+ "Simplest version: return ourselves for our name."
+ (gameobj-name gameobj))