X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fplayer.scm;h=bf19a16a6b0e1a0a4716f70333cddaec2a757b8e;hp=63af65e77a8f84071f5780cfd486f6a5fb183717;hb=4738c5ae39e26b65cdba3bec005bfe034c4ea2c2;hpb=8a2341e98f75a5df295f49c08485eb6339dda19e

diff --git a/mudsync/player.scm b/mudsync/player.scm
index 63af65e..bf19a16 100644
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -38,7 +38,10 @@
 (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))
+   ;; @@: We really need to unify / make sensible this look stuff
+   (look-room (wrap-apply player-look-room))))
 
 (define player-actions*
   (append player-actions
@@ -88,6 +91,13 @@
      (<- player (gameobj-gm player) 'write-home
          #:text "Huh?\n"))))
 
+(define-mhandler (player-tell player message text)
+  (<- player (gameobj-gm player) 'write-home
+      #:text text))
+
+(define-mhandler (player-look-room player message)
+  (player-look-around player))
+
 
 ;;; player methods