From e1f0d9264e64404de20df057c98c8cc1ac39f856 Mon Sep 17 00:00:00 2001
From: fgsfds <pvt.fgsfds@gmail.com>
Date: Mon, 24 Feb 2020 20:05:24 +0300
Subject: [PATCH] unforward correct ping port

---
 src/game/g_net.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.29.2