(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; version 2 of the License

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

 *)

{$INCLUDE "options.inc"}

unit uConsts;

interface

uses	SDLh, uFloat, uLocale,

{$IFDEF GLES11}

	gles11;

{$ELSE}

	GL;

{$ENDIF}

{$INCLUDE "proto.inc"}

// typed const is a variable despite const qualifier

// in freepascal you may actually use var for the same purpose

type

	HwColor4f = record

		r, g, b, a: byte

		end;

	TGameState = (gsLandGen, gsStart, gsGame, gsChat, gsConfirm, gsExit);

	TGameType = (gmtLocal, gmtDemo, gmtNet, gmtSave, gmtLandPreview, gmtSyntax);

	TPathType = (ptNone, ptData, ptGraphics, ptThemes, ptCurrTheme, ptTeams, ptMaps,

			ptMapCurrent, ptDemos, ptSounds, ptGraves, ptFonts, ptForts,

			ptLocale, ptAmmoMenu, ptHedgehog, ptVoices, ptHats, ptFlags);

	TSprite = (sprWater, sprCloud, sprBomb, sprBigDigit, sprFrame,

			sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,

			sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,

			sprMineOn, sprMineDead, sprCase, sprFAid, sprDynamite, sprPower,

			sprClusterBomb, sprClusterParticle, sprFlame, sprHorizont,

			sprHorizontL, sprHorizontR, sprSky, sprSkyL,

			sprSkyR, sprAMBorders, sprAMSlot, sprAMSlotName, sprAMAmmos,

			sprAMSlotKeys, sprAMSelection, sprFinger, sprAirBomb,

			sprAirplane, sprAmAirplane, sprAmGirder, sprHHTelepMask,

			sprSwitch, sprParachute, sprTarget, sprRopeNode,

			sprQuestion, sprPowerBar, sprWindBar, sprWindL, sprWindR,

			sprFlake, sprHandRope, sprHandBazooka, sprHandShotgun,

			sprHandDEagle, sprHandAirAttack, sprHandBaseball, sprPHammer,

			sprHandBlowTorch, sprBlowTorch, sprTeleport, sprHHDeath,

			sprShotgun, sprDEagle, sprHHIdle, sprMortar, sprTurnsLeft,

			sprKamikaze, sprWhip, sprKowtow, sprSad, sprWave,

			sprHurrah, sprLemonade, sprShrug, sprJuggle, sprExplPart, sprExplPart2,

			sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,

			sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,

			sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls,

			sprPlane, sprHandPlane, sprUtility, sprInvulnerable, sprVampiric, sprGirder,

            sprSpeechCorner, sprSpeechEdge, sprSpeechTail,

            sprThoughtCorner, sprThoughtEdge, sprThoughtTail,

            sprShoutCorner, sprShoutEdge, sprShoutTail,

            sprSniperRifle, sprBubbles, sprJetpack, sprHealth, sprHandMolotov, sprMolotov,

						sprSmoke, sprShell, sprDust);

	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, // 3

			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, // 8

			gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite, // 14

			gtClusterBomb, gtCluster, gtShover, gtFlame, // 18

			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame, // 24

			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder, // 27

			gtTeleport, gtSwitcher, gtTarget, gtMortar, // 31

			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 37

			gtHellishBomb, gtEvilTrace, gtWaterUp, gtDrill, gtBallGun, gtBall,gtRCPlane,

			gtSniperRifleShot, gtJetpack, gtMolotov);

	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,

			vgtSmallDamageTag, vgtTeamHealthSorter, vgtSpeechBubble, vgtBubble,

			vgtSteam, vgtSmoke, vgtHealth, vgtShell, vgtDust);

	TGearsType = set of TGearType;

	TSound = (sndNone,

			sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,

			sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact,

			sndMineTick, sndPickhammer, sndGun, sndUFO, sndJump1, sndJump2,

			sndJump3, sndYesSir, sndLaugh, sndIllGetYou, sndIncoming,

			sndMissed, sndStupid, sndFirstBlood, sndBoring, sndByeBye,

			sndSameTeam, sndNutter, sndReinforce, sndTraitor, sndRegret,

			sndEnemyDown, sndCoward, sndHurry, sndWatchIt, sndKamikaze,

			sndCake, sndOw1, sndOw4, sndFirePunch1, sndFirePunch2,

			sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6,

			sndMelon, sndHellish, sndYoohoo, sndRCPlane, sndWhipCrack,

			sndRideOfTheValkyries, sndDenied, sndPlaced, sndBaseballBat,

			sndVaporize, sndWarp, sndSuddenDeath, sndMortar, sndShutter,

			sndHomerun, sndMolotov, sndWalking, sndCover, sndUhOh,

			sndOops, sndNooo, sndHello, sndRopeShot, sndRopeAttach,

			sndRopeRelease, sndSwitchHog, sndVictory, sndSniperReload, sndSteps);

	TAmmoType  = (amNothing, amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,

			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,

			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,

			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,

			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun,

			amRCPlane, amLowGravity, amExtraDamage, amInvulnerable, amExtraTime,

			amLaserSight, amVampiric, amSniperRifle, amJetpack, amMolotov);

	THWFont = (fnt16, fntBig, fntSmall, CJKfnt16, CJKfntBig, CJKfntSmall);

	TCapGroup = (capgrpGameState, capgrpAmmoinfo, capgrpVolume,

			capgrpMessage, capgrpAmmostate);

	TStatInfoType = (siGameResult, siMaxStepDamage, siMaxStepKills, siKilledHHs,

			siClanHealth);

	TWave = (waveRollup, waveSad, waveWave, waveHurrah, waveLemonade, waveShrug, waveJuggle);

	THHFont = record

			Handle: PTTF_Font;

			Height: LongInt;

			style: LongInt;

			Name: string[21];

			end;

	PAmmo = ^TAmmo;

	TAmmo = record

			Propz: LongWord;

			Count: LongWord;

(* Using for place hedgehogs mode, but for any other situation where the initial count would be needed I guess.

For example, say, a mode where the weaponset is reset each turn, or on sudden death *)

			InitialCount: LongWord; 

			NumPerTurn: LongWord;

			Timer: LongWord;

			Pos: LongWord;

			AmmoType: TAmmoType;

			AttackVoice: TSound;

			end;

	TVertex2f = record

		X, Y: GLfloat;

		end;

	TVertex2i = record

		X, Y: GLint;

		end;

	PTexture = ^TTexture;

	TTexture = record

			id: GLuint;

			w, h: LongInt;

			rx, ry: GLfloat;

			vb, tb: array [0..3] of TVertex2f;

            PrevTexture, NextTexture: PTexture;

			end;

const

	// message constants

	errmsgCreateSurface   = 'Error creating SDL surface';

	errmsgTransparentSet  = 'Error setting transparent color';

	errmsgUnknownCommand  = 'Unknown command';

	errmsgUnknownVariable = 'Unknown variable';

	errmsgIncorrectUse    = 'Incorrect use';

	errmsgShouldntRun     = 'This program shouldn''t be run manually';

	errmsgWrongNumber     = 'Wrong parameters number';

	errmsgSlotsOverflow   = 'CurSlot overflowed';

	msgLoading           = 'Loading ';

	msgOK                = 'ok';

	msgFailed            = 'failed';

	msgFailedSize        = 'failed due to size';

	msgGettingConfig     = 'Getting game config...';

	// color constants

	cWhiteColorChannels	: TSDL_Color = (r:$FF; g:$FF; b:$FF; unused:$FF);

	cNearBlackColorChannels	: TSDL_Color = (r:$00; g:$00; b:$10; unused:$FF);

	cWhiteColor		      : Longword = $FFFFFFFF;

	cYellowColor		  : Longword = $FFFFFF00;

	cNearBlackColor       : Longword = $FF000010;

	cExplosionBorderColor : LongWord = $FF808080;

{$WARNINGS OFF}

	cAirPlaneSpeed: hwFloat = (isNegative: false; QWordValue:   3006477107); // 1.4

	cBombsSpeed   : hwFloat = (isNegative: false; QWordValue:    429496729);

{$WARNINGS ON}

	// image flags (for LoadImage())

	ifNone        = $00000000;	// nothing special

	ifAlpha       = $00000001;	// use alpha channel (unused right now?)

	ifCritical    = $00000002;	// image is critical for gameplay (exit game if unable to load)

	ifTransparent = $00000004;	// image uses transparent pixels (color keying)

	ifIgnoreCaps  = $00000008;	// ignore hardware capabilities when loading (i.e. image will not be drawn using OpenGL)

	ifLowRes      = $00000010;	// try loading a low resolution image when it is critical

	{*  REFERENCE

      4096 -> $FFFFF000

      2048 -> $FFFFF800

      1024 -> $FFFFFC00

       512 -> $FFFFFE00  *}

{$IFDEF LOWRES}

	// default for iphone pre 3gs

	LAND_WIDTH  = 2048;

	LAND_HEIGHT = 1024;

	LAND_WIDTH_MASK  = $FFFFF800;

	LAND_HEIGHT_MASK = $FFFFFC00;

{$ELSE}

	LAND_WIDTH  = 4096;

	LAND_HEIGHT = 2048;

	LAND_WIDTH_MASK  = $FFFFF000;

	LAND_HEIGHT_MASK = $FFFFF800;

{$ENDIF}

	COLOR_LAND           = $FFFF;  // white

	COLOR_INDESTRUCTIBLE = $88FF;  // red

	COLOR_OBJECT         = $44FF;  // no idea

	cMaxPower     = 1500;

	cMaxAngle     = 2048;

	cPowerDivisor = 1500;

	MAXNAMELEN = 192;

	// some opengl headers do not have these macros

	GL_BGR		 = $80E0;

	GL_BGRA		 = $80E1;

	GL_CLAMP_TO_EDGE = $812F;

	cSendCursorPosTime	: LongWord = 50;

	cVisibleWater		: LongInt = 128;

	cCursorEdgesDist	: LongInt = 100;

	cTeamHealthWidth	: LongInt = 128;

	cWaterOpacity		: byte = $80;

	cifRandomize = $00000001;

	cifTheme     = $00000002;

	cifMap       = $00000002; // either theme or map (or map+theme)

	cifAllInited = cifRandomize or cifTheme or cifMap;

	cTransparentColor: Longword = $00000000;

	cMaxTeams        = 6;

	cMaxHHIndex      = 7;

	cMaxHHs          = 48;

	cMaxSpawnPoints  = 1024;

	cMaxEdgePoints = 16384;

	cHHRadius = 9;

	cHHStepTicks = 29;

	cUsualZ = 500;

	cSmokeZ = 499;

	cHHZ = 1000;

	cCurrHHZ = Succ(cHHZ);

	cOnHHZ = 2000;

	cShotgunRadius = 22;

	cBlowTorchC    = 6;

	cKeyMaxIndex = 1023;

{$IFDEF IPHONEOS}

	cMaxCaptions = 3;

{$ELSE}

	cMaxCaptions = 4;

{$ENDIF}

	cSendEmptyPacketTime = 1000;

	// from uTriggers

	trigTurns = $80000001;

	// Training Flags

	tfNone          = $00000000;

	tfTimeTrial     = $00000001;

	tfRCPlane       = $00000002;

	tfSpawnTargets  = $00000004;

	tfIgnoreDelays  = $00000008;

	tfTargetRespawn = $00000010;

	gstDrowning       = $00000001;

	gstHHDriven       = $00000002;

	gstMoving         = $00000004;

	gstAttacked       = $00000008;

	gstAttacking      = $00000010;

	gstCollision      = $00000020;

	gstHHChooseTarget = $00000040;

	gstHHJumping      = $00000100;

	gsttmpFlag        = $00000200;

	gstHHThinking     = $00000800;

	gstNoDamage       = $00001000;

	gstHHHJump        = $00002000;

	gstAnimation      = $00004000;

	gstHHDeath        = $00008000;

	gstWinner         = $00010000;  // this, along with gstLoser, is good for indicating hedgies know they screwed up

	gstWait           = $00020000;

	gstNotKickable    = $00040000;

	gstLoser          = $00080000;

	gm_Left   = $00000001;

	gm_Right  = $00000002;

	gm_Up     = $00000004;

	gm_Down   = $00000008;

	gm_Switch = $00000010;

	gm_Attack = $00000020;

	gm_LJump  = $00000040;

	gm_HJump  = $00000080;

	gm_Destroy= $00000100;

	gm_Slot   = $00000200; // with param

	gm_Weapon = $00000400; // with param

	gm_Timer  = $00000800; // with param

	gm_Animate= $00001000; // with param

	gm_Precise= $00002000;

	gmAllStoppable = gm_Left or gm_Right or gm_Up or gm_Down or gm_Attack or gm_Precise;

	cMaxSlotIndex       = 8;

	cMaxSlotAmmoIndex   = 5;

	ammoprop_Timerable    = $00000001;

	ammoprop_Power        = $00000002;

	ammoprop_NeedTarget   = $00000004;

	ammoprop_ForwMsgs     = $00000008;

	ammoprop_AttackInMove = $00000010;

	ammoprop_NoCrosshair  = $00000040;

	ammoprop_AttackingPut = $00000080;

	ammoprop_DontHold     = $00000100;

	ammoprop_AltAttack    = $00000200;

	ammoprop_AltUse       = $00000400;

	ammoprop_NotBorder    = $00000800;

	ammoprop_Utility      = $00001000;

	ammoprop_NoRoundEndHint=$10000000;

	AMMO_INFINITE = 100;

	EXPLAllDamageInRadius = $00000001;

	EXPLAutoSound         = $00000002;

	EXPLNoDamage          = $00000004;

	EXPLDoNotTouchHH      = $00000008;

	EXPLDontDraw          = $00000010;

	posCaseAmmo    = $00000001;

	posCaseHealth  = $00000002;

	posCaseUtility = $00000004;

	NoPointX = Low(LongInt);

	cTargetPointRef	: TPoint = (X: NoPointX; Y: 0);

	// hog tag mask

	htNone        = $00;

	htTeamName    = $01;

	htName        = $02;

	htHealth      = $04;

	htTransparent = $80;

	cHHFileName = 'Hedgehog';

	cCHFileName = 'Crosshair';

	cThemeCFGFilename = 'theme.cfg';

	FontBorder = 2;

var	PathPrefix: string;

	Pathz: array[TPathType] of String;

	CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;

const	cTagsMasks : array[0..7] of byte = (

				htTeamName or htName or htHealth,

				htName or htHealth,

				htHealth,

				htNone,

				htTeamName or htName or htHealth or htTransparent,

				htName or htHealth or htTransparent,

				htHealth or htTransparent,

				htNone

				);

	Fontz: array[THWFont] of THHFont = (

			(Handle: nil;

			Height: 12;

			style: TTF_STYLE_NORMAL;

			Name: 'DejaVuSans-Bold.ttf'),

			(Handle: nil;

			Height: 24;

			style: TTF_STYLE_NORMAL;

			Name: 'DejaVuSans-Bold.ttf'),

			(Handle: nil;

			Height: 10;

			style: TTF_STYLE_NORMAL;

			Name: 'DejaVuSans-Bold.ttf'),

			(Handle: nil;

			Height: 12;

			style: TTF_STYLE_NORMAL;

			Name: 'wqy-zenhei.ttc'),

			(Handle: nil;

			Height: 24;

			style: TTF_STYLE_NORMAL;

			Name: 'wqy-zenhei.ttc'),

			(Handle: nil;

			Height: 10;

			style: TTF_STYLE_NORMAL;

			Name: 'wqy-zenhei.ttc')

			);

	SpritesData: array[TSprite] of record

			FileName: String[14];

			Path, AltPath: TPathType;

			Texture: PTexture;

			Surface: PSDL_Surface;

			Width, Height, imageWidth, imageHeight: LongInt;

			saveSurf: boolean;

			end = (

			(FileName:  'BlueWater'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;

			Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprWater

			(FileName:     'Clouds'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;

			Width: 256; Height:128; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprCloud

			(FileName:       'Bomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   8; Height:  8; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprBomb

			(FileName:  'BigDigits'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprBigDigit

			(FileName:      'Frame'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   4; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprFrame

			(FileName:        'Lag'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  65; Height: 65; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprLag

			(FileName:      'Arrow'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprCursor

			(FileName:    'Grenade'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprGrenade

			(FileName:    'Targetp'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprTargetP

			(FileName:        'UFO'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprUFO

			(FileName: 'SmokeTrace'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprSmokeTrace

			(FileName:   'RopeHook'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprRopeHook

			(FileName:     'Expl50'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  64; Height: 64; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprExplosion50

			(FileName:    'MineOff'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   8; Height:  8; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprMineOff

			(FileName:     'MineOn'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   8; Height:  8; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprMineOn

			(FileName:     'MineDead'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:   8; Height:  8; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprMineDead

			(FileName:       'Case'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  48; Height: 48; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprCase

			(FileName:   'FirstAid'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  48; Height: 48; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprFAid

			(FileName:   'dynamite'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprDynamite

			(FileName:      'Power'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;

			Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false),// sprPower