From: fgsfds <pvt.fgsfds@gmail.com>
Date: Mon, 24 Feb 2020 17:05:24 +0000 (+0300)
Subject: unforward correct ping port
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=e1f0d9264e64404de20df057c98c8cc1ac39f856;p=d2df-sdl.git

unforward correct ping port
---

diff --git a/src/game/g_net.pas b/src/game/g_net.pas
index 95b2319..0c01dd9 100644
--- a/src/game/g_net.pas
+++ b/src/game/g_net.pas
@@ -2343,12 +2343,12 @@ begin
   if NetPongForwarded then
   begin
     NetPongForwarded := False;
-    StrPort := IntToStr(NetPortForwarded + 1);
+    StrPort := IntToStr(NET_PING_PORT);
     I := UPNP_DeletePortMapping(
       PChar(NetIGDControl), Addr(NetIGDService[1]),
       PChar(StrPort), PChar('UDP'), nil
     );
-    conwritefln('  port %d: %d', [NetPortForwarded + 1, I]);
+    conwritefln('  port %d: %d', [NET_PING_PORT, I]);
   end;
 
   NetPortForwarded := 0;