| changeset 409 | 4f1841929ccc |
| parent 408 | 6c3da4907d00 |
| child 411 | fe3a3bd0512f |
| 408:6c3da4907d00 | 409:4f1841929ccc |
|---|---|
37 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
37 sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff, |
38 sprMineOn, sprCase, sprFAid, sprDynamite, sprPower, |
38 sprMineOn, sprCase, sprFAid, sprDynamite, sprPower, |
39 sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont, |
39 sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont, |
40 sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, |
40 sprSky, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos, |
41 sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb, |
41 sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb, |
42 sprAirplane, sprAmAirplane); |
42 sprAirplane, sprAmAirplane, sprAmGirder); |
43 |
43 |
44 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
44 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
45 gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, |
45 gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, |
46 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
46 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, |
47 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, |
47 gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame, |
48 gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, |
48 gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, |
49 gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch); |
49 gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder); |
50 |
50 |
51 TGearsType = set of TGearType; |
51 TGearsType = set of TGearType; |
52 |
52 |
53 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, |
53 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, |
54 sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact, |
54 sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact, |
55 sndMineTick, sndPickhammer); |
55 sndMineTick, sndPickhammer); |
56 |
56 |
57 TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, |
57 TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, |
58 amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, |
58 amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, |
59 amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch); |
59 amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch, |
60 amGirder); |
|
60 |
61 |
61 THWFont = (fnt16, fntBig); |
62 THWFont = (fnt16, fntBig); |
62 |
63 |
63 TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume); |
64 TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume); |
64 |
65 |
153 gm_LJump = $00000040; |
154 gm_LJump = $00000040; |
154 gm_HJump = $00000080; |
155 gm_HJump = $00000080; |
155 gm_Destroy= $00000100; |
156 gm_Destroy= $00000100; |
156 |
157 |
157 cMaxSlotIndex = 8; |
158 cMaxSlotIndex = 8; |
158 cMaxSlotAmmoIndex = 1; |
159 cMaxSlotAmmoIndex = 2; |
159 |
160 |
160 ammoprop_Timerable = $00000001; |
161 ammoprop_Timerable = $00000001; |
161 ammoprop_Power = $00000002; |
162 ammoprop_Power = $00000002; |
162 ammoprop_NeedTarget = $00000004; |
163 ammoprop_NeedTarget = $00000004; |
163 ammoprop_ForwMsgs = $00000008; |
164 ammoprop_ForwMsgs = $00000008; |
307 (FileName: 'AirBomb'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
308 (FileName: 'AirBomb'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
308 Width: 32; Height: 32; hasAlpha: false),// sprAirBomb |
309 Width: 32; Height: 32; hasAlpha: false),// sprAirBomb |
309 (FileName: 'Airplane'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
310 (FileName: 'Airplane'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
310 Width: 125; Height: 42; hasAlpha: false),// sprAirplane |
311 Width: 125; Height: 42; hasAlpha: false),// sprAirplane |
311 (FileName:'amAirplane'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
312 (FileName:'amAirplane'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
312 Width: 64; Height: 32; hasAlpha: true) // sprAmAirplane |
313 Width: 64; Height: 32; hasAlpha: true),// sprAirplane |
314 (FileName: 'amGirder'; Path: ptGraphics; AltPath: ptNone; Surface: nil; |
|
315 Width: 128; Height:128; hasAlpha: false) // sprAmGirder |
|
313 ); |
316 ); |
314 Soundz: array[TSound] of record |
317 Soundz: array[TSound] of record |
315 FileName: String[31]; |
318 FileName: String[31]; |
316 Path : TPathType; |
319 Path : TPathType; |
317 id : PMixChunk; |
320 id : PMixChunk; |
595 AmmoType: amBlowTorch); |
598 AmmoType: amBlowTorch); |
596 Slot: 6; |
599 Slot: 6; |
597 TimeAfterTurn: 3000; |
600 TimeAfterTurn: 3000; |
598 minAngle: 768; |
601 minAngle: 768; |
599 maxAngle: 1280; |
602 maxAngle: 1280; |
600 PosCount: 1)); |
603 PosCount: 1), |
604 (NameId: sidGirder; |
|
605 Probability: 400; |
|
606 NumberInCase: 1; |
|
607 Ammo: (Propz: ammoprop_NoCrosshair or |
|
608 ammoprop_NeedTarget or |
|
609 ammoprop_AttackingPut; |
|
610 Count: 1; |
|
611 NumPerTurn: 0; |
|
612 Timer: 0; |
|
613 Pos: 0; |
|
614 AmmoType: amGirder); |
|
615 Slot: 6; |
|
616 TimeAfterTurn: 3000; |
|
617 minAngle: 0; |
|
618 maxAngle: 0; |
|
619 PosCount: 4; |
|
620 PosSprite: sprAmGirder)); |
|
601 |
621 |
602 implementation |
622 implementation |
603 |
623 |
604 end. |
624 end. |