projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added dynamic linking approach to exits. live hacking rooms works! :D :D
[mudsync.git]
/
worlds
/
bricabrac.scm
diff --git
a/worlds/bricabrac.scm
b/worlds/bricabrac.scm
index c9b4fd8c332a6e5306d69e64060bf2b25241c487..f95ebd9ab51f4dc61817e7a57fdee2607e61e99e 100644
(file)
--- a/
worlds/bricabrac.scm
+++ b/
worlds/bricabrac.scm
@@
-183,7
+183,7
@@
kind of objects they found lying around.
#:exits
(list (make <exit>
#:name "north"
#: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
;; NPC: hotel owner
('npc:hotel-owner
<chatty-npc> 'room:lobby
@@
-260,7
+260,7
@@
they're all boarded up. Guess this is still a work in progress, huh?"
#:exits
(list (make <exit>
#:name "south"
#:exits
(list (make <exit>
#:name "south"
- #:to
-symbol
'room:lobby))
+ #:to 'room:lobby))
)))
\f
)))
\f
@@
-297,6
+297,7
@@
they're all boarded up. Guess this is still a work in progress, huh?"
(define game-spec
(append lobby grand-hallway))
(define game-spec
(append lobby grand-hallway))
+;; TODO: Provide command line args
(define (run-game . args)
(define (run-game . args)
- (run-demo
"/tmp/bricabrac-game.db" game-spec 'room:lobby
))
+ (run-demo
game-spec 'room:lobby #:repl-server #t
))