1020 begin

  1020 begin

  1021   if Damage = 0 then exit; // nothing to apply

  1021   if Damage = 0 then exit; // nothing to apply

  1022 

  1022 

  1023     if (Gear^.Kind = gtHedgehog) then

  1023     if (Gear^.Kind = gtHedgehog) then

  1024     begin

  1024     begin

  1026     Gear^.LastDamage := AttackerHog;

  1025     Gear^.LastDamage := AttackerHog;

  1027 

  1026 

  1028     Gear^.Hedgehog^.Team^.Clan^.Flawless:= false;

  1027     Gear^.Hedgehog^.Team^.Clan^.Flawless:= false;

  1029     uStats.HedgehogDamaged(Gear, AttackerHog);

  1028     uStats.HedgehogDamaged(Gear, AttackerHog);

  1030     HHHurt(Gear^.Hedgehog, Source);

  1029     HHHurt(Gear^.Hedgehog, Source);