hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11434 23912c93935a
parent 11433 bca9afcc3a72
child 11436 f7fa429e42ab
equal deleted inserted replaced
11433:bca9afcc3a72 11434:23912c93935a
   163 end;
   163 end;
   164 
   164 
   165 procedure handler_CONNECTED(var p: TCmdParami);
   165 procedure handler_CONNECTED(var p: TCmdParami);
   166 begin
   166 begin
   167     sendUI(mtConnected, nil, 0);
   167     sendUI(mtConnected, nil, 0);
       
   168     writeln('Server features version ', p.param1);
   168     sendNet('PROTO' + #10 + '51');
   169     sendNet('PROTO' + #10 + '51');
   169     sendNet('NICK' + #10 + 'qmlfrontend');
   170     sendNet('NICK' + #10 + 'qmlfrontend');
   170 end;
   171 end;
   171 
   172 
   172 procedure handler_EM(var p: TCmdParam);
   173 procedure handler_EM(var p: TCmdParam);
   272 begin
   273 begin
   273 end;
   274 end;
   274 
   275 
   275 procedure handler_PROTO(var p: TCmdParami);
   276 procedure handler_PROTO(var p: TCmdParami);
   276 begin
   277 begin
       
   278     writeln('Protocol ', p.param1)
   277 end;
   279 end;
   278 
   280 
   279 procedure handler_REMOVE_TEAM(var p: TCmdParamS);
   281 procedure handler_REMOVE_TEAM(var p: TCmdParamS);
   280 begin
   282 begin
   281 end;
   283 end;