diff -r ffff8a0d1a76 -r 05cf35103206 hedgewars/uFLNetProtocol.pas --- a/hedgewars/uFLNetProtocol.pas Wed Nov 18 22:18:39 2015 +0300 +++ b/hedgewars/uFLNetProtocol.pas Thu Nov 19 23:04:53 2015 +0300 @@ -23,10 +23,14 @@ procedure handler_BYE(var p: TCmdParamSL); begin + sendUI(mtDisconnected, @p.str2[1], length(p.str2)); end; procedure handler_CHAT(var p: TCmdParamSL); +var s: string; begin + s:= p.str1 + #10 + p.str2; + sendUI(mtLobbyChatLine, @s[1], length(s)); end; procedure handler_CLIENT_FLAGS(var p: TCmdParamS); @@ -39,7 +43,9 @@ procedure handler_CONNECTED(var p: TCmdParami); begin - writeln('Connected!!!!! ', p.param1) + sendUI(mtConnected, nil, 0); + sendNet('PROTO' + #10 + '51'); + sendNet('NICK' + #10 + 'qmlfrontend'); end; procedure handler_EM(var p: TCmdParam); @@ -100,6 +106,7 @@ procedure handler_LOBBY_JOINED_s(var s: TCmdParamS); begin + sendUI(mtAddLobbyClient, @s.str1[1], length(s.str1)); end; procedure handler_LOBBY_LEFT(var p: TCmdParamSL);