# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1536105201 -7200
# Node ID 3d2a7c563d8e5783f1ea45efc0462480922d7909
# Parent  c46998ecd8fa88f26db79b18e5e9f500c8027dbf
Fix clan ranking counter advancing per-team instaed of per-clan in case of a tie

diff -r c46998ecd8fa -r 3d2a7c563d8e 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);