#:use-module (mudsync gameobj)
#:use-module (mudsync game-master)
#:use-module (mudsync parser)
- #:use-module (8sync systems actors)
+ #:use-module (8sync actors)
#:use-module (8sync agenda)
#:use-module (ice-9 control)
#:use-module (ice-9 format)
;;; Players
;;; =======
-(define player-actions
- (build-actions
- (init (wrap-apply player-init))
- (handle-input (wrap-apply player-handle-input))
- (tell (wrap-apply player-tell))
- (disconnect-self-destruct (wrap-apply player-disconnect-self-destruct))
- (cmd-inventory (wrap-apply player-cmd-inventory))))
-
-(define player-actions*
- (append player-actions
- gameobj-actions))
-
-(define player-dispatcher
- (simple-dispatcher player-actions*))
-
(define player-self-commands
(list
(empty-command "inventory" 'cmd-inventory)
(self-commands #:init-value player-self-commands)
- (message-handler
- #:init-value
- (wrap-apply player-dispatcher)))
+ (actions #:allocation #:each-subclass
+ #:init-value
+ (build-actions
+ (init player-init)
+ (handle-input player-handle-input)
+ (tell player-tell)
+ (disconnect-self-destruct player-disconnect-self-destruct)
+ (cmd-inventory player-cmd-inventory))))
;;; player message handlers