hedgewars/uFLGameConfig.pas
branchqmlfrontend
changeset 11456 6e9b12864856
parent 11455 0c75fa9ce340
child 11458 e7c7ca0c1556
equal deleted inserted replaced
11455:0c75fa9ce340 11456:6e9b12864856
    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 procedure runNetGame();
    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 
       
   195 procedure runNetGame();
       
   196 begin
       
   197     with currentConfig do
       
   198     begin
       
   199         gameType:= gtNet;
       
   200         arguments[0]:= '';
       
   201         arguments[1]:= '--internal';
       
   202         arguments[2]:= '--nomusic';
       
   203         argumentsNumber:= 3;
       
   204 
       
   205         queueExecution(currentConfig);
       
   206     end;
       
   207 end;
       
   208 
   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;