equal
deleted
inserted
replaced
77 SendUpdateOnThisRoom, |
77 SendUpdateOnThisRoom, |
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 AnswerClients roomChans ["HH_NUM", tName, showB $ hhnum newTeam], |
82 AnswerClients roomChans ["HH_NUM", tName, showB $ hhnum newTeam] |
83 AnswerClients [sendChan cl] ["PING"] |
|
84 ] |
83 ] |
85 where |
84 where |
86 canAddNumber rt = (48::Int) - (sum $ map hhnum rt) |
85 canAddNumber rt = (48::Int) - (sum $ map hhnum rt) |
87 findTeam = find (\t -> tName == teamname t) . teams |
86 findTeam = find (\t -> tName == teamname t) . teams |
88 dif = readInt_ difStr |
87 dif = readInt_ difStr |