diff -r d6c310c65c91 -r 7493dde4ef51 gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Wed Apr 10 22:48:14 2013 +0400 +++ b/gameServer/HWProtoInRoomState.hs Wed Apr 10 22:59:40 2013 +0400 @@ -79,8 +79,7 @@ AnswerClients clChan ["TEAM_ACCEPTED", tName], AnswerClients othChans $ teamToNet $ newTeam, AnswerClients roomChans ["TEAM_COLOR", tName, teamColor], - AnswerClients roomChans ["HH_NUM", tName, showB $ hhnum newTeam], - AnswerClients [sendChan cl] ["PING"] + AnswerClients roomChans ["HH_NUM", tName, showB $ hhnum newTeam] ] where canAddNumber rt = (48::Int) - (sum $ map hhnum rt)