equal
deleted
inserted
replaced
103 MoveToRoom jRI |
103 MoveToRoom jRI |
104 : ModifyClient (\c -> c{isJoinedMidGame = isJust $ gameInfo jRoom, teamsInGame = fromIntegral $ length clTeams}) |
104 : ModifyClient (\c -> c{isJoinedMidGame = isJust $ gameInfo jRoom, teamsInGame = fromIntegral $ length clTeams}) |
105 : AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl] |
105 : AnswerClients chans ["CLIENT_FLAGS", "-r", nick cl] |
106 : [(AnswerClients [sendChan cl] $ "JOINED" : nicks) | not $ null nicks] |
106 : [(AnswerClients [sendChan cl] $ "JOINED" : nicks) | not $ null nicks] |
107 ) |
107 ) |
108 ++ [ModifyRoom (\r -> let (t', g') = moveTeams clTeams . fromJust $ gameInfo r in r{gameInfo = Just g', teams = t'}) | not $ null clTeams] |
108 -- ++ [ModifyRoom (\r -> let (t', g') = moveTeams clTeams . fromJust $ gameInfo r in r{gameInfo = Just g', teams = t'}) | not $ null clTeams] |
109 ++ [AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+h", nick $ fromJust owner] | isJust owner] |
109 ++ [AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+h", nick $ fromJust owner] | isJust owner] |
110 ++ [sendStateFlags cl jRoomClients | not $ null jRoomClients] |
110 ++ [sendStateFlags cl jRoomClients | not $ null jRoomClients] |
111 ++ answerFullConfig cl jRoom |
111 ++ answerFullConfig cl jRoom |
112 ++ answerTeams cl jRoom |
112 ++ answerTeams cl jRoom |
113 ++ watchRound cl jRoom chans |
113 ++ watchRound cl jRoom chans |