equal
deleted
inserted
replaced
25 |
25 |
26 var |
26 var |
27 /////// init flags /////// |
27 /////// init flags /////// |
28 cMinScreenWidth : LongInt; |
28 cMinScreenWidth : LongInt; |
29 cMinScreenHeight : LongInt; |
29 cMinScreenHeight : LongInt; |
|
30 cFullscreenWidth : LongInt; |
|
31 cFullscreenHeight : LongInt; |
|
32 cWindowedWidth : LongInt; |
|
33 cWindowedHeight : LongInt; |
30 cScreenWidth : LongInt; |
34 cScreenWidth : LongInt; |
31 cScreenHeight : LongInt; |
35 cScreenHeight : LongInt; |
32 cOrigScreenWidth : LongInt; |
|
33 cOrigScreenHeight : LongInt; |
|
34 cNewScreenWidth : LongInt; |
36 cNewScreenWidth : LongInt; |
35 cNewScreenHeight : LongInt; |
37 cNewScreenHeight : LongInt; |
36 cScreenResizeDelay : LongWord; |
38 cScreenResizeDelay : LongWord; |
37 ipcPort : Word; |
39 ipcPort : Word; |
38 cFullScreen : boolean; |
40 cFullScreen : boolean; |
2324 begin |
2326 begin |
2325 // initialisation flags - they are going to be overwritten by program args |
2327 // initialisation flags - they are going to be overwritten by program args |
2326 |
2328 |
2327 cScreenWidth := 1024; |
2329 cScreenWidth := 1024; |
2328 cScreenHeight := 768; |
2330 cScreenHeight := 768; |
|
2331 cFullscreenWidth := 1024; |
|
2332 cFullscreenHeight := 768; |
|
2333 cWindowedWidth := 1024; |
|
2334 cWindowedHeight := 768; |
2329 cShowFPS := false; |
2335 cShowFPS := false; |
2330 cAltDamage := true; |
2336 cAltDamage := true; |
2331 cTimerInterval := 8; |
2337 cTimerInterval := 8; |
2332 cReducedQuality := rqNone; |
2338 cReducedQuality := rqNone; |
2333 cLocaleFName := 'en.txt'; |
2339 cLocaleFName := 'en.txt'; |
2506 vobSDVelocity:= 15; |
2512 vobSDVelocity:= 15; |
2507 vobSDFallSpeed:= 250; |
2513 vobSDFallSpeed:= 250; |
2508 |
2514 |
2509 cMinScreenWidth:= min(cScreenWidth, 640); |
2515 cMinScreenWidth:= min(cScreenWidth, 640); |
2510 cMinScreenHeight:= min(cScreenHeight, 480); |
2516 cMinScreenHeight:= min(cScreenHeight, 480); |
2511 cOrigScreenWidth:= cScreenWidth; |
|
2512 cOrigScreenHeight:= cScreenHeight; |
|
2513 |
2517 |
2514 cNewScreenWidth := cScreenWidth; |
2518 cNewScreenWidth := cScreenWidth; |
2515 cNewScreenHeight := cScreenHeight; |
2519 cNewScreenHeight := cScreenHeight; |
2516 cScreenResizeDelay := 0; |
2520 cScreenResizeDelay := 0; |
2517 |
2521 |