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); |
47 sprMineOn, sprCase); |
48 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
48 TGearType = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, |
49 gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope, |
49 gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope, |
50 gtSmokeTrace, gtExplosion, gtMine, gtCase); |
50 gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot); |
51 TGearsType = set of TGearType; |
51 TGearsType = set of TGearType; |
52 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash, |
52 TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash, |
53 sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick); |
53 sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick); |
54 TAmmoType = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope, |
54 TAmmoType = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope, |
55 amMine); |
55 amMine, amDEagle); |
56 THWFont = (fnt16, fntBig); |
56 THWFont = (fnt16, fntBig); |
57 THHFont = record |
57 THHFont = record |
58 Handle: PTTF_Font; |
58 Handle: PTTF_Font; |
59 Height: integer; |
59 Height: integer; |
60 Name: string[15]; |
60 Name: string[15]; |
117 gstCollision = $00000020; |
117 gstCollision = $00000020; |
118 gstHHChooseTarget = $00000040; |
118 gstHHChooseTarget = $00000040; |
119 gstFalling = $00000080; |
119 gstFalling = $00000080; |
120 gstHHJumping = $00000100; |
120 gstHHJumping = $00000100; |
121 gsttmpFlag = $00000200; |
121 gsttmpFlag = $00000200; |
122 gstOutOfHH = $00000400; |
|
123 gstHHThinking = $00000800; |
122 gstHHThinking = $00000800; |
124 |
123 |
125 gtsStartGame = 1; |
124 gtsStartGame = 1; |
126 gtsSmoothWindCh = 2; |
125 gtsSmoothWindCh = 2; |
127 |
126 |