# HG changeset patch # User unc0rr # Date 1365620380 -14400 # Node ID 7493dde4ef5116ec1945d4a751ee506286ed6357 # Parent d6c310c65c915a988545cf5a3c528b9c4c51782d This isn't necessary anymore 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)