# HG changeset patch
# User alfadur
# Date 1594488803 -10800
# Node ID 08e556cad3050a408fe6933a039461fc31e3737e
# Parent  83c950393d7ac65844045a46e05969cb57053dec
improve sentry jumping out

diff -r 83c950393d7a -r 08e556cad305 hedgewars/uGearsHandlersMess.pas
--- 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