diff -r 9f2fb0031ef0 -r 33a0e3a14ddc hedgewars/uFLNet.pas --- a/hedgewars/uFLNet.pas Sun Dec 20 12:45:49 2015 +0300 +++ b/hedgewars/uFLNet.pas Sat Dec 26 22:29:57 2015 +0300 @@ -41,10 +41,13 @@ procedure handler_L; var cmd: TCmdParamL; + s: ansistring; begin cmd.cmd:= state.cmd; - cmd.str1:= getLongString; - if length(cmd.str1) = 0 then exit; + s:= getLongString; + cmd.str1len:= length(s); + if cmd.str1len = 0 then exit; + cmd.str1:= s; sendUI(mtNetData, @cmd, sizeof(cmd)); handleTail() end; @@ -52,15 +55,21 @@ procedure handler_ML; var cmd: TCmdParamL; f: boolean; + s: ansistring; begin sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); cmd.cmd:= Succ(state.cmd); repeat - cmd.str1:= getLongString; - f:= cmd.str1[0] <> #0; + s:= getLongString; + cmd.str1len:= length(s); + f:= cmd.str1len <> 0; + if f then + begin + cmd.str1:= s; sendUI(mtNetData, @cmd, sizeof(cmd)); + end until not f; state.l:= 0 end;