hedgewars/uConsts.pas
changeset 2376 ece7b87f1334
parent 2362 ef4abaf2d5cc
child 2382 bfd378dfc4e7
equal deleted inserted replaced
2375:99f05a01a6a3 2376:ece7b87f1334
    17  *)
    17  *)
    18 
    18 
    19 unit uConsts;
    19 unit uConsts;
    20 interface
    20 interface
    21 
    21 
    22 uses 
    22 uses
    23 	SDLh,
    23 	SDLh,
    24 {$IFDEF GLES11}
    24 {$IFDEF GLES11}
    25 	gles11,
    25 	gles11,
    26 {$ELSE}
    26 {$ELSE}
    27 	GL,
    27 	GL,
    57 			sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
    57 			sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,
    58 			sprHurrah, sprLemonade, sprShrug, sprJuggle, sprExplPart, sprExplPart2,
    58 			sprHurrah, sprLemonade, sprShrug, sprJuggle, sprExplPart, sprExplPart2,
    59 			sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,
    59 			sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,
    60 			sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,
    60 			sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,
    61 			sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls,
    61 			sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls,
    62 			sprPlane, sprHandPlane, sprUtility, sprInvulnerable, sprVampiric, sprGirder, 
    62 			sprPlane, sprHandPlane, sprUtility, sprInvulnerable, sprVampiric, sprGirder,
    63             sprSpeechCorner, sprSpeechEdge, sprSpeechTail, 
    63             sprSpeechCorner, sprSpeechEdge, sprSpeechTail,
    64             sprThoughtCorner, sprThoughtEdge, sprThoughtTail, 
    64             sprThoughtCorner, sprThoughtEdge, sprThoughtTail,
    65             sprShoutCorner, sprShoutEdge, sprShoutTail,
    65             sprShoutCorner, sprShoutEdge, sprShoutTail,
    66             sprSniperRifle, sprBubbles, sprJetpack);
    66             sprSniperRifle, sprBubbles, sprJetpack);
    67 
    67 
    68 	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, // 3
    68 	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, // 3
    69 			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, // 8
    69 			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, // 8
    90 			sndSameTeam, sndNutter, sndReinforce, sndTraitor, sndRegret,
    90 			sndSameTeam, sndNutter, sndReinforce, sndTraitor, sndRegret,
    91 			sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze,
    91 			sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze,
    92 			sndCake, sndOw1, sndOw4, sndFirePunch1, sndFirePunch2,
    92 			sndCake, sndOw1, sndOw4, sndFirePunch1, sndFirePunch2,
    93 			sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6,
    93 			sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6,
    94 			sndMelon, sndHellish, sndYoohoo, sndRCPlane, sndWhipCrack,
    94 			sndMelon, sndHellish, sndYoohoo, sndRCPlane, sndWhipCrack,
    95 			sndRideOfTheValkyries, sndDenied, sndPlaced, sndBaseballBat, 
    95 			sndRideOfTheValkyries, sndDenied, sndPlaced, sndBaseballBat,
    96 			sndVaporize, sndWarp, sndSuddenDeath, sndMortar, sndShutter);
    96 			sndVaporize, sndWarp, sndSuddenDeath, sndMortar, sndShutter);
    97 
    97 
    98 	TAmmoType  = (amNothing, amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    98 	TAmmoType  = (amNothing, amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
    99 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
    99 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
   100 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
   100 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
   101 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
   101 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
   102 			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun, 
   102 			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun,
   103             		amRCPlane, amLowGravity, amExtraDamage, amInvulnerable, amExtraTime,
   103             		amRCPlane, amLowGravity, amExtraDamage, amInvulnerable, amExtraTime,
   104             		amLaserSight, amVampiric, amSniperRifle, amJetpack);
   104             		amLaserSight, amVampiric, amSniperRifle, amJetpack);
   105 
   105 
   106 	THWFont = (fnt16, fntBig, fntSmall);
   106 	THWFont = (fnt16, fntBig, fntSmall);
   107 
   107 
   131 			end;
   131 			end;
   132 
   132 
   133 	TVertex2f = record
   133 	TVertex2f = record
   134 		X, Y: GLfloat;
   134 		X, Y: GLfloat;
   135 		end;
   135 		end;
   136 			
   136 
   137 	TVertex2i = record
   137 	TVertex2i = record
   138 		X, Y: GLint;
   138 		X, Y: GLint;
   139 		end;
   139 		end;
   140 
   140 
   141 	TTexture = record
   141 	TTexture = record
   166     ifAlpha       = $00000001; // use alpha channel (unused right now?)
   166     ifAlpha       = $00000001; // use alpha channel (unused right now?)
   167     ifCritical    = $00000002; // image is critical for gameplay (exit game if unable to load)
   167     ifCritical    = $00000002; // image is critical for gameplay (exit game if unable to load)
   168     ifTransparent = $00000004; // image uses transparent pixels (color keying)
   168     ifTransparent = $00000004; // image uses transparent pixels (color keying)
   169     ifIgnoreCaps  = $00000008; // ignore hardware capabilities when loading (i.e. image will not be drawn using OpenGL)
   169     ifIgnoreCaps  = $00000008; // ignore hardware capabilities when loading (i.e. image will not be drawn using OpenGL)
   170     ifLowRes      = $00000010; // try loading a low resolution image when it is critical
   170     ifLowRes      = $00000010; // try loading a low resolution image when it is critical
   171     
   171 
   172 const	cMaxPower     = 1500;
   172 const	cMaxPower     = 1500;
   173 	cMaxAngle     = 2048;
   173 	cMaxAngle     = 2048;
   174 	cPowerDivisor = 1500;
   174 	cPowerDivisor = 1500;
   175 
   175 
   176 	MAXNAMELEN = 192;
   176 	MAXNAMELEN = 192;
   667 			(FileName:          'baseballbat.ogg'; Path: ptSounds),// sndBaseballBat
   667 			(FileName:          'baseballbat.ogg'; Path: ptSounds),// sndBaseballBat
   668 			(FileName:                'steam.ogg'; Path: ptSounds),// sndVaporize
   668 			(FileName:                'steam.ogg'; Path: ptSounds),// sndVaporize
   669 			(FileName:                 'warp.ogg'; Path: ptSounds),// sndWarp
   669 			(FileName:                 'warp.ogg'; Path: ptSounds),// sndWarp
   670 			(FileName:          'suddendeath.ogg'; Path: ptSounds),// sndSuddenDeath
   670 			(FileName:          'suddendeath.ogg'; Path: ptSounds),// sndSuddenDeath
   671 			(FileName:               'mortar.ogg'; Path: ptSounds),// sndMortar
   671 			(FileName:               'mortar.ogg'; Path: ptSounds),// sndMortar
   672 			(FileName:         'shutterclick.ogg'; Path: ptSounds) // sndShutter			
   672 			(FileName:         'shutterclick.ogg'; Path: ptSounds) // sndShutter
   673 			);
   673 			);
   674 
   674 
   675 	Ammoz: array [TAmmoType] of record
   675 	Ammoz: array [TAmmoType] of record
   676 			NameId: TAmmoStrId;
   676 			NameId: TAmmoStrId;
   677 			NameTex: PTexture;
   677 			NameTex: PTexture;