From: Stas'M <x86corez@gmail.com>
Date: Fri, 28 Dec 2018 17:51:09 +0000 (+0300)
Subject: GFX: Fix lift down and velocities
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=ee042fbd9cc188c3f0547d51f8012ef73447dfc7;p=d2df-sdl.git

GFX: Fix lift down and velocities
---

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;