X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_net.pas;h=0c01dd925fffd40aac9d0e98aeae874916ce294b;hp=95b2319e6acd1eb2f92a7f599de2ce1af7011800;hb=e1f0d9264e64404de20df057c98c8cc1ac39f856;hpb=4bf6da74deaa56a43fa6b0ad15c1bf4054ac6fd4

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;