--- a/gameServer/HWProtoInRoomState.hs	Wed May 22 00:12:15 2013 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Wed May 22 00:49:37 2013 +0400
@@ -348,6 +348,10 @@
         else
         return []
 
+handleCmd_inRoom ("RND":rs) = do
+    n <- clientNick
+    s <- roomClientsChans
+    return [AnswerClients s ["CHAT", n, B.unwords $ "/rnd" : rs], Random s rs]
 
 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17)