;;; .. begin world init stuff ..
-(define (gm-init-world gm message)
+(define* (gm-init-world gm message #:key game-spec)
;; Load database
;; TODO
;; Init basic rooms / structure
- (gm-init-game-spec gm (message-ref message 'game-spec))
+ (gm-init-game-spec gm game-spec)
;; Restore database-based actors
;; TODO
;;; .. end world init stuff ...
-(define-mhandler (gm-new-client actor message client)
+(define* (gm-new-client actor message #:key client)
;; @@: Maybe more indirection than needed for this
((gm-new-conn-handler actor) actor client))
-(define (gm-handle-client-input actor message)
+(define* (gm-handle-client-input actor message
+ #:key client data)
"Handle input from a client."
- (define client-id (message-ref message 'client))
- (define input (message-ref message 'data))
;; Look up player
- (define player (hash-ref (gm-client-dir actor) client-id))
+ (define player (hash-ref (gm-client-dir actor) client))
;; debugging
- (format #t "DEBUG: From ~s: ~s\n" client-id input)
+ (format #t "DEBUG: From ~s: ~s\n" client data)
(<- actor player 'handle-input
- #:input input))
+ #:input data))
-(define-mhandler (gm-lookup-special actor message symbol)
+(define* (gm-lookup-special actor message #:key symbol)
(<-reply actor message
#:val (hash-ref (slot-ref actor 'special-dir) symbol)))
-(define-mhandler (gm-write-home actor message text)
+(define* (gm-write-home actor message #:key 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))
-(define-mhandler (gm-client-closed gm message client)
+(define* (gm-client-closed gm message #:key client)
;; Do we have this client registered to an actor? Get the id if so.
(define actor-id (hash-ref (gm-client-dir gm) client))
(gm-unregister-client! gm client)))
-(define-mhandler (gm-inject-special! gm message
- special-symbol gameobj-spec)
+(define* (gm-inject-special! gm message
+ #:key special-symbol gameobj-spec)
"Inject, possiibly replacing the original, special symbol
using the gameobj-spec."
(define existing-obj