21 uses SDLh, uLocale; |
21 uses SDLh, uLocale; |
22 {$INCLUDE options.inc} |
22 {$INCLUDE options.inc} |
23 {$INCLUDE proto.inc} |
23 {$INCLUDE proto.inc} |
24 type TStuff = (sConsoleBG, sPowerBar, sQuestion, sWindBar, |
24 type TStuff = (sConsoleBG, sPowerBar, sQuestion, sWindBar, |
25 sWindL, sWindR, sRopeNode); |
25 sWindL, sWindR, sRopeNode); |
|
26 |
26 TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); |
27 TGameState = (gsLandGen, gsStart, gsGame, gsConsole, gsExit); |
|
28 |
27 TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview); |
29 TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview); |
|
30 |
28 TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps, |
31 TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps, |
29 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts, |
32 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts, |
30 ptLocale, ptAmmoMenu); |
33 ptLocale, ptAmmoMenu); |
|
34 |
31 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
35 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
32 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
36 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
33 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
37 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
34 sprMineOn, sprCase, sprFAid, sprDynamite, sprPower, |
38 sprMineOn, sprCase, sprFAid, sprDynamite, sprPower, |
35 sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont, |
39 sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont, |
36 sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, |
40 sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, |
37 sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb); |
41 sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb); |
|
42 |
38 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
43 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
39 gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, |
44 gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, |
40 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
45 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
41 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, |
46 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, |
42 gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, |
47 gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, |
43 gtParachute, gtAirAttack, gtAirBomb); |
48 gtParachute, gtAirAttack, gtAirBomb); |
|
49 |
44 TGearsType = set of TGearType; |
50 TGearsType = set of TGearType; |
45 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash, |
51 |
46 sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick); |
52 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, |
|
53 sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact, |
|
54 sndMineTick, sndPickhammer); |
|
55 |
47 TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, |
56 TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, |
48 amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, |
57 amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, |
49 amBaseballBat, amParachute, amAirAttack); |
58 amBaseballBat, amParachute, amAirAttack); |
|
59 |
50 THWFont = (fnt16, fntBig); |
60 THWFont = (fnt16, fntBig); |
|
61 |
51 TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume); |
62 TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume); |
|
63 |
52 THHFont = record |
64 THHFont = record |
53 Handle: PTTF_Font; |
65 Handle: PTTF_Font; |
54 Height: integer; |
66 Height: integer; |
55 style: integer; |
67 style: integer; |
56 Name: string[15]; |
68 Name: string[15]; |
57 end; |
69 end; |
|
70 |
58 TAmmo = record |
71 TAmmo = record |
59 Propz: LongWord; |
72 Propz: LongWord; |
60 Count: LongWord; |
73 Count: LongWord; |
61 NumPerTurn: LongWord; |
74 NumPerTurn: LongWord; |
62 Timer: LongWord; |
75 Timer: LongWord; |
254 ); |
267 ); |
255 Soundz: array[TSound] of record |
268 Soundz: array[TSound] of record |
256 FileName: String[31]; |
269 FileName: String[31]; |
257 Path : TPathType; |
270 Path : TPathType; |
258 id : PMixChunk; |
271 id : PMixChunk; |
|
272 lastChan: LongInt; |
259 end = ( |
273 end = ( |
260 (FileName: 'grenadeimpact.ogg'; Path: ptSounds ),// sndGrenadeImpact |
274 (FileName: 'grenadeimpact.ogg'; Path: ptSounds ),// sndGrenadeImpact |
261 (FileName: 'explosion.ogg'; Path: ptSounds ),// sndExplosion |
275 (FileName: 'explosion.ogg'; Path: ptSounds ),// sndExplosion |
262 (FileName: 'throwpowerup.ogg'; Path: ptSounds ),// sndThrowPowerUp |
276 (FileName: 'throwpowerup.ogg'; Path: ptSounds ),// sndThrowPowerUp |
263 (FileName: 'throwrelease.ogg'; Path: ptSounds ),// sndThrowRelease |
277 (FileName: 'throwrelease.ogg'; Path: ptSounds ),// sndThrowRelease |
264 (FileName: 'splash.ogg'; Path: ptSounds ),// sndSplash |
278 (FileName: 'splash.ogg'; Path: ptSounds ),// sndSplash |
265 (FileName: 'shotgunreload.ogg'; Path: ptSounds ),// sndShotgunReload |
279 (FileName: 'shotgunreload.ogg'; Path: ptSounds ),// sndShotgunReload |
266 (FileName: 'shotgunfire.ogg'; Path: ptSounds ),// sndShotgunFire |
280 (FileName: 'shotgunfire.ogg'; Path: ptSounds ),// sndShotgunFire |
267 (FileName: 'graveimpact.ogg'; Path: ptSounds ),// sndGraveImpact |
281 (FileName: 'graveimpact.ogg'; Path: ptSounds ),// sndGraveImpact |
268 (FileName: 'minetick.ogg'; Path: ptSounds ) // sndMineTicks |
282 (FileName: 'minetick.ogg'; Path: ptSounds ),// sndMineTicks |
|
283 (FileName: 'pickhammer.ogg'; Path: ptSounds ) // sndPickhammer |
269 ); |
284 ); |
270 |
285 |
271 Ammoz: array [TAmmoType] of record |
286 Ammoz: array [TAmmoType] of record |
272 NameId: TAmmoStrId; |
287 NameId: TAmmoStrId; |
273 Ammo: TAmmo; |
288 Ammo: TAmmo; |