833 |
833 |
834 let (teams', params1, params2, roundMsgs') = fromJust cInfo |
834 let (teams', params1, params2, roundMsgs') = fromJust cInfo |
835 |
835 |
836 when (isJust cInfo) $ do |
836 when (isJust cInfo) $ do |
837 mapM_ processAction $ concat [ |
837 mapM_ processAction $ concat [ |
838 [AnswerClients [c] ["JOINED", nick cl]] |
838 [AnswerClients [c] [if clientProto cl < 58 then "JOINED" else "REPLAY_START", nick cl]] |
839 , answerFullConfigParams cl params1 params2 |
839 , answerFullConfigParams cl params1 params2 |
840 , answerAllTeams cl teams' |
840 , answerAllTeams cl teams' |
841 , [AnswerClients [c] ["RUN_GAME"]] |
841 , [AnswerClients [c] ["RUN_GAME"]] |
842 , [AnswerClients [c] $ "EM" : roundMsgs'] |
842 , [AnswerClients [c] $ "EM" : roundMsgs'] |
843 , [AnswerClients [c] ["KICKED"]] |
843 , [AnswerClients [c] [if clientProto cl < 58 then "KICKED" else "REPLAY_END"]] |
844 ] |
844 ] |
845 |
845 |
846 processAction (SaveRoom rname) = do |
846 processAction (SaveRoom rname) = do |
847 rnc <- gets roomsClients |
847 rnc <- gets roomsClients |
848 ri <- clientRoomA |
848 ri <- clientRoomA |