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; |
485 (FileName: 'Health'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
488 (FileName: 'Health'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
486 Width: 16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true),// sprHealth |
489 Width: 16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true),// sprHealth |
487 (FileName: 'amMolotov'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil; |
490 (FileName: 'amMolotov'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil; |
488 Width: 32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),//sprHandMolotov |
491 Width: 32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),//sprHandMolotov |
489 (FileName: 'Molotov'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
492 (FileName: 'Molotov'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
490 Width: 16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprMolotov |
493 Width: 32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprMolotov |
491 (FileName: 'Smoke'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
494 (FileName: 'Smoke'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
492 Width: 22; Height: 22; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprSmoke |
495 Width: 22; Height: 22; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprSmoke |
493 (FileName: 'SmokeWhite'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
496 (FileName: 'SmokeWhite'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
494 Width: 22; Height: 22; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprSmokeWhite |
497 Width: 22; Height: 22; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprSmokeWhite |
495 (FileName: 'Shells'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
498 (FileName: 'Shells'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
612 (FileName: 'SDClouds'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil; |
615 (FileName: 'SDClouds'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil; |
613 Width: 256; Height:128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true),// sprSDCloud |
616 Width: 256; Height:128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true),// sprSDCloud |
614 (FileName: 'SDSplash'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil; |
617 (FileName: 'SDSplash'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil; |
615 Width: 80; Height: 50; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprSDSplash |
618 Width: 80; Height: 50; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprSDSplash |
616 (FileName: 'SDDroplet'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil; |
619 (FileName: 'SDDroplet'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil; |
617 Width: 16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true)// sprSDDroplet |
620 Width: 16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprSDDroplet |
|
621 (FileName: 'TARDIS'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil; |
|
622 Width: 48; Height: 79; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true)// sprTardis |
618 ); |
623 ); |
619 |
624 |
620 |
625 |
621 Wavez: array [TWave] of record |
626 Wavez: array [TWave] of record |
622 Sprite: TSprite; |
627 Sprite: TSprite; |
749 (FileName: 'hammer.ogg'; Path: ptSounds),// sndWhack |
754 (FileName: 'hammer.ogg'; Path: ptSounds),// sndWhack |
750 (FileName: 'Comeonthen.ogg'; Path: ptVoices),// sndComeonthen |
755 (FileName: 'Comeonthen.ogg'; Path: ptVoices),// sndComeonthen |
751 (FileName: 'parachute.ogg'; Path: ptSounds),// sndParachute |
756 (FileName: 'parachute.ogg'; Path: ptSounds),// sndParachute |
752 (FileName: 'bump.ogg'; Path: ptSounds),// sndBump |
757 (FileName: 'bump.ogg'; Path: ptSounds),// sndBump |
753 (FileName: 'hogchant3.ogg'; Path: ptSounds),// sndResurrector |
758 (FileName: 'hogchant3.ogg'; Path: ptSounds),// sndResurrector |
754 (FileName: 'plane.ogg'; Path: ptSounds) // sndPlane |
759 (FileName: 'plane.ogg'; Path: ptSounds), // sndPlane |
|
760 (FileName: 'TARDIS.ogg'; Path: ptSounds) // sndTardis |
755 ); |
761 ); |
756 |
762 |
757 Ammoz: array [TAmmoType] of record |
763 Ammoz: array [TAmmoType] of record |
758 NameId: TAmmoStrId; |
764 NameId: TAmmoStrId; |
759 NameTex: PTexture; |
765 NameTex: PTexture; |