gameServer/HWProtoLobbyState.hs
changeset 2408 41ebdb5f1e6e
parent 2352 7eaf82cf0890
child 2867 9be6693c78cb
--- 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]]