gameServer/HWProtoLobbyState.hs
changeset 9035 e84d42a4311c
parent 8897 d6c310c65c91
child 9109 878f06e9c484
--- a/gameServer/HWProtoLobbyState.hs	Wed May 22 00:12:15 2013 +0400
+++ b/gameServer/HWProtoLobbyState.hs	Wed May 22 00:49:37 2013 +0400
@@ -144,6 +144,11 @@
         else
         liftM ((:) (AnswerClients [clChan] ["JOINING", roomName])) $ handleCmd_lobby ["JOIN_ROOM", roomName]
 
+
+handleCmd_lobby ("RND":rs) = do
+    c <- liftM sendChan thisClient
+    return [Random [c] rs]
+
     ---------------------------
     -- Administrator's stuff --