+(define-class <game-master> (<actor>)
+ ;; The directory is a "namespaced" directory of all "special" content
+ ;; in the game, identifiable by some special key.
+ ;; (The namespace is simply a cons of (namespace . special-symbol))
+ (directory #:init-thunk make-hash-table)
+ ;; A mapping of client ids to in-game actors
+ (client-to-actor #:init-thunk make-hash-table)
+ ;; Network manager
+ (network-manager #:accessor gm-network-manager
+ #:init-val #f)
+
+ (message-handler
+ #:init-value
+ (make-action-dispatch
+ (init-world (wrap-apply gm-init-world))
+ (client-input (wrap-apply gm-handle-client-input)))))
+
+