gameServer/HWProtoInRoomState.hs
changeset 8525 81630d47dc0f
parent 8514 896b283f41a2
child 8531 5e7f01d78ab0
--- a/gameServer/HWProtoInRoomState.hs	Thu Feb 21 00:15:11 2013 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Thu Feb 21 01:26:38 2013 +0400
@@ -77,9 +77,11 @@
                 SendUpdateOnThisRoom,
                 ModifyClient (\c -> c{teamsInGame = teamsInGame c + 1, clientClan = Just teamColor}),
                 AnswerClients clChan ["TEAM_ACCEPTED", tName],
-                AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam],
                 AnswerClients othChans $ teamToNet $ newTeam,
-                AnswerClients roomChans ["TEAM_COLOR", tName, teamColor]
+                AnswerClients roomChans ["TEAM_COLOR", tName, teamColor],
+                ModifyClient $ \c -> c{actionsPending = actionsPending cl
+                    ++ AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]},
+                AnswerClients [sendChan cl] ["PING"]
                 ]
         where
         canAddNumber rt = (48::Int) - (sum $ map hhnum rt)