X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=mudsync%2Fplayer.scm;h=bf19a16a6b0e1a0a4716f70333cddaec2a757b8e;hb=1c65eb772aaa7c3a4278b95bc02660dc79c25438;hp=3aa22873a257155d994c5aced4310f12738e3060;hpb=8c357c87019a70aabdfadb4c71e3b063251cff87;p=mudsync.git

diff --git a/mudsync/player.scm b/mudsync/player.scm
index 3aa2287..bf19a16 100644
--- a/mudsync/player.scm
+++ b/mudsync/player.scm
@@ -39,7 +39,9 @@
   (build-actions
    (init (wrap-apply player-init!))
    (handle-input (wrap-apply player-handle-input))
-   (tell (wrap-apply player-tell))))
+   (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
@@ -93,6 +95,9 @@
   (<- player (gameobj-gm player) 'write-home
       #:text text))
 
+(define-mhandler (player-look-room player message)
+  (player-look-around player))
+
 
 ;;; player methods