hedgewars/uStats.pas
changeset 14885 0ec83cc2365e
parent 14617 244699a97734
child 14886 3054b85963ef
equal deleted inserted replaced
14884:1f0e8a144bad 14885:0ec83cc2365e
   108     begin
   108     begin
   109     vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
   109     vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
   110     if (not killed) and (not bDuringWaterRise) 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) and (Gear^.Hedgehog^.stats.StepRevenge = false) then
   114             LeaveMeAlone:= true;
   114             LeaveMeAlone:= true;
   115         // Check if attacker got revenge
   115         // Check if attacker got revenge
   116         if (Attacker^.RevengeHog <> nil) and (Attacker^.RevengeHog = Gear^.Hedgehog) then
   116         if (Attacker^.RevengeHog <> nil) and (Attacker^.RevengeHog = Gear^.Hedgehog) then
   117             begin
   117             begin
   118             Attacker^.stats.GotRevenge:= true;
   118             Attacker^.stats.GotRevenge:= true;
   120             Attacker^.stats.StepDamageRecvInRow:= 0;
   120             Attacker^.stats.StepDamageRecvInRow:= 0;
   121             Attacker^.RevengeHog:= nil;
   121             Attacker^.RevengeHog:= nil;
   122             end
   122             end
   123         // If not, victim remembers their attacker to plan *their* revenge
   123         // If not, victim remembers their attacker to plan *their* revenge
   124         else
   124         else
       
   125             begin
   125             Gear^.Hedgehog^.RevengeHog:= Attacker;
   126             Gear^.Hedgehog^.RevengeHog:= Attacker;
       
   127             // To prevent "LeaveMeAlone" being activated if same hog is hit by attacker
       
   128             // multiple times in the same turn.
       
   129             Gear^.Hedgehog^.stats.StepRevenge:= true;
       
   130             end;
   126         end
   131         end
   127     end;
   132     end;
   128 
   133 
   129 //////////////////////////
   134 //////////////////////////
   130 
   135 
   393                 StepDamageRecv:= 0;
   398                 StepDamageRecv:= 0;
   394                 StepDamageGiven:= 0;
   399                 StepDamageGiven:= 0;
   395                 StepPoisoned:= false;
   400                 StepPoisoned:= false;
   396                 StepDied:= false;
   401                 StepDied:= false;
   397                 GotRevenge:= false;
   402                 GotRevenge:= false;
       
   403                 StepRevenge:= false;
   398                 end;
   404                 end;
   399 
   405 
   400 Kills:= 0;
   406 Kills:= 0;
   401 KillsSD:= 0;
   407 KillsSD:= 0;
   402 KillsClan:= 0;
   408 KillsClan:= 0;