equal
deleted
inserted
replaced
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; |