(use-modules (mudsync)
(mudsync parser)
- (8sync systems actors)
+ (8sync actors)
(8sync agenda)
(oop goops)
(ice-9 control)
(commands
#:init-value readable-commands*)
(actions #:allocation #:each-subclass
- #:init-value (mhandlers
+ #:init-value (build-actions
(cmd-read readable-cmd-read))))
(define (readable-cmd-read actor message)
#:init-value chat-commands)
(actions #:allocation #:each-subclass
#:init-value
- (mhandlers
+ (build-actions
(cmd-chat npc-chat-randomly))))
(define random-bricabrac
(prep-direct-command "sign" 'cmd-sign-form
'("as"))))
(actions #:allocation #:each-subclass
- #:init-value (mhandlers
+ #:init-value (build-actions
(cmd-sign-form sign-cmd-sign-in))))
(commands
#:init-value summoning-bell-commands*)
(actions #:allocation #:each-subclass
- #:init-value (mhandlers
+ #:init-value (build-actions
(cmd-ring summoning-bell-cmd-ring))))
(define* (summoning-bell-cmd-ring bell message . _)
(list
(direct-command "sit" 'cmd-sit-furniture)))
(actions #:allocation #:each-subclass
- #:init-value (mhandlers
+ #:init-value (build-actions
(cmd-sit-furniture furniture-cmd-sit))))
(define* (furniture-cmd-sit actor message #:key direct-obj)
(commands #:init-value clerk-commands*)
(patience #:init-value 0)
(actions #:allocation #:each-subclass
- #:init-value (mhandlers
+ #:init-value (build-actions
(init clerk-act-init)
(cmd-chat clerk-cmd-chat)
(cmd-ask-incomplete clerk-cmd-ask-incomplete)
(define clerk-doesnt-know-text
"The clerk apologizes and says she doesn't know about that topic.\n")
-(define (clerk-cmd-ask clerk message indir-obj)
+(define* (clerk-cmd-ask clerk message #:key indir-obj
+ #:allow-other-keys)
(match (slot-ref clerk 'state)
('on-duty
(match (assoc (pk 'indir indir-obj) clerk-help-topics)