35 procedure netRemoveTeam(teamName: shortstring);

    35 procedure netRemoveTeam(teamName: shortstring);

    36 procedure netResetTeams();

    36 procedure netResetTeams();

    37 procedure updatePreviewIfNeeded;

    37 procedure updatePreviewIfNeeded;

    38 

    38 

    39 procedure sendConfig(config: PGameConfig);

    39 procedure sendConfig(config: PGameConfig);

    40 

    41 

    41 implementation

    42 implementation

    42 uses uFLIPC, uFLUtils, uFLTeams, uFLThemes, uFLSChemes, uFLAmmo, uFLUICallback, uFLRunQueue, uFLNet;

    43 uses uFLIPC, uFLUtils, uFLTeams, uFLThemes, uFLSChemes, uFLAmmo, uFLUICallback, uFLRunQueue, uFLNet;

    43 

    44 

    44 var

    45 var

   189 

   190 

   190         queueExecution(currentConfig);

   191         queueExecution(currentConfig);

   191     end;

   192     end;

   192 end;

   193 end;

   193 

   194 

   194 procedure tryAddTeam(teamName: PChar); cdecl;

   209 procedure tryAddTeam(teamName: PChar); cdecl;

   195 var msg: ansistring;

   210 var msg: ansistring;

   196     i, hn, hedgehogsNumber: Longword;

   211     i, hn, hedgehogsNumber: Longword;

   197     team: PTeam;

   212     team: PTeam;

   198     c: Longword;

   213     c: Longword;