diff --git a/src/game/g_net.pas b/src/game/g_net.pas
index 72cbb9a48d6a60d8a1bfe49fefcabe3920cba925..bfc581a0b6ae95129b3c7eb079be5edabed2d844 100644 (file)
--- a/src/game/g_net.pas
+++ b/src/game/g_net.pas
+(* Copyright (C) DooM 2D:Forever Developers
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ *)
{$MODE DELPHI}
unit g_net;
e_log, e_fixedbuffer, ENet, ENetTypes, ENetPlatform, Classes;
const
- NET_PROTOCOL_VER = 164;
+ NET_PROTOCOL_VER = 167;
NET_MAXCLIENTS = 24;
NET_CHANS = 11;
var
ClAddr: ENetAddress;
Buf: ENetBuffer;
- Len, ClTime: Integer;
- Ping: array [0..5] of Byte;
+ Len: Integer;
+ ClTime: Int64;
+ Ping: array [0..9] of Byte;
NPl: Byte;
begin
if NetPongSock = ENET_SOCKET_NULL then Exit;
Buf.data := Addr(Ping[0]);
- Buf.dataLength := 6;
+ Buf.dataLength := 2+8;
Ping[0] := 0;
if (Ping[0] = Ord('D')) and (Ping[1] = Ord('F')) then
begin
- ClTime := Integer(Addr(Ping[2])^);
+ ClTime := Int64(Addr(Ping[2])^);
e_Buffer_Clear(@NetOut);
e_Buffer_Write(@NetOut, Byte(Ord('D')));