X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=f95ebd9ab51f4dc61817e7a57fdee2607e61e99e;hp=3584e87c15dd0376bf91e3b5d16edfbd1936c6fc;hb=50cd2aba8f13ec7aecb58a683aa55ae665cf83ab;hpb=10ff4122c37899d011ded00c5ebe1333f2477a34 diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index 3584e87..f95ebd9 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -79,7 +79,8 @@ (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)))) @@ -182,7 +183,7 @@ kind of objects they found lying around. #:exits (list (make #:name "north" - #:to-symbol 'room:grand-hallway))) + #:to 'room:grand-hallway))) ;; NPC: hotel owner ('npc:hotel-owner 'room:lobby @@ -259,7 +260,7 @@ they're all boarded up. Guess this is still a work in progress, huh?" #:exits (list (make #:name "south" - #:to-symbol 'room:lobby)) + #:to 'room:lobby)) ))) @@ -296,6 +297,7 @@ they're all boarded up. Guess this is still a work in progress, huh?" (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))