-(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*))
-