hedgewars/uGearsUtils.pas
changeset 14595 6e5cda26f676
parent 14593 34e810295d08
child 14770 533ac9774279
--- a/hedgewars/uGearsUtils.pas	Mon Jan 14 03:53:21 2019 +0100
+++ b/hedgewars/uGearsUtils.pas	Mon Jan 14 04:30:31 2019 +0100
@@ -1765,7 +1765,7 @@
         if (bounced) then
             begin
             WorldWrap:= true;
-            if (Gear^.Radius > 2) and (Gear^.dX.QWordValue > _0_001.QWordValue) then
+            if (Gear^.dX.QWordValue > _0_001.QWordValue) then
                AddBounceEffectForGear(Gear);
             end;
         end
@@ -1827,7 +1827,7 @@
 procedure AddBounceEffectForGear(Gear: PGear; imageScale: Single);
 var boing: PVisualGear;
 begin
-    if Gear^.Density < _0_01 then
+    if (Gear^.Density < _0_01) or (Gear^.Radius < 2) then
         exit;
     boing:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot, 0, false, 1);
     if boing <> nil then