# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1557261375 -7200
# Node ID 2dcc645153467ba80ee9041e072d1a3bc17f6e3e
# Parent  089f0c10ca95fdeb72e7a72d7718300696e15b60
Add new server messages REPLAY_START and REPLAY_END for /WATCH command

diff -r 089f0c10ca95 -r 2dcc64515346 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Tue May 07 20:23:51 2019 +0200
+++ b/gameServer/Actions.hs	Tue May 07 22:36:15 2019 +0200
@@ -835,12 +835,12 @@
 
     when (isJust cInfo) $ do
         mapM_ processAction $ concat [
-            [AnswerClients [c] ["JOINED", nick cl]]
+            [AnswerClients [c] [if clientProto cl < 58 then "JOINED" else "REPLAY_START", nick cl]]
             , answerFullConfigParams cl params1 params2
             , answerAllTeams cl teams'
             , [AnswerClients [c]  ["RUN_GAME"]]
             , [AnswerClients [c] $ "EM" : roundMsgs']
-            , [AnswerClients [c] ["KICKED"]]
+            , [AnswerClients [c] [if clientProto cl < 58 then "KICKED" else "REPLAY_END"]]
             ]
 
 processAction (SaveRoom rname) = do