hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11434 23912c93935a
parent 11433 bca9afcc3a72
child 11436 f7fa429e42ab
--- a/hedgewars/uFLNetProtocol.pas	Sat Nov 28 00:18:04 2015 +0300
+++ b/hedgewars/uFLNetProtocol.pas	Mon Nov 30 23:25:18 2015 +0300
@@ -165,6 +165,7 @@
 procedure handler_CONNECTED(var p: TCmdParami);
 begin
     sendUI(mtConnected, nil, 0);
+    writeln('Server features version ', p.param1);
     sendNet('PROTO' + #10 + '51');
     sendNet('NICK' + #10 + 'qmlfrontend');
 end;
@@ -274,6 +275,7 @@
 
 procedure handler_PROTO(var p: TCmdParami);
 begin
+    writeln('Protocol ', p.param1)
 end;
 
 procedure handler_REMOVE_TEAM(var p: TCmdParamS);