hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11444 91f8c6ff5bab
parent 11443 5182d44fb733
child 11449 2bf0491d5e88
equal deleted inserted replaced
11443:5182d44fb733 11444:91f8c6ff5bab
   471 begin
   471 begin
   472 end;
   472 end;
   473 
   473 
   474 procedure handler_TEAM_ACCEPTED(var p: TCmdParamS);
   474 procedure handler_TEAM_ACCEPTED(var p: TCmdParamS);
   475 begin
   475 begin
       
   476     netAcceptedTeam(p.str1)
   476 end;
   477 end;
   477 
   478 
   478 procedure handler_TEAM_COLOR(var p: TCmdParamSS);
   479 procedure handler_TEAM_COLOR(var p: TCmdParamSS);
   479 begin
   480 begin
   480     netSetTeamColor(p.str1, StrToInt(p.str2));
   481     netSetTeamColor(p.str1, StrToInt(p.str2));