equal
deleted
inserted
replaced
34 |
34 |
35 var isTerminated: boolean = false; |
35 var isTerminated: boolean = false; |
36 alsoShutdownFrontend: boolean = false; |
36 alsoShutdownFrontend: boolean = false; |
37 |
37 |
38 {$IFDEF HWLIBRARY} |
38 {$IFDEF HWLIBRARY} |
39 type arrayofpchar = array[0..10] of PChar; |
|
40 |
|
41 procedure initEverything(complete:boolean); |
39 procedure initEverything(complete:boolean); |
42 procedure freeEverything(complete:boolean); |
40 procedure freeEverything(complete:boolean); |
43 |
41 |
44 implementation |
42 implementation |
45 {$ELSE} |
43 {$ELSE} |
196 SDL_ShowCursor(0) |
194 SDL_ShowCursor(0) |
197 end; |
195 end; |
198 |
196 |
199 /////////////// |
197 /////////////// |
200 {$IFDEF HWLIBRARY} |
198 {$IFDEF HWLIBRARY} |
201 procedure Game(gameArgs: arrayofpchar); cdecl; export; |
199 procedure Game(gameArgs: PPChar); cdecl; export; |
202 {$ELSE} |
200 {$ELSE} |
203 procedure Game; |
201 procedure Game; |
204 {$ENDIF} |
202 {$ENDIF} |
205 var p: TPathType; |
203 var p: TPathType; |
206 s: shortstring; |
204 s: shortstring; |
214 cTimerInterval:= 8; |
212 cTimerInterval:= 8; |
215 PathPrefix:= 'Data'; |
213 PathPrefix:= 'Data'; |
216 {$IFDEF DEBUGFILE} |
214 {$IFDEF DEBUGFILE} |
217 cShowFPS:= true; |
215 cShowFPS:= true; |
218 {$ELSE} |
216 {$ELSE} |
219 cShowFPS:= false; // update me at release time |
217 cShowFPS:= false; |
220 {$ENDIF} |
218 {$ENDIF} |
221 val(gameArgs[0], ipcPort); |
219 val(gameArgs[0], ipcPort); |
222 val(gameArgs[1], cScreenWidth); |
220 val(gameArgs[1], cScreenWidth); |
223 val(gameArgs[2], cScreenHeight); |
221 val(gameArgs[2], cScreenHeight); |
224 val(gameArgs[3], cReducedQuality); |
222 val(gameArgs[3], cReducedQuality); |