From: fgsfds <pvt.fgsfds@gmail.com>
Date: Sat, 8 Feb 2020 23:03:03 +0000 (+0300)
Subject: fixed looking up/down in tight spaces with r_scale != 1?
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=d44826b00888fb246e6c23cfb410070f3f845203;p=d2df-sdl.git

fixed looking up/down in tight spaces with r_scale != 1?
---

diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index b8a77bd..6c7006b 100644
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
@@ -4827,7 +4827,7 @@ begin
 
   if FDirection = TDirection.D_LEFT then FAngle := ANGLE_LEFTDOWN else FAngle := ANGLE_RIGHTDOWN;
 
-  if FIncCam > -120 then DecMin(FIncCam, 5, -120);
+  if FIncCam > -120.0 * g_dbg_scale then DecMin(FIncCam, 5, Integer(-120.0 * g_dbg_scale));
 end;
 
 procedure TPlayer.SeeUp();
@@ -4836,7 +4836,7 @@ begin
 
   if FDirection = TDirection.D_LEFT then FAngle := ANGLE_LEFTUP else FAngle := ANGLE_RIGHTUP;
 
-  if FIncCam < 120 then IncMax(FIncCam, 5, 120);
+  if FIncCam < 120.0 * g_dbg_scale then IncMax(FIncCam, 5, Integer(120.0 * g_dbg_scale));
 end;
 
 procedure TPlayer.SetAction(Action: Byte; Force: Boolean = False);