--- a/gameServer/HWProtoLobbyState.hs	Sat Jun 26 16:58:19 2010 +0400
+++ b/gameServer/HWProtoLobbyState.hs	Sun Jun 27 21:06:41 2010 +0400
@@ -33,13 +33,7 @@
     let roomsInfoList = concatMap (roomInfo irnc) . filter (\r -> (roomProto r == clientProto cl) && not (isRestrictedJoins r))
     return [AnswerClients [sendChan cl] ("ROOMS" : roomsInfoList rooms)]
     where
-        roomInfo irnc room
-            | roomProto room < 28 = [
-                name room,
-                B.pack $ show (playersIn room) ++ "(" ++ show (length $ teams room) ++ ")",
-                B.pack $ show $ gameinprogress room
-                ]
-            | otherwise = [
+        roomInfo irnc room = [
                 showB $ gameinprogress room,
                 name room,
                 showB $ playersIn room,