From: fgsfds <pvt.fgsfds@gmail.com>
Date: Wed, 4 Mar 2020 00:38:13 +0000 (+0300)
Subject: put network interp back in
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=78849b4410c239e0c5451ff7103c0914668825f1;p=d2df-sdl.git

put network interp back in
---

diff --git a/src/game/g_netmsg.pas b/src/game/g_netmsg.pas
index 92084b1..5e95a6a 100644
--- a/src/game/g_netmsg.pas
+++ b/src/game/g_netmsg.pas
@@ -2282,8 +2282,7 @@ begin
     GameVelY := M.ReadLongInt();
     GameAccelX := M.ReadLongInt();
     GameAccelY := M.ReadLongInt();
-    GameX := TmpX;
-    GameY := TmpY;
+    SetLerp(TmpX, TmpY);
     if NetForcePlayerUpdate then Update();
   end;
 end;
diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index 068c2b4..3e30f63 100644
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
@@ -5069,8 +5069,11 @@ begin
   NetServer := g_Game_IsNet and g_Game_IsServer;
   AnyServer := g_Game_IsServer;
 
-  if FGhost then
-    DoLerp(4);
+  if g_Game_IsClient and (NetInterpLevel > 0) then
+    DoLerp(NetInterpLevel + 1)
+  else
+    if FGhost then
+      DoLerp(4);
 
   if NetServer then
     if FClientID >= 0 then