hedgewars/uGears.pas
changeset 1013 17148964400d
parent 1012 36b5cc8264e8
child 1014 3c7d4e7ccdff
--- a/hedgewars/uGears.pas	Wed Jun 18 19:34:06 2008 +0000
+++ b/hedgewars/uGears.pas	Wed Jun 18 20:16:25 2008 +0000
@@ -712,7 +712,7 @@
 	end
 end else // not gstHHDriven
 if (Gear^.Damage > 0)
-and ((Gear^.State or gstMoving) <> 0) then
+and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then
 	begin
 	DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
 		hwSign(Gear^.dX),