index 4dc52a395c6152a05cd3c8cbc2581831b1ead811..ccaddfc87b2b29e1d2966f78d080aa30db6f7ed1 100644 (file)
uses sysutils, g_console;
uses sysutils, g_console;
+// TODO: Unify this with g_Net_Host_HandlePacket() somehow? They're almost the same.
procedure g_Net_Client_HandlePacket(P: pENetPacket; Handler: TNetClientMsgHandler);
var
MNext: Integer;
procedure g_Net_Client_HandlePacket(P: pENetPacket; Handler: TNetClientMsgHandler);
var
MNext: Integer;
NetMsg: TMsg;
Err: Boolean;
begin
NetMsg: TMsg;
Err: Boolean;
begin
- if not NetMsg.Init(P^.data, P^.dataLength, True) then
- Exit;
+ if not NetMsg.Init(P^.data, P^.dataLength, True)
+ then exit;
Err := False;
MNext := 0;
Err := False;
MNext := 0;
end;
end;
end;
end;
- MHandled := not MHandled; //k8: stfu, fpc!
-
enet_packet_destroy(P);
enet_packet_destroy(P);
- //if Err then begin MC_MalformedPacket(S); Exit; end;
+ //if Err
+ // then MC_MalformedPacket(S);
end;
procedure g_Net_Host_HandlePacket(S: pTNetClient; P: pENetPacket; Handler: TNetHostMsgHandler);
end;
procedure g_Net_Host_HandlePacket(S: pTNetClient; P: pENetPacket; Handler: TNetHostMsgHandler);
NetMsg: TMsg;
Err: Boolean;
begin
NetMsg: TMsg;
Err: Boolean;
begin
- if not NetMsg.Init(P^.data, P^.dataLength, True) then
- Exit;
+ if not NetMsg.Init(P^.data, P^.dataLength, True)
+ then exit;
Err := False;
MNext := 0;
Err := False;
MNext := 0;
end;
end;
end;
end;
- MHandled := not MHandled; //k8: stfu, fpc!
-
enet_packet_destroy(P);
enet_packet_destroy(P);
- if Err then begin MH_MalformedPacket(S); Exit; end;
+ if Err
+ then MH_MalformedPacket(S);
end;
end;