hedgewars/uFLNet.pas
branchqmlfrontend
changeset 11439 23912c93935a
parent 11434 d96a37de1076
child 11442 6e641b5453f9
--- a/hedgewars/uFLNet.pas	Sat Nov 28 00:18:04 2015 +0300
+++ b/hedgewars/uFLNet.pas	Mon Nov 30 23:25:18 2015 +0300
@@ -126,7 +126,6 @@
 var cmd: TCmdParami;
     s: shortstring;
 begin
-    writeln('handler__i');
     s:= getShortString();
     if s[0] = #0 then exit;
     cmd.cmd:= state.cmd;
@@ -138,8 +137,14 @@
 end;
 
 procedure handler_i;
+var cmd: TCmdParami;
+    s: shortstring;
 begin
-    writeln('handler_i');
+    s:= getShortString();
+    if s[0] = #0 then exit;
+    cmd.cmd:= state.cmd;
+    cmd.param1:= strToInt(s);
+    sendUI(mtNetData, @cmd, sizeof(cmd));
     handleTail()
 end;