-(use-modules (mudsync))
+(use-modules (mudsync)
+ (oop goops))
;; MEDIAGOBLIN HQ
;; .-------------.--.--------.-----------.-----------.
Still, you have to admit that all the machines look pretty nice."
;; TODO: Allow walking around further in the dootacenter.
- ;;
- (("east" north-hallway
- ,wooden-unlocked-door))) ; eventually make this locked so you have
- ; to kick it down, joeyh style!
+ #:exits
+ ,(list (make <exit>
+ #:name "east"
+ #:to-symbol 'north-hallway
+ #:desc wooden-unlocked-door))) ; eventually make this locked so you have
+ ; to kick it down, joeyh style!
(north-hallway
,<room>
#:name "North hallway"
looking lawn.
The hallway continues to the south."
- (("west" server-room ,wooden-unlocked-door)
- ("east" code-a-plex ,metal-stiff-door)
- ("south" center-hallway #f)))
+ #:exits
+ ,(list (make <exit>
+ #:name "west"
+ #:to-symbol 'server-room
+ #:desc wooden-unlocked-door)
+ (make <exit>
+ #:name "east"
+ #:to-symbol 'code-a-plex
+ #:desc metal-stiff-door)
+ ;; (make <exit>
+ ;; #:name "south"
+ ;; #:to-symbol 'center-hallway)
+ ))
(code-a-plex
,<room>
There's a row of computer desks. Most of them have computers already on them,
But one looks invitingly empty."
- ((north-hallway
- "west" ,metal-stiff-door)))))
+ #:exits
+ ,(list (make <exit>
+ #:name "west"
+ #:to-symbol 'north-hallway
+ #:desc metal-stiff-door)))))
(define (goblin-demo . args)
(run-demo "/tmp/goblin-game.db" goblin-rooms 'north-hallway))