moving between rooms nearly works

[mudsync.git] / mudsync / player.scm

diff --git a/mudsync/player.scm b/mudsync/player.scm
index 63af65e77a8f84071f5780cfd486f6a5fb183717..3aa22873a257155d994c5aced4310f12738e3060 100644 (file)
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -38,7 +38,8 @@
 (define player-actions
   (build-actions
    (init (wrap-apply player-init!))
 (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
 
 (define player-actions*
   (append player-actions


@@ -88,6 +89,10 @@
      (<- player (gameobj-gm player) 'write-home
          #:text "Huh?\n"))))
 
      (<- 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
 
 
 ;;; player methods