hedgewars/uGearsHandlersMess.pas
changeset 15741 08e556cad305
parent 15740 83c950393d7a
child 15743 1244c64b8e28
--- a/hedgewars/uGearsHandlersMess.pas	Sat Jul 11 20:01:35 2020 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Jul 11 20:33:23 2020 +0300
@@ -7429,7 +7429,9 @@
                     begin
                         if GetRandom(2) = 0 then
                         begin
-                            Gear^.dY := - _0_25;
+                            Gear^.dY := - _0_1;
+                            if TestCollisionYKick(Gear, -1) = 0 then
+                                Gear^.dY := - _0_25;
                             Gear^.Timer := 3000;
                         end
                         else