(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2012 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 uVariables;

interface

uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uMobile, uMatrix;

var

/////// init flags ///////

    cMinScreenWidth    : LongInt     = 640;

    cMinScreenHeight   : LongInt     = 480;

    cScreenWidth       : LongInt     = 1024;

    cScreenHeight      : LongInt     = 768;

    cOrigScreenWidth   : LongInt     = 1024;

    cOrigScreenHeight  : LongInt     = 768;

    cNewScreenWidth    : LongInt     = 1024;

    cNewScreenHeight   : LongInt     = 768;

    cScreenResizeDelay : LongWord    = 0;

    cBits           : LongInt     = 32;

    ipcPort         : Word        = 0;

    cFullScreen     : boolean     = false;

    cLocaleFName    : shortstring = 'en.txt';

    cLocale         : shortstring = 'en';

    cTimerInterval  : LongInt     = 8;

    PathPrefix      : shortstring = './';

    UserPathPrefix  : shortstring = './';

    cShowFPS        : boolean     = false;

    cFlattenFlakes  : boolean     = false;

    cFlattenClouds  : boolean     = false;

    cAltDamage      : boolean     = true;

    cReducedQuality : LongWord    = rqNone;

    UserNick        : shortstring = '';

    recordFileName  : shortstring = '';

    cReadyDelay     : Longword    = 5000;

    cStereoMode     : TStereoMode = smNone;

    cOnlyStats      : boolean = False;

//////////////////////////

    cMapName        : shortstring = '';

    isCursorVisible : boolean;

    isInLag         : boolean;

    isPaused        : boolean;

    isInMultiShoot  : boolean;

    isSpeed         : boolean;

    fastUntilLag    : boolean;

    autoCameraOn    : boolean;

    GameTicks       : LongWord;

    GameState       : TGameState;

    GameType        : TGameType;

    InputMask       : LongWord;

    GameFlags       : Longword;

    TurnTimeLeft    : Longword;

    TagTurnTimeLeft : Longword;

    ReadyTimeLeft   : Longword;

    cSuddenDTurns   : LongInt;

    cDamagePercent  : LongInt;

    cMineDudPercent : LongWord;

    cTemplateFilter : LongInt;

    cMapGen         : LongInt;

    cRopePercent    : LongWord;

    cGetAwayTime    : LongWord;

    cHedgehogTurnTime: Longword;

    cMinesTime       : LongInt;

    cMaxAIThinkTime  : Longword;

    cHealthCaseProb  : LongInt;

    cHealthCaseAmount: LongInt;

    cWaterRise       : LongInt;

    cHealthDecrease  : LongInt;

    cCloudsNumber    : LongWord;

    cSDCloudsNumber  : LongWord;

    cTagsMask        : byte;

    zoom             : GLfloat;

    ZoomValue        : GLfloat;

    cWaterLine       : Word;

    cGearScrEdgesDist: LongInt;

    // originally typed consts

    ExplosionBorderColor: LongWord;

    WaterOpacity: byte;

    SDWaterOpacity: byte;

    GrayScale: Boolean;

    // originally from uConsts

    Pathz: array[TPathType] of shortstring;

    UserPathz: array[TPathType] of shortstring;

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

    LAND_WIDTH       : Word;

    LAND_HEIGHT      : Word;

    LAND_WIDTH_MASK  : LongWord;

    LAND_HEIGHT_MASK : LongWord;

    cLeftScreenBorder     : LongInt;

    cRightScreenBorder    : LongInt;

    cScreenSpace          : Longword;

    cCaseFactor     : Longword;

    cLandMines      : Longword;

    cExplosives     : Longword;

    cScriptName     : shortstring;

    cSeed           : shortstring;

    cVolumeDelta    : LongInt;

    cHasFocus       : boolean;

    cInactDelay     : Longword;

    bBetweenTurns   : boolean;

    bWaterRising    : boolean;

    CrosshairX      : LongInt;

    CrosshairY      : LongInt;

    CursorMovementX : LongInt;

    CursorMovementY : LongInt;

    cDrownSpeed     : hwFloat;

    cDrownSpeedf    : real;

    cMaxWindSpeed   : hwFloat;

    cWindSpeed      : hwFloat;

    cWindSpeedf     : real;

    cGravity        : hwFloat;

    cGravityf       : real;

    cDamageModifier : hwFloat;

    cLaserSighting  : boolean;

    cVampiric       : boolean;

    cArtillery      : boolean;

    WeaponTooltipTex: PTexture;

    AmmoMenuTex     : PTexture;

    AmmoMenuInvalidated: boolean;

    AmmoRect		: TSDL_Rect;

    HHTexture       : PTexture;

    flagMakeCapture : boolean;

    InitStepsFlags  : Longword;

    RealTicks       : Longword;

    AttackBar       : LongInt;

    WaterColorArray : array[0..3] of HwColor4f;

    SDWaterColorArray : array[0..3] of HwColor4f;

    SDTint          : LongInt;

    CursorPoint     : TPoint;

    TargetPoint     : TPoint;

    ScreenFade      : TScreenFade;

    ScreenFadeValue : LongInt;

    ScreenFadeSpeed : LongInt;

    Theme           : shortstring;

    disableLandBack : boolean;

    WorldDx: LongInt;

    WorldDy: LongInt;

    hiTicks: Word;

    LuaGoals        : shortstring;

    VoiceList : array[0..7] of TVoice =  (

                    ( snd: sndNone; voicepack: nil),

                    ( snd: sndNone; voicepack: nil),

                    ( snd: sndNone; voicepack: nil),

                    ( snd: sndNone; voicepack: nil),

                    ( snd: sndNone; voicepack: nil),

                    ( snd: sndNone; voicepack: nil),

                    ( snd: sndNone; voicepack: nil),

                    ( snd: sndNone; voicepack: nil));

    LastVoice : TVoice = ( snd: sndNone; voicepack: nil );

/////////////////////////////////////

//Buttons

{$IFDEF USE_TOUCH_INTERFACE}

    buttonScale: GLFloat;

    arrowUp, arrowDown, arrowLeft, arrowRight : TOnScreenWidget;

    firebutton, jumpWidget, AMWidget          : TOnScreenWidget;

    pauseButton, utilityWidget                : TOnScreenWidget;

{$ENDIF}

var

    // these consts are here because they would cause circular dependencies in uConsts/uTypes

    cPathz: array[TPathType] of shortstring = (

        '',                              // ptNone

        '',                              // ptData

        'Graphics',                      // ptGraphics

        'Themes',                        // ptThemes

        'Themes/avematan',               // ptCurrTheme

        'Teams',                         // ptTeams

        'Maps',                          // ptMaps

        '',                              // ptMapCurrent

        'Demos',                         // ptDemos

        'Sounds',                        // ptSounds

        'Graphics/Graves',               // ptGraves

        'Fonts',                         // ptFonts

        'Forts',                         // ptForts

        'Locale',                        // ptLocale

        'Graphics/AmmoMenu',             // ptAmmoMenu

        'Graphics/Hedgehog',             // ptHedgehog

        'Sounds/voices',                 // ptVoices

        'Graphics/Hats',                 // ptHats

        'Graphics/Flags',                // ptFlags

        'Missions/Maps',                 // ptMissionMaps

        'Graphics/SuddenDeath',          // ptSuddenDeath

        'Graphics/Buttons',              // ptButton

        'Shaders'                        // ptShaders

    );

    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')

            {$IFNDEF MOBILE}, // remove chinese fonts for now

            (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')

            {$ENDIF}

            );

var

    SpritesData: array[TSprite] of record

            FileName: string[15];

            Path, AltPath: TPathType;

            Texture: PTexture;

            Surface: PSDL_Surface;

            Width, Height, imageWidth, imageHeight: LongInt;

            priority: GLfloat;

            getDimensions, getImageDimensions: boolean;

            end = (

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

            (FileName:   'horizont'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:  'horizontL'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:  'horizontR'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:        'Sky'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:       'SkyL'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:       'SkyR'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:   'Slot'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:      'Ammos'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:   'Ammos_bw'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:   'SlotKeys'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:  'Corners'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

{$IFDEF USE_TOUCH_INTERFACE}

            (FileName: 'firebutton'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'arrowUp'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'arrowDown'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'arrowLeft'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'arrowRight'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'forwardjump'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'backjump'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'pause'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'pause'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;//TODO correct image

            (FileName: 'forwardjump'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;//TODO correct image

{$ENDIF}

            (FileName:      'Flake'; Path:ptCurrTheme; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:     'amRope'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:  'amBazooka'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:  'amShotgun'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:   'amDEagle'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:'amAirAttack'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'amBaseball'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

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

            (FileName: 'amBTorch_i'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'amBTorch_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

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

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

            (FileName:'amShotgun_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'amDEagle_w'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:       'Idle'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

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

            (FileName:  'TurnsLeft'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName: 'amKamikaze'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:     'amWhip'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:     'Kowtow'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:        'Sad'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:       'Wave'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:     'Hurrah'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:'ILoveLemonade';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:      'Shrug'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:     'Juggle'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

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

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

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

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

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

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

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

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

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

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

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

            (FileName:    'amDrill'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:  'amBallgun'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

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

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

            (FileName:  'amRCPlane'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

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

            (FileName:'Invulnerable';Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;

            (FileName:   'Vampiric'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;