projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Announce to other room participants when a guest arrives
[mudsync.git]
/
mudsync
/
game-master.scm
diff --git
a/mudsync/game-master.scm
b/mudsync/game-master.scm
index 05de6697c7db54c4c6221d0afc225caff1f2df78..9ced9fadfdf5b4ee90259e145e9b19f75c843acb 100644
(file)
--- a/
mudsync/game-master.scm
+++ b/
mudsync/game-master.scm
@@
-211,5
+211,9
@@
with an anonymous persona"
;; Dump the player into the default room
(<-wait gm player 'set-loc! #:loc room-id)
;; Initialize the player
;; Dump the player into the default room
(<-wait gm player 'set-loc! #:loc room-id)
;; Initialize the player
- (<- gm player 'init)))))
+ (<-wait gm player 'init)
+ (<- gm room-id 'tell-room
+ #:text (format #f "You see ~a materialize out of thin air!\n"
+ guest-name)
+ #:exclude player)))))