(define chat-commands
(list
- (direct-command "chat" 'cmd-chat)))
+ (direct-command "chat" 'cmd-chat)
+ (direct-command "talk" 'cmd-chat)))
(define chat-actions
(build-actions
(cmd-chat (wrap-apply npc-chat-randomly))))
(define game-spec
(append lobby grand-hallway))
+;; TODO: Provide command line args
(define (run-game . args)
- (run-demo "/tmp/bricabrac-game.db" game-spec 'room:lobby))
+ (run-demo game-spec 'room:lobby #:repl-server #t))