hedgewars/uStats.pas
changeset 14638 244699a97734
parent 14632 3cf7799e04b5
child 14906 0ec83cc2365e
equal deleted inserted replaced
14637:4638aa2ea8f2 14638:244699a97734
   478                         end;
   478                         end;
   479             end;
   479             end;
   480 
   480 
   481             { Send player stats for winner clans/teams.
   481             { Send player stats for winner clans/teams.
   482             The clan that survived is ranked 1st. }
   482             The clan that survived is ranked 1st. }
   483             if (Clan^.ClanHealth > 0) and (not Clan^.Passive) then
   483             if (Clan^.ClanHealth > 0) then
   484                 begin
   484                 begin
   485                 winnersClan:= Clan;
   485                 winnersClan:= Clan;
   486                 if SendRankingStatsOn then
   486                 if SendRankingStatsOn then
   487                     begin
   487                     begin
   488                     currentRank:= 1;
   488                     currentRank:= 1;
   530             begin
   530             begin
   531             for c:= 0 to Pred(deathEntry^.KilledClansCount) do
   531             for c:= 0 to Pred(deathEntry^.KilledClansCount) do
   532                 if ((deathEntry^.KilledClans[c]^.ClanHealth) = 0) and (not deathEntry^.KilledClans[c]^.StatsHandled) then
   532                 if ((deathEntry^.KilledClans[c]^.ClanHealth) = 0) and (not deathEntry^.KilledClans[c]^.StatsHandled) then
   533                     begin
   533                     begin
   534                     for t:= 0 to Pred(TeamsCount) do
   534                     for t:= 0 to Pred(TeamsCount) do
   535                         if (TeamsArray[t]^.Clan^.ClanIndex = deathEntry^.KilledClans[c]^.ClanIndex) and (not TeamsArray[t]^.Passive) then
   535                         if (TeamsArray[t]^.Clan^.ClanIndex = deathEntry^.KilledClans[c]^.ClanIndex) then
   536                             begin
   536                             begin
   537                             SendStat(siTeamRank, IntToStr(currentRank));
   537                             SendStat(siTeamRank, IntToStr(currentRank));
   538                             SendStat(siPlayerKills, IntToStr(deathEntry^.killedClans[c]^.Color) + ' ' +
   538                             SendStat(siPlayerKills, IntToStr(deathEntry^.killedClans[c]^.Color) + ' ' +
   539                                 IntToStr(TeamsArray[t]^.stats.Kills) + ' ' + TeamsArray[t]^.TeamName);
   539                                 IntToStr(TeamsArray[t]^.stats.Kills) + ' ' + TeamsArray[t]^.TeamName);
   540                             end;
   540                             end;