| changeset 79 | 29b477319854 |
| parent 78 | 66bb79dd248d |
| child 80 | 3c3dc6a148ca |
| 78:66bb79dd248d | 79:29b477319854 |
|---|---|
43 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts); |
43 ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts); |
44 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
44 TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame, |
45 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
45 sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO, |
46 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
46 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
47 sprMineOn, sprCase, sprFAid, sprDynamite, sprPower, |
47 sprMineOn, sprCase, sprFAid, sprDynamite, sprPower, |
48 sprClusterBomb, sprClusterParticle); |
48 sprClusterBomb, sprClusterParticle, sprFlame); |
49 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
49 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
50 gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope, |
50 gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope, |
51 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
51 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
52 gtTeamHealthSorter, gtClusterBomb, gtCluster); |
52 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame); |
53 TGearsType = set of TGearType; |
53 TGearsType = set of TGearType; |
54 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash, |
54 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash, |
55 sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick); |
55 sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick); |
56 TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope, |
56 TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope, |
57 amMine, amDEagle, amDynamite); |
57 amMine, amDEagle, amDynamite, amBaseballBat); |
58 THWFont = (fnt16, fntBig); |
58 THWFont = (fnt16, fntBig); |
59 THHFont = record |
59 THHFont = record |
60 Handle: PTTF_Font; |
60 Handle: PTTF_Font; |
61 Height: integer; |
61 Height: integer; |
62 Name: string[15]; |
62 Name: string[15]; |
129 gstHHChooseTarget = $00000040; |
129 gstHHChooseTarget = $00000040; |
130 gstFalling = $00000080; |
130 gstFalling = $00000080; |
131 gstHHJumping = $00000100; |
131 gstHHJumping = $00000100; |
132 gsttmpFlag = $00000200; |
132 gsttmpFlag = $00000200; |
133 gstHHThinking = $00000800; |
133 gstHHThinking = $00000800; |
134 gstNoDamage = $00001000; |
|
134 |
135 |
135 gtsStartGame = 1; |
136 gtsStartGame = 1; |
136 gtsSmoothWindCh = 2; |
137 gtsSmoothWindCh = 2; |
137 |
138 |
138 gm_Left = $00000001; |
139 gm_Left = $00000001; |
143 gm_Attack = $00000020; |
144 gm_Attack = $00000020; |
144 gm_LJump = $00000040; |
145 gm_LJump = $00000040; |
145 gm_HJump = $00000080; |
146 gm_HJump = $00000080; |
146 gm_Destroy= $00000100; |
147 gm_Destroy= $00000100; |
147 |
148 |
148 cMaxSlotIndex = 6; |
149 cMaxSlotIndex = 7; |
149 cMaxSlotAmmoIndex = 1; |
150 cMaxSlotAmmoIndex = 1; |
150 |
151 |
151 ammoprop_Timerable = $00000001; |
152 ammoprop_Timerable = $00000001; |
152 ammoprop_Power = $00000002; |
153 ammoprop_Power = $00000002; |
153 ammoprop_NeedTarget = $00000004; |
154 ammoprop_NeedTarget = $00000004; |
167 EXPLDoNotTouchHH = $00000008; |
168 EXPLDoNotTouchHH = $00000008; |
168 |
169 |
169 posCaseAmmo = $00000001; |
170 posCaseAmmo = $00000001; |
170 posCaseHealth = $00000002; |
171 posCaseHealth = $00000002; |
171 |
172 |
172 NoPointX = Low(Integer); // константа для TargetPoint, показывает, что цель не указана |
173 NoPointX = Low(Integer); |
173 |
174 |
174 cHHFileName = 'Hedgehog'; |
175 cHHFileName = 'Hedgehog'; |
175 cCHFileName = 'Crosshair'; |
176 cCHFileName = 'Crosshair'; |
176 cThemeCFGFilename = 'theme.cfg'; |
177 cThemeCFGFilename = 'theme.cfg'; |
177 |
178 |
247 (FileName: 'Case'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false),// sprCase |
248 (FileName: 'Case'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false),// sprCase |
248 (FileName: 'FirstAid'; Path: ptGraphics; Width: 48; Height: 48; hasAlpha: false),// sprFAid |
249 (FileName: 'FirstAid'; Path: ptGraphics; Width: 48; Height: 48; hasAlpha: false),// sprFAid |
249 (FileName: 'dynamite'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false),// sprDynamite |
250 (FileName: 'dynamite'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: false),// sprDynamite |
250 (FileName: 'Power'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: true),// sprPower |
251 (FileName: 'Power'; Path: ptGraphics; Width: 32; Height: 32; hasAlpha: true),// sprPower |
251 (FileName: 'ClBomb'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false),// sprClusterBomb |
252 (FileName: 'ClBomb'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false),// sprClusterBomb |
252 (FileName:'ClParticle'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false) // sprClusterParticle |
253 (FileName:'ClParticle'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false),// sprClusterParticle |
254 (FileName: 'Flame'; Path: ptGraphics; Width: 16; Height: 16; hasAlpha: false) // sprFlame |
|
253 ); |
255 ); |
254 Soundz: array[TSound] of record |
256 Soundz: array[TSound] of record |
255 FileName: String[31]; |
257 FileName: String[31]; |
256 Path : TPathType; |
258 Path : TPathType; |
257 id : PMixChunk; |
259 id : PMixChunk; |
317 Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump; |
319 Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump; |
318 Count: 2; |
320 Count: 2; |
319 NumPerTurn: 0; |
321 NumPerTurn: 0; |
320 Timer: 0; |
322 Timer: 0; |
321 AmmoType: amPickHammer); |
323 AmmoType: amPickHammer); |
322 Slot: 4; |
324 Slot: 5; |
323 TimeAfterTurn: 0), |
325 TimeAfterTurn: 0), |
324 (Name: 'Skip turn'; |
326 (Name: 'Skip turn'; |
325 Ammo: (Propz: 0; |
327 Ammo: (Propz: 0; |
326 Count: AMMO_INFINITE; |
328 Count: AMMO_INFINITE; |
327 NumPerTurn: 0; |
329 NumPerTurn: 0; |
328 Timer: 0; |
330 Timer: 0; |
329 AmmoType: amSkip); |
331 AmmoType: amSkip); |
330 Slot: 6; |
332 Slot: 7; |
331 TimeAfterTurn: 0), |
333 TimeAfterTurn: 0), |
332 (Name: 'Rope'; |
334 (Name: 'Rope'; |
333 Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump; |
335 Ammo: (Propz: ammoprop_ForwMsgs or ammoprop_AttackInFall or ammoprop_AttackInJump; |
334 Count: 5; |
336 Count: 5; |
335 NumPerTurn: 0; |
337 NumPerTurn: 0; |
336 Timer: 0; |
338 Timer: 0; |
337 AmmoType: amRope); |
339 AmmoType: amRope); |
338 Slot: 5; |
340 Slot: 6; |
339 TimeAfterTurn: 0), |
341 TimeAfterTurn: 0), |
340 (Name: 'Mine'; |
342 (Name: 'Mine'; |
341 Ammo: (Propz: ammoprop_NoCrosshair; |
343 Ammo: (Propz: ammoprop_NoCrosshair; |
342 Count: 2; |
344 Count: 2; |
343 NumPerTurn: 0; |
345 NumPerTurn: 0; |
344 Timer: 0; |
346 Timer: 0; |
345 AmmoType: amMine); |
347 AmmoType: amMine); |
346 Slot: 3; |
348 Slot: 4; |
347 TimeAfterTurn: 3000), |
349 TimeAfterTurn: 5000), |
348 (Name: 'Desert Eagle'; |
350 (Name: 'Desert Eagle'; |
349 Ammo: (Propz: 0; |
351 Ammo: (Propz: 0; |
350 Count: 3; |
352 Count: 3; |
351 NumPerTurn: 3; |
353 NumPerTurn: 3; |
352 Timer: 0; |
354 Timer: 0; |
357 Ammo: (Propz: ammoprop_NoCrosshair or ammoprop_AttackInJump or ammoprop_AttackInFall; |
359 Ammo: (Propz: ammoprop_NoCrosshair or ammoprop_AttackInJump or ammoprop_AttackInFall; |
358 Count: 1; |
360 Count: 1; |
359 NumPerTurn: 0; |
361 NumPerTurn: 0; |
360 Timer: 0; |
362 Timer: 0; |
361 AmmoType: amDynamite); |
363 AmmoType: amDynamite); |
364 Slot: 4; |
|
365 TimeAfterTurn: 5000), |
|
366 (Name: 'Baseball Bat'; |
|
367 Ammo: (Propz: 0; |
|
368 Count: 1; |
|
369 NumPerTurn: 0; |
|
370 Timer: 0; |
|
371 AmmoType: amBaseballBat); |
|
362 Slot: 3; |
372 Slot: 3; |
363 TimeAfterTurn: 5000)); |
373 TimeAfterTurn: 5000)); |
364 |
374 |
365 implementation |
375 implementation |
366 |
376 |