hedgewars/uFLNet.pas
branchqmlfrontend
changeset 11424 86c13e5662f1
parent 11423 e045dc60c37e
child 11425 2947f06e8533
--- a/hedgewars/uFLNet.pas	Sat Nov 21 17:07:06 2015 +0300
+++ b/hedgewars/uFLNet.pas	Sat Nov 21 23:56:41 2015 +0300
@@ -17,7 +17,7 @@
 function getCurrChar: char; forward;
 
 type
-    TNetState = (netDisconnected, netConnecting, netLoggedIn);
+    TNetState = (netDisconnected, netConnecting);
     TParserState = record
                        cmd: TCmdType;
                        l: LongInt;
@@ -128,9 +128,21 @@
 end;
 
 procedure handler_SMS;
+var cmd: TCmdParamS;
+    f: boolean;
 begin
-    writeln('handler_SMS');
-    handleTail()
+    cmd.cmd:= state.cmd;
+    cmd.str1:= getShortString;
+    if cmd.str1[0] = #0 then exit;
+    sendUI(mtNetData, @cmd, sizeof(cmd));
+
+    cmd.cmd:= Succ(state.cmd);
+    repeat
+        cmd.str1:= getShortString;
+        f:= cmd.str1[0] <> #0;
+        if f then
+            sendUI(mtNetData, @cmd, sizeof(cmd));
+    until not f
 end;
 
 procedure handler__i;