#:exits
(list (make <exit>
#:name "east"
- #:to-symbol 'room:north-hallway
+ #:to 'room:north-hallway
#:desc wooden-unlocked-door))) ; eventually make this locked so you have
; to kick it down, joeyh style!
('room:north-hallway
#:exits
(list (make <exit>
#:name "west"
- #:to-symbol 'room:server-room
+ #:to 'room:server-room
#:desc wooden-unlocked-door)
(make <exit>
#:name "east"
- #:to-symbol 'room:code-a-plex
+ #:to 'room:code-a-plex
#:desc metal-stiff-door)
;; (make <exit>
;; #:name "south"
- ;; #:to-symbol 'center-hallway)
+ ;; #:to 'center-hallway)
))
('room:code-a-plex
#:exits
(list (make <exit>
#:name "west"
- #:to-symbol 'room:north-hallway
+ #:to 'room:north-hallway
#:desc metal-stiff-door)))
('thing:typewriter
;; #:exits
;; ,(list (make <exit>
;; #:name "east"
-;; #:to-symbol 'room:))
+;; #:to 'room:))
;; )
(define (goblin-demo . args)
- (run-demo "/tmp/goblin-game.db" goblin-rooms 'room:north-hallway))
+ (run-demo goblin-rooms 'room:north-hallway))