equal
deleted
inserted
replaced
183 chans <- roomClientsChans |
183 chans <- roomClientsChans |
184 |
184 |
185 let nicks = map (nick . client rnc) . roomClients rnc $ clientRoom rnc ci |
185 let nicks = map (nick . client rnc) . roomClients rnc $ clientRoom rnc ci |
186 let allPlayersRegistered = all ((<) 0 . B.length . webPassword . client rnc . teamownerId) $ teams rm |
186 let allPlayersRegistered = all ((<) 0 . B.length . webPassword . client rnc . teamownerId) $ teams rm |
187 |
187 |
188 if isMaster cl && playersIn rm == readyPlayers rm && not (isJust $ gameInfo rm) then |
188 if isMaster cl && not (isJust $ gameInfo rm) then |
189 if enoughClans rm then |
189 if enoughClans rm then |
190 return [ |
190 return [ |
191 ModifyRoom |
191 ModifyRoom |
192 (\r -> r{ |
192 (\r -> r{ |
193 gameInfo = Just $ newGameInfo (teams rm) (length $ teams rm) allPlayersRegistered (mapParams rm) (params rm) |
193 gameInfo = Just $ newGameInfo (teams rm) (length $ teams rm) allPlayersRegistered (mapParams rm) (params rm) |