hedgewars/uFLRunQueue.pas
branchqmlfrontend
changeset 11460 9f2fb0031ef0
parent 11459 30397f91571c
child 12858 0c6fb706f747
equal deleted inserted replaced
11459:30397f91571c 11460:9f2fb0031ef0
    12 
    12 
    13 procedure nextRun;
    13 procedure nextRun;
    14 begin
    14 begin
    15     if runQueue <> nil then
    15     if runQueue <> nil then
    16     begin
    16     begin
    17     writeln('RUNNING ', runQueue^.gameType);
       
    18         if runQueue^.gameType = gtPreview then
    17         if runQueue^.gameType = gtPreview then
    19             sendUI(mtRenderingPreview, nil, 0);
    18             sendUI(mtRenderingPreview, nil, 0);
    20 
    19 
    21         ipcRemoveBarrierFromEngineQueue();
    20         ipcRemoveBarrierFromEngineQueue();
    22         RunEngine(runQueue^.argumentsNumber, @runQueue^.argv);
    21         RunEngine(runQueue^.argumentsNumber, @runQueue^.argv);
    33 
    32 
    34 procedure queueExecution(var config: TGameConfig);
    33 procedure queueExecution(var config: TGameConfig);
    35 var pConfig, t, tt: PGameConfig;
    34 var pConfig, t, tt: PGameConfig;
    36     i: Longword;
    35     i: Longword;
    37 begin
    36 begin
    38     writeln('QUEUE EXECUTION ', config.gameType);
       
    39     new(pConfig);
    37     new(pConfig);
    40     pConfig^:= config;
    38     pConfig^:= config;
    41 
    39 
    42     with pConfig^ do
    40     with pConfig^ do
    43     begin
    41     begin
    84 
    82 
    85 procedure passFlibEvent(p: pointer); cdecl;
    83 procedure passFlibEvent(p: pointer); cdecl;
    86 begin
    84 begin
    87     case TFLIBEvent(p^) of
    85     case TFLIBEvent(p^) of
    88         flibGameFinished: begin
    86         flibGameFinished: begin
    89                 cleanupConfig;
    87             cleanupConfig;
    90                 nextRun
    88             nextRun
    91             end;
    89         end;
    92         flibRunNetGame: begin
       
    93                 runNetGame
       
    94             end;
       
    95     end;
    90     end;
    96 end;
    91 end;
    97 
    92 
    98 end.
    93 end.