558                 dec(Gear^.Health, dmg);

   558                 dec(Gear^.Health, dmg);

   559 

   559 

   560             if (PHedgehog(Gear^.Hedgehog)^.Team = CurrentTeam) and

   560             if (PHedgehog(Gear^.Hedgehog)^.Team = CurrentTeam) and

   561                (Gear^.Damage <> Gear^.Karma) and

   561                (Gear^.Damage <> Gear^.Karma) and

   562                 not PHedgehog(Gear^.Hedgehog)^.King and

   562                 not PHedgehog(Gear^.Hedgehog)^.King and

   563                 not SuddenDeathDmg then

   564                 not SuddenDeathDmg then

   564                 Gear^.State:= Gear^.State or gstLoser;

   565                 Gear^.State:= Gear^.State or gstLoser;

   565 

   566 

   566             AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) - cHHRadius - 12,

   567             AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) - cHHRadius - 12,

   567                     gtHealthTag, dmg, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;

   568                     gtHealthTag, dmg, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;