hedgewars/uFLNet.pas
branchqmlfrontend
changeset 11428 e045dc60c37e
parent 11426 25e0f427f57e
child 11429 86c13e5662f1
--- 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;