hedgewars/uGearsHandlersMess.pas
changeset 14595 6e5cda26f676
parent 14593 34e810295d08
child 14637 4638aa2ea8f2
--- a/hedgewars/uGearsHandlersMess.pas	Mon Jan 14 03:53:21 2019 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Mon Jan 14 04:30:31 2019 +0100
@@ -540,7 +540,7 @@
     if ((xland or land) and lfBouncy <> 0) and (Gear^.dX.QWordValue < _0_15.QWordValue) and (Gear^.dY.QWordValue < _0_15.QWordValue) then
         Gear^.State := Gear^.State or gstCollision;
 
-    if ((xland or land) and lfBouncy <> 0) and (Gear^.Radius >= 3) and
+    if ((xland or land) and lfBouncy <> 0) and
        ((Gear^.dX.QWordValue > _0_15.QWordValue) or (Gear^.dY.QWordValue > _0_15.QWordValue)) then
         begin
         AddBounceEffectForGear(Gear);
@@ -3714,7 +3714,7 @@
         Gear^.Angle := (LongInt(Gear^.Angle) + 2) and 3;
 
         // Bounce effect
-        if (Gear^.Karma = 2) and (Gear^.Radius > 2) then
+        if (Gear^.Karma = 2) then
             AddBounceEffectForGear(Gear, 0.55);
 
         Gear^.Tag:= 0;