equal
deleted
inserted
replaced
98 [if isReady c then "READY" else "NOT_READY", nick c]) |
98 [if isReady c then "READY" else "NOT_READY", nick c]) |
99 . (\ clID -> clients IntMap.! clID)) |
99 . (\ clID -> clients IntMap.! clID)) |
100 roomClientsIDs |
100 roomClientsIDs |
101 |
101 |
102 toAnswer (paramName, paramStrs) = AnswerThisClient $ "CFG" : paramName : paramStrs |
102 toAnswer (paramName, paramStrs) = AnswerThisClient $ "CFG" : paramName : paramStrs |
103 |
103 |
104 answerFullConfig = map toAnswer (leftConfigPart ++ rightConfigPart) |
104 answerFullConfig = map toAnswer (leftConfigPart ++ rightConfigPart) |
105 (leftConfigPart, rightConfigPart) = partition (\(p, _) -> p /= "MAP") (Map.toList $ params jRoom) |
105 (leftConfigPart, rightConfigPart) = partition (\(p, _) -> p /= "MAP") (Map.toList $ params jRoom) |
106 |
106 |
107 watchRound = if not $ gameinprogress jRoom then |
107 watchRound = if not $ gameinprogress jRoom then |
108 [] |
108 [] |
116 answerAllTeams (clientProto client) (teams jRoom) |
116 answerAllTeams (clientProto client) (teams jRoom) |
117 |
117 |
118 |
118 |
119 handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomName] = |
119 handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomName] = |
120 handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomName, ""] |
120 handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomName, ""] |
121 |
121 |
122 |
122 |
123 handleCmd_lobby clID clients rooms ["FOLLOW", asknick] = |
123 handleCmd_lobby clID clients rooms ["FOLLOW", asknick] = |
124 if noSuchClient || roomID followClient == 0 then |
124 if noSuchClient || roomID followClient == 0 then |
125 [] |
125 [] |
126 else |
126 else |