X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_nethandler.pas;h=ccaddfc87b2b29e1d2966f78d080aa30db6f7ed1;hb=54de73776fff070d5c24b38ac996cd02e76fca61;hp=4dc52a395c6152a05cd3c8cbc2581831b1ead811;hpb=0e32b76121dd532a73259cbdbf15c43ffdedd5c9;p=d2df-sdl.git diff --git a/src/game/g_nethandler.pas b/src/game/g_nethandler.pas index 4dc52a3..ccaddfc 100644 --- a/src/game/g_nethandler.pas +++ b/src/game/g_nethandler.pas @@ -34,6 +34,7 @@ implementation 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; @@ -42,8 +43,8 @@ var 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; @@ -60,10 +61,9 @@ begin end; end; - MHandled := not MHandled; //k8: stfu, fpc! - 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); @@ -74,8 +74,8 @@ var 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; @@ -92,10 +92,9 @@ begin end; end; - MHandled := not MHandled; //k8: stfu, fpc! - enet_packet_destroy(P); - if Err then begin MH_MalformedPacket(S); Exit; end; + if Err + then MH_MalformedPacket(S); end;