hedgewars/GSHandlers.inc
changeset 2936 ed4c315dab2d
parent 2935 b80800979436
child 2937 da06c25edf1d
--- a/hedgewars/GSHandlers.inc	Fri Mar 05 02:21:10 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Mar 05 02:23:57 2010 +0000
@@ -1262,7 +1262,8 @@
 if k = gtExplosives then
 	begin
     V:= hwSqr(Gear^.dX) + hwSqr(Gear^.dY);
-    if V > _0_03 then Gear^.State:= Gear^.State or gstAnimation;
+    //if V > _0_03 then Gear^.State:= Gear^.State or gstAnimation;
+    if hwAbs(Gear^.dX) > _0_15 then Gear^.State:= Gear^.State or gstAnimation;
     if ((Gear^.State and gstAnimation) <> 0) and (Gear^.dX.QWordValue <> 0) and (Gear^.dY.QWordValue <> 0)  then
         begin
         AllInactive:= false;