X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=mudsync%2Fplayer.scm;h=bfa7ca88b0e8911810a43246cbe59ad905ba0845;hb=106536778bbd8ad0cc850cb3ef7dcc5e2499eee2;hp=784db7c6f9a08691d919ad1a66a26693bbe24e5d;hpb=e5a7edc560717c95542df4b338ea14502e424694;p=mudsync.git diff --git a/mudsync/player.scm b/mudsync/player.scm index 784db7c..bfa7ca8 100644 --- a/mudsync/player.scm +++ b/mudsync/player.scm @@ -51,7 +51,7 @@ (self-commands #:init-value (wrap player-self-commands)) (actions #:allocation #:each-subclass - #:init-value + #:init-thunk (build-actions (init player-init) (handle-input player-handle-input) @@ -84,7 +84,7 @@ (apply <- winner-id cmd-action message-args)) (#f (<- (gameobj-gm player) 'write-home - #:text "Huh? (type \"help\" for common commands)\n")))) + #:text "Sorry, I didn't understand that? (type \"help\" for common commands)\n")))) (define* (player-tell player message #:key text) (<- (gameobj-gm player) 'write-home