- Fix order of messages, also don't duplicate last timestamped message
authorunc0rr
Tue, 12 May 2015 22:38:33 +0300
changeset 10944 c4b3440eeac6
parent 10943 d90706a2183e
child 10945 2570fcfddf2a
- Fix order of messages, also don't duplicate last timestamped message - Comment out useless line in uTeams
gameServer/Actions.hs
hedgewars/uTeams.pas
--- a/gameServer/Actions.hs	Tue May 12 22:09:25 2015 +0900
+++ b/gameServer/Actions.hs	Tue May 12 22:38:33 2015 +0300
@@ -381,8 +381,9 @@
         ModifyRoom (\r -> r{
                 gameInfo = liftM (\g -> g{
                     teamsInGameNumber = teamsInGameNumber g - 1
-                    , roundMsgs = (if isJust $ lastFilteredTimedMsg g then (:) (fromJust $ lastFilteredTimedMsg g) else id)
-                      $ rmTeamMsg : roundMsgs g
+                    , lastFilteredTimedMsg = Nothing
+                    , roundMsgs = (if isJust $ lastFilteredTimedMsg g then ((:) rmTeamMsg . (:) (fromJust $ lastFilteredTimedMsg g)) else ((:) rmTeamMsg)) 
+                        $ roundMsgs g
                 }) $ gameInfo r
             })
         ]
--- a/hedgewars/uTeams.pas	Tue May 12 22:09:25 2015 +0900
+++ b/hedgewars/uTeams.pas	Tue May 12 22:38:33 2015 +0300
@@ -678,7 +678,7 @@
         end
     else
         begin
-        TeamsArray[t]^.isGoneFlagPendingToBeSet:= true;
+        //TeamsArray[t]^.isGoneFlagPendingToBeSet:= true;
 
         if (not CurrentTeam^.ExtDriven) or (CurrentTeam^.TeamName = s) or (CurrentTeam^.hasGone) then
             ParseCommand('/teamgone s' + s, true)