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