(define-module (mudsync player)
#:use-module (mudsync gameobj)
+ #:use-module (mudsync game-master)
#:use-module (8sync systems actors)
#:use-module (8sync agenda)
#:use-module (ice-9 format)
(message-handler
#:init-value
+ ;; @@: We're gonna need action inheritance real awful soon, huh?
(make-action-dispatch
(set-loc! (wrap-apply player-set-loc!))
- (init (wrap-apply player-init!)))))
+ (init (wrap-apply player-init!))
+ (handle-input (wrap-apply player-handle-input)))))
;;; player message handlers
(define-mhandler (player-init! player message)
(player-look-around player))
+
+(define-mhandler (player-handle-input player message input)
+ (<- player (gameobj-gm player) 'write-home
+ #:text
+ (format #f "<~a>: ~s\n"
+ (player-username player)
+ input)))
+
+
;;; player methods
(define (player-look-around player)