--- 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)