Announce to other room participants when a guest arrives
authorChristopher Allan Webber <cwebber@dustycloud.org>
Fri, 6 May 2016 18:03:34 +0000 (13:03 -0500)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Fri, 6 May 2016 18:03:34 +0000 (13:03 -0500)
mudsync/game-master.scm

index 05de6697c7db54c4c6221d0afc225caff1f2df78..9ced9fadfdf5b4ee90259e145e9b19f75c843acb 100644 (file)
@@ -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)))))