equal
deleted
inserted
replaced
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. |