diff -r c6c6a4b32cea -r e045dc60c37e hedgewars/uFLNet.pas --- a/hedgewars/uFLNet.pas Sat Nov 21 12:40:33 2015 +0300 +++ b/hedgewars/uFLNet.pas Sat Nov 21 17:07:06 2015 +0300 @@ -61,20 +61,33 @@ procedure handler_; begin sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); - writeln('handler_'); handleTail() end; procedure handler_L; +var cmd: TCmdParamL; begin - writeln('handler_L'); + cmd.cmd:= state.cmd; + cmd.str1:= getShortString; // FIXME long line + if cmd.str1[0] = #0 then exit; + sendUI(mtNetData, @cmd, sizeof(cmd)); handleTail() end; procedure handler_ML; +var cmd: TCmdParamL; + f: boolean; begin writeln('handler_ML'); - handleTail() + sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); + cmd.cmd:= Succ(state.cmd); + + repeat + cmd.str1:= getShortString; // FIXME long line + f:= cmd.str1[0] <> #0; + if f then + sendUI(mtNetData, @cmd, sizeof(cmd)); + until not f end; procedure handler_MS; @@ -93,8 +106,12 @@ end; procedure handler_S; +var cmd: TCmdParamS; begin - writeln('handler_S'); + cmd.cmd:= state.cmd; + cmd.str1:= getShortString; + if cmd.str1[0] = #0 then exit; + sendUI(mtNetData, @cmd, sizeof(cmd)); handleTail() end;