hedgewars/uStats.pas
changeset 14602 6d2954037e57
parent 14601 1c7439c50f4d
child 14616 3cf7799e04b5
equal deleted inserted replaced
14601:1c7439c50f4d 14602:6d2954037e57
   105 if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
   105 if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
   106     vpHurtSameClan:= Gear^.Hedgehog^.Team^.voicepack
   106     vpHurtSameClan:= Gear^.Hedgehog^.Team^.voicepack
   107 else
   107 else
   108     begin
   108     begin
   109     vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
   109     vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
   110     if (not killed) then
   110     if (not killed) and (not bDuringWaterRise) then
   111         begin
   111         begin
   112         // Check if victim got attacked by RevengeHog again
   112         // Check if victim got attacked by RevengeHog again
   113         if (Gear^.Hedgehog^.RevengeHog <> nil) and (Gear^.Hedgehog^.RevengeHog = Attacker) then
   113         if (Gear^.Hedgehog^.RevengeHog <> nil) and (Gear^.Hedgehog^.RevengeHog = Attacker) then
   114             LeaveMeAlone:= true;
   114             LeaveMeAlone:= true;
   115         // Check if attacker got revenge
   115         // Check if attacker got revenge
   126         end
   126         end
   127     end;
   127     end;
   128 
   128 
   129 //////////////////////////
   129 //////////////////////////
   130 
   130 
   131 inc(Attacker^.stats.StepDamageGiven, Damage);
   131 if (not bDuringWaterRise) then
   132 inc(Gear^.Hedgehog^.stats.StepDamageRecv, Damage);
   132     begin
       
   133     inc(Attacker^.stats.StepDamageGiven, Damage);
       
   134     inc(Gear^.Hedgehog^.stats.StepDamageRecv, Damage);
       
   135     end;
   133 
   136 
   134 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Damage);
   137 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Damage);
   135 if CurrentHedgehog^.Team = Gear^.Hedgehog^.Team then inc(DamageTeam, Damage);
   138 if CurrentHedgehog^.Team = Gear^.Hedgehog^.Team then inc(DamageTeam, Damage);
   136 
   139 
   137 if killed then
   140 if killed then
   138     begin
   141     begin
   139     Gear^.Hedgehog^.stats.StepDied:= true;
   142     Gear^.Hedgehog^.stats.StepDied:= true;
   140     inc(Attacker^.stats.StepKills);
       
   141     inc(Kills);
   143     inc(Kills);
   142 
   144 
   143     inc(KillsTotal);
   145     inc(KillsTotal);
   144 
   146 
   145     if bDuringWaterRise then
   147     if bDuringWaterRise then
   146         inc(KillsSD)
   148         inc(KillsSD)
   147     else
   149     else
   148         begin
   150         begin
       
   151         inc(Attacker^.stats.StepKills);
   149         inc(Attacker^.Team^.stats.Kills);
   152         inc(Attacker^.Team^.stats.Kills);
   150         if (Attacker^.Team^.TeamName = Gear^.Hedgehog^.Team^.TeamName) then
   153         if (Attacker^.Team^.TeamName = Gear^.Hedgehog^.Team^.TeamName) then
   151             begin
   154             begin
   152             inc(Attacker^.Team^.stats.TeamKills);
   155             inc(Attacker^.Team^.stats.TeamKills);
   153             inc(Attacker^.Team^.stats.TeamDamage, Gear^.Damage);
   156             inc(Attacker^.Team^.stats.TeamDamage, Gear^.Damage);