23 |
23 |
24 uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uMobile; |
24 uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uMobile; |
25 |
25 |
26 var |
26 var |
27 /////// init flags /////// |
27 /////// init flags /////// |
28 cMinScreenWidth : LongInt = 480; |
28 cMinScreenWidth : LongInt = 640; |
29 cMinScreenHeight : LongInt = 320; |
29 cMinScreenHeight : LongInt = 480; |
30 cScreenWidth : LongInt = 1024; |
30 cScreenWidth : LongInt = 1024; |
31 cScreenHeight : LongInt = 768; |
31 cScreenHeight : LongInt = 768; |
32 cOrigScreenWidth : LongInt = 1024; |
32 cOrigScreenWidth : LongInt = 1024; |
33 cOrigScreenHeight : LongInt = 768; |
33 cOrigScreenHeight : LongInt = 768; |
|
34 cNewScreenWidth : LongInt = 1024; |
|
35 cNewScreenHeight : LongInt = 768; |
|
36 cScreenResizeDelay : LongWord = 0; |
34 cBits : LongInt = 32; |
37 cBits : LongInt = 32; |
35 ipcPort : Word = 0; |
38 ipcPort : Word = 0; |
36 cFullScreen : boolean = false; |
39 cFullScreen : boolean = false; |
37 isSoundEnabled : boolean = true; |
40 isSoundEnabled : boolean = true; |
38 isMusicEnabled : boolean = false; |
41 isMusicEnabled : boolean = false; |
756 (FileName: 'hammer.ogg'; Path: ptSounds),// sndWhack |
759 (FileName: 'hammer.ogg'; Path: ptSounds),// sndWhack |
757 (FileName: 'Comeonthen.ogg'; Path: ptVoices),// sndComeonthen |
760 (FileName: 'Comeonthen.ogg'; Path: ptVoices),// sndComeonthen |
758 (FileName: 'parachute.ogg'; Path: ptSounds),// sndParachute |
761 (FileName: 'parachute.ogg'; Path: ptSounds),// sndParachute |
759 (FileName: 'bump.ogg'; Path: ptSounds),// sndBump |
762 (FileName: 'bump.ogg'; Path: ptSounds),// sndBump |
760 (FileName: 'hogchant3.ogg'; Path: ptSounds),// sndResurrector |
763 (FileName: 'hogchant3.ogg'; Path: ptSounds),// sndResurrector |
761 (FileName: 'plane.ogg'; Path: ptSounds) // sndPlane |
764 (FileName: 'plane.ogg'; Path: ptSounds), // sndPlane |
|
765 (FileName: 'plane.ogg'; Path: ptSounds) // sndTardis TODO change when using a new data set |
762 ); |
766 ); |
763 |
767 |
764 Ammoz: array [TAmmoType] of record |
768 Ammoz: array [TAmmoType] of record |
765 NameId: TAmmoStrId; |
769 NameId: TAmmoStrId; |
766 NameTex: PTexture; |
770 NameTex: PTexture; |