From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 6 May 2016 18:03:34 +0000 (-0500)
Subject: Announce to other room participants when a guest arrives
X-Git-Tag: fosdem-2017~162
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=9277ba45abf6c359bc7465bca2c6d74c166aca32;p=mudsync.git

Announce to other room participants when a guest arrives
---

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