diff -r 9f413bd5150e -r 41ebdb5f1e6e gameServer/HWProtoLobbyState.hs --- a/gameServer/HWProtoLobbyState.hs Wed Oct 07 14:37:42 2009 +0000 +++ b/gameServer/HWProtoLobbyState.hs Wed Oct 07 17:01:40 2009 +0000 @@ -28,12 +28,22 @@ roomsList = IntMap.elems rooms protocol = clientProto client client = clients IntMap.! clID - roomInfo room = [ + roomInfo room + | clientProto client < 28 = [ name room, show (playersIn room) ++ "(" ++ show (length $ teams room) ++ ")", show $ gameinprogress room ] - + | otherwise = [ + show $ gameinprogress room, + name room, + show $ playersIn room, + show $ length $ teams room, + nick $ clients IntMap.! (masterID room), + head (Map.findWithDefault ["+gen+"] "MAP" (params room)), + head (Map.findWithDefault ["Default"] "SCHEME" (params room)), + head (Map.findWithDefault ["Default"] "AMMO" (params room)) + ] handleCmd_lobby clID clients _ ["CHAT", msg] = [AnswerOthersInRoom ["CHAT", clientNick, msg]]