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
-        (<- 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)))))