hedgewars/uGears.pas
changeset 1869 490005509a7b
parent 1868 2fe8d045f6a1
child 1892 fddc1201df25
equal deleted inserted replaced
1868:2fe8d045f6a1 1869:490005509a7b
   432 	if Gear^.Kind = gtHedgehog then
   432 	if Gear^.Kind = gtHedgehog then
   433 		begin
   433 		begin
   434 		if (Gear^.Damage <> 0) and
   434 		if (Gear^.Damage <> 0) and
   435 		(not Gear^.Invulnerable) then
   435 		(not Gear^.Invulnerable) then
   436 			begin
   436 			begin
   437             if (PHedgehog(Gear^.Hedgehog)^.Team = CurrentTeam) then
   437             if (PHedgehog(Gear^.Hedgehog)^.Team = CurrentTeam) and
       
   438                (Gear^.Damage <> int(cHealthDecrease)) then
   438                 Gear^.State:= Gear^.State or gstLoser;
   439                 Gear^.State:= Gear^.State or gstLoser;
   439 			CheckNoDamage:= false;
   440 			CheckNoDamage:= false;
   440 			uStats.HedgehogDamaged(Gear);
   441 			uStats.HedgehogDamaged(Gear);
   441 			dmg:= Gear^.Damage;
   442 			dmg:= Gear^.Damage;
   442 			if Gear^.Health < dmg then
   443 			if Gear^.Health < dmg then