diff -r e7c7ca0c1556 -r 3c5d99013baf hedgewars/uFLNetProtocol.pas --- 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);