78 ModifyClient (\c -> c{teamsInGame = teamsInGame c + 1, clientClan = Just teamColor}), |
78 ModifyClient (\c -> c{teamsInGame = teamsInGame c + 1, clientClan = Just teamColor}), |
79 AnswerClients clChan ["TEAM_ACCEPTED", tName], |
79 AnswerClients clChan ["TEAM_ACCEPTED", tName], |
80 AnswerClients othChans $ teamToNet $ newTeam, |
80 AnswerClients othChans $ teamToNet $ newTeam, |
81 AnswerClients roomChans ["TEAM_COLOR", tName, teamColor], |
81 AnswerClients roomChans ["TEAM_COLOR", tName, teamColor], |
82 ModifyClient $ \c -> c{actionsPending = actionsPending cl |
82 ModifyClient $ \c -> c{actionsPending = actionsPending cl |
83 ++ AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]}, |
83 ++ [AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]]}, |
84 AnswerClients [sendChan cl] ["PING"] |
84 AnswerClients [sendChan cl] ["PING"] |
85 ] |
85 ] |
86 where |
86 where |
87 canAddNumber rt = (48::Int) - (sum $ map hhnum rt) |
87 canAddNumber rt = (48::Int) - (sum $ map hhnum rt) |
88 findTeam = find (\t -> tName == teamname t) . teams |
88 findTeam = find (\t -> tName == teamname t) . teams |