From ee042fbd9cc188c3f0547d51f8012ef73447dfc7 Mon Sep 17 00:00:00 2001 From: Stas'M Date: Fri, 28 Dec 2018 20:51:09 +0300 Subject: [PATCH] GFX: Fix lift down and velocities --- src/game/g_gfx.pas | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/game/g_gfx.pas b/src/game/g_gfx.pas index 567fb5f..52c8856 100644 --- a/src/game/g_gfx.pas +++ b/src/game/g_gfx.pas @@ -341,11 +341,16 @@ begin begin if ((pan.PanelType and PANEL_LIFTUP) <> 0) then begin - if (velY > -4-Random(3)) then velY -= 0.8; + if (velY > -1-Random(3)) then velY -= 0.8; if (abs(velX) > 0.1) then velX -= velX/10.0; velX += (Random-Random)*0.2; accelY := 0.15; end + else if ((pan.PanelType and PANEL_LIFTDOWN) <> 0) then + begin + if (velY < 1+Random(3)) then velY += 0.8; + accelY := 0.15; + end else if ((pan.PanelType and PANEL_LIFTLEFT) <> 0) then begin if (velX > -8-Random(3)) then velX -= 0.8; -- 2.29.2