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 3584e87c15dd0376bf91e3b5d16edfbd1936c6fc..f95ebd9ab51f4dc61817e7a57fdee2607e61e99e 100644
(file)
--- a/
worlds/bricabrac.scm
+++ b/
worlds/bricabrac.scm
@@
-79,7
+79,8
@@
(define chat-commands
(list
(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))))
(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 <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
@@
-259,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
@@
-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))
(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
))