Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsHandlersMess.pas
changeset 15719 08e556cad305
parent 15718 83c950393d7a
child 15721 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
hedgewars