projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rearchitect so that the world can init with a game-spec, not just a room-spec
[mudsync.git]
/
mudsync
/
player.scm
diff --git
a/mudsync/player.scm
b/mudsync/player.scm
index 3aa22873a257155d994c5aced4310f12738e3060..bf19a16a6b0e1a0a4716f70333cddaec2a757b8e 100644
(file)
--- 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))
(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
(define player-actions*
(append player-actions
@@
-93,6
+95,9
@@
(<- player (gameobj-gm player) 'write-home
#:text text))
(<- player (gameobj-gm player) 'write-home
#:text text))
+(define-mhandler (player-look-room player message)
+ (player-look-around player))
+
;;; player methods
;;; player methods