#:exits
(list (make <exit>
#:name "north"
- #:to-symbol 'room:grand-hallway)))
+ #:to 'room:grand-hallway)))
;; NPC: hotel owner
('npc:hotel-owner
<chatty-npc> 'room:lobby
#:exits
(list (make <exit>
#:name "south"
- #:to-symbol 'room:lobby))
+ #:to 'room:lobby))
)))
\f
(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))