Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve sentry jumping out
authoralfadur
Sat, 11 Jul 2020 20:33:23 +0300
changeset 15719 08e556cad305
parent 15718 83c950393d7a
child 15720 b743adf298d8
improve sentry jumping out
hedgewars/uGearsHandlersMess.pas file | annotate | diff | comparison | revisions 
--- 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