Fix clan ranking counter advancing per-team instaed of per-clan in case of a tie
authorWuzzy <Wuzzy2@mail.ru>
Wed, 05 Sep 2018 01:53:21 +0200
changeset 13770 3d2a7c563d8e
parent 13769 c46998ecd8fa
child 13771 9fdb13633bcb
child 13844 2fceeea62b10
Fix clan ranking counter advancing per-team instaed of per-clan in case of a tie
hedgewars/uStats.pas
--- a/hedgewars/uStats.pas	Tue Sep 04 22:59:08 2018 +0200
+++ b/hedgewars/uStats.pas	Wed Sep 05 01:53:21 2018 +0200
@@ -417,12 +417,12 @@
                     for t:= 0 to Pred(TeamsCount) do
                         if TeamsArray[t]^.Clan^.ClanIndex = deathEntry^.KilledClans[c]^.ClanIndex then
                             begin
-                            inc(i);
                             SendStat(siTeamRank, IntToStr(currentRank));
                             SendStat(siPlayerKills, IntToStr(deathEntry^.killedClans[c]^.Color) + ' ' +
                                 IntToStr(TeamsArray[t]^.stats.Kills) + ' ' + TeamsArray[t]^.TeamName);
                             end;
                     deathEntry^.KilledClans[c]^.StatsHandled:= true;
+                    inc(i);
                     end;
             if i > 0 then
                 inc(currentRank, i);