hedgewars/uGearsList.pas
changeset 10641 802589828f99
parent 10639 992863acb2b7
child 10643 8d6063af793a
equal deleted inserted replaced
10640:efa069762cb2 10641:802589828f99
   696                     end
   696                     end
   697             end;
   697             end;
   698 
   698 
   699         // should be not CurrentHedgehog, but hedgehog of the last gear which caused damage to this hog
   699         // should be not CurrentHedgehog, but hedgehog of the last gear which caused damage to this hog
   700         // same stand for CheckHHDamage
   700         // same stand for CheckHHDamage
   701         if (Gear^.LastDamage <> nil) then
   701         if (Gear^.LastDamage <> nil) and (CurrentHedgehog <> nil) then
   702             uStats.HedgehogDamaged(Gear, Gear^.LastDamage, 0, true)
   702             uStats.HedgehogDamaged(Gear, Gear^.LastDamage, 0, true)
   703         else if CurrentHedgehog <> nil then
   703         else if CurrentHedgehog <> nil then
   704             uStats.HedgehogDamaged(Gear, CurrentHedgehog, 0, true);
   704             uStats.HedgehogDamaged(Gear, CurrentHedgehog, 0, true);
   705 
   705 
   706         inc(KilledHHs);
   706         inc(KilledHHs);