9 procedure freeTeamsList;

     9 procedure freeTeamsList;

    10 

    10 

    11 function teamByName(s: shortstring): PTeam;

    11 function teamByName(s: shortstring): PTeam;

    12 

    12 

    13 procedure sendTeam(var team: TTeam);

    13 procedure sendTeam(var team: TTeam);

    14 

    15 

    15 implementation

    16 implementation

    16 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLData, uFLNet;

    17 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLData, uFLNet;

    17 

    18 

    18 const MAX_TEAM_NAMES = 128;

    19 const MAX_TEAM_NAMES = 128;

   209         end;

   210         end;

   210         sendNetLn('')

   211         sendNetLn('')

   211     end;

   212     end;

   212 end;

   213 end;

   213 

   214 

   214 end.

   221 end.