hedgewars/uStats.pas
changeset 13765 3d2a7c563d8e
parent 13761 6fd56a26e8b8
child 13878 0ce8aad17c24
equal deleted inserted replaced
13764:c46998ecd8fa 13765:3d2a7c563d8e
   415                 if ((deathEntry^.KilledClans[c]^.ClanHealth) = 0) and (not deathEntry^.KilledClans[c]^.StatsHandled) then
   415                 if ((deathEntry^.KilledClans[c]^.ClanHealth) = 0) and (not deathEntry^.KilledClans[c]^.StatsHandled) then
   416                     begin
   416                     begin
   417                     for t:= 0 to Pred(TeamsCount) do
   417                     for t:= 0 to Pred(TeamsCount) do
   418                         if TeamsArray[t]^.Clan^.ClanIndex = deathEntry^.KilledClans[c]^.ClanIndex then
   418                         if TeamsArray[t]^.Clan^.ClanIndex = deathEntry^.KilledClans[c]^.ClanIndex then
   419                             begin
   419                             begin
   420                             inc(i);
       
   421                             SendStat(siTeamRank, IntToStr(currentRank));
   420                             SendStat(siTeamRank, IntToStr(currentRank));
   422                             SendStat(siPlayerKills, IntToStr(deathEntry^.killedClans[c]^.Color) + ' ' +
   421                             SendStat(siPlayerKills, IntToStr(deathEntry^.killedClans[c]^.Color) + ' ' +
   423                                 IntToStr(TeamsArray[t]^.stats.Kills) + ' ' + TeamsArray[t]^.TeamName);
   422                                 IntToStr(TeamsArray[t]^.stats.Kills) + ' ' + TeamsArray[t]^.TeamName);
   424                             end;
   423                             end;
   425                     deathEntry^.KilledClans[c]^.StatsHandled:= true;
   424                     deathEntry^.KilledClans[c]^.StatsHandled:= true;
       
   425                     inc(i);
   426                     end;
   426                     end;
   427             if i > 0 then
   427             if i > 0 then
   428                 inc(currentRank, i);
   428                 inc(currentRank, i);
   429             i:= 0;
   429             i:= 0;
   430             deathEntry:= deathEntry^.NextEntry;
   430             deathEntry:= deathEntry^.NextEntry;