--- a/gameServer/HWProtoInRoomState.hs Thu Nov 01 08:59:16 2012 -0400
+++ b/gameServer/HWProtoInRoomState.hs Fri Nov 02 00:09:40 2012 +0400
@@ -72,6 +72,7 @@
[Warning "restricted"]
else
[ModifyRoom (\r -> r{teams = teams r ++ [newTeam ci clNick r teamColor]}),
+ SendUpdateOnThisRoom,
ModifyClient (\c -> c{teamsInGame = teamsInGame c + 1, clientClan = Just teamColor}),
AnswerClients clChan ["TEAM_ACCEPTED", tName],
AnswerClients othChans $ teamToNet $ newTeam ci clNick rm teamColor,
@@ -106,6 +107,7 @@
[ProtocolError "Not team owner!"]
else
[RemoveTeam tName,
+ SendUpdateOnThisRoom,
ModifyClient
(\c -> c{
teamsInGame = teamsInGame c - 1,
@@ -194,6 +196,7 @@
}
)
, AnswerClients chans ["RUN_GAME"]
+ , SendUpdateOnThisRoom
, AnswerClients chans $ "CLIENT_FLAGS" : "+g" : nicks
, ModifyRoomClients (\c -> c{isInGame = True})
]