--- a/gameServer/HWProtoLobbyState.hs	Sun Apr 21 01:36:08 2013 +0200
+++ b/gameServer/HWProtoLobbyState.hs	Wed May 29 22:52: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 --