hedgewars/uFLNet.pas
branchqmlfrontend
changeset 11451 6e9b12864856
parent 11446 321d0ce43568
child 11454 3c5d99013baf
equal deleted inserted replaced
11450:0c75fa9ce340 11451:6e9b12864856
    51 
    51 
    52 procedure handler_ML;
    52 procedure handler_ML;
    53 var cmd: TCmdParamL;
    53 var cmd: TCmdParamL;
    54     f: boolean;
    54     f: boolean;
    55 begin
    55 begin
    56     writeln('handler_ML');
       
    57     sendUI(mtNetData, @state.cmd, sizeof(state.cmd));
    56     sendUI(mtNetData, @state.cmd, sizeof(state.cmd));
    58     cmd.cmd:= Succ(state.cmd);
    57     cmd.cmd:= Succ(state.cmd);
    59 
    58 
    60     repeat
    59     repeat
    61         cmd.str1:= getLongString;
    60         cmd.str1:= getLongString;