(define player-actions
(build-actions
(init (wrap-apply player-init!))
- (handle-input (wrap-apply player-handle-input))))
+ (handle-input (wrap-apply player-handle-input))
+ (tell (wrap-apply player-tell))))
(define player-actions*
(append player-actions
(<- player (gameobj-gm player) 'write-home
#:text "Huh?\n"))))
+(define-mhandler (player-tell player message text)
+ (<- player (gameobj-gm player) 'write-home
+ #:text text))
+
;;; player methods