From 9277ba45abf6c359bc7465bca2c6d74c166aca32 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 6 May 2016 13:03:34 -0500
Subject: [PATCH] Announce to other room participants when a guest arrives

---
 mudsync/game-master.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mudsync/game-master.scm b/mudsync/game-master.scm
index 05de669..9ced9fa 100644
--- 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)))))
 
-- 
2.31.1