unforward correct ping port

diff --git a/src/game/g_net.pas b/src/game/g_net.pas
index 95b2319e6acd1eb2f92a7f599de2ce1af7011800..0c01dd925fffd40aac9d0e98aeae874916ce294b 100644 (file)
--- 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;