hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11454 3c5d99013baf
parent 11451 6e9b12864856
child 11460 9f2fb0031ef0
--- a/hedgewars/uFLNetProtocol.pas	Sat Dec 12 23:42:40 2015 +0300
+++ b/hedgewars/uFLNetProtocol.pas	Mon Dec 14 00:24:03 2015 +0300
@@ -10,7 +10,7 @@
 procedure ResetNetState;
 
 implementation
-uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet, uFLGameConfig, uFLUtils;
+uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet, uFLGameConfig, uFLUtils, uFLIPC, uUtils;
 
 type
     PHandler = procedure (var t: TCmdData);
@@ -53,10 +53,10 @@
     , @tmpTeam.hedgehogs[7].name
     , @tmpTeam.hedgehogs[7].hat
     );
+
 procedure handler_ADD_TEAM(var p: TCmdParam);
 begin
     teamIndex:= 0;
-    tmpTeam.extDriven:= true;
     tmpTeam.color:= 0
 end;
 
@@ -317,8 +317,19 @@
 begin
 end;
 
-procedure handler_EM_s(var s: TCmdParamS);
+procedure handler_EM_s(var p: TCmdParamL);
+var i, l: Longword;
+    s: shortstring;
 begin
+    i:= 1;
+    l:= length(p.str1);
+
+    while i < l do
+    begin
+        s:= DecodeBase64(copy(p.str1, i, 240));
+        ipcToEngineRaw(@s[0], byte(s[0]));
+        inc(i, 160)
+    end;
 end;
 
 procedure handler_ERROR(var p: TCmdParamL);
@@ -411,7 +422,7 @@
 
 procedure handler_PROTO(var p: TCmdParami);
 begin
-    writeln('Protocol ', p.param1)
+    //writeln('Protocol ', p.param1)
 end;
 
 procedure handler_REMOVE_TEAM(var p: TCmdParamS);