sheepy-clone: comparison hedgewars/uVariables.pas

equal deleted inserted replaced

-:31570b766315
+:ed5a6478e710
 (*
 * Hedgewars, a free turn based strategy game
-* Copyright (c) 2004-2013 Andrey Korotaev <unC0Rr@gmail.com>
+* Copyright (c) 2004-2015 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
 *
 * 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
+* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 *)
 {$INCLUDE "options.inc"}
 unit uVariables;
 interface
-uses SDLh, uTypes, uFloat, GLunit, uConsts, Math;
+uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uUtils{$IFDEF GL2}, uMatrix{$ENDIF};
 var
 /////// init flags ///////
 cMinScreenWidth    : LongInt;
 cMinScreenHeight   : LongInt;
 cScreenHeight      : LongInt;
 cNewScreenWidth    : LongInt;
 cNewScreenHeight   : LongInt;
 cScreenResizeDelay : LongWord;
 ipcPort            : Word;
+AprilOne           : boolean;
 cFullScreen        : boolean;
 cLocaleFName       : shortstring;
 cLocale            : shortstring;
 cTimerInterval     : LongInt;
-PathPrefix         : shortstring;
+PathPrefix         : ansistring;
-UserPathPrefix     : shortstring;
+UserPathPrefix     : ansistring;
 cShowFPS           : boolean;
 cFlattenFlakes     : boolean;
 cFlattenClouds     : boolean;
 cIce               : boolean;
 cSnow              : boolean;
 ReadyTimeLeft   : Longword;
 cSuddenDTurns   : LongInt;
 cDamagePercent  : LongInt;
 cMineDudPercent : LongWord;
 cTemplateFilter : LongInt;
-cMapGen         : LongInt;
+cFeatureSize    : LongInt;
+cMapGen         : TMapGen;
 cRopePercent    : LongWord;
 cGetAwayTime    : LongWord;
+cAdvancedMapGenMode: boolean;
 cHedgehogTurnTime: Longword;
 cMinesTime       : LongInt;
 cMaxAIThinkTime  : Longword;
 cWaterLine       : LongInt;
 cGearScrEdgesDist: LongInt;
 isAudioMuted     : boolean;
 // originally typed consts
-ExplosionBorderColor: LongWord;
+ExplosionBorderColorR,
+ExplosionBorderColorG,
+ExplosionBorderColorB,
+ExplosionBorderColorNoA,
+ExplosionBorderColor:  LongWord;
 IceColor            : LongWord;
 IceEdgeColor        : LongWord;
 WaterOpacity: byte;
 SDWaterOpacity: byte;
 GrayScale: Boolean;
 LAND_WIDTH       : LongInt;
 LAND_HEIGHT      : LongInt;
 LAND_WIDTH_MASK  : LongWord;
 LAND_HEIGHT_MASK : LongWord;
+ChefHatTexture : PTexture;
 CrosshairTexture : PTexture;
 GenericHealthTexture : PTexture;
 cLeftScreenBorder     : LongInt;
 cRightScreenBorder    : LongInt;
 cScreenSpace          : Longword;
 cCaseFactor     : Longword;
 cLandMines      : Longword;
+cAirMines       : Longword;
 cExplosives     : Longword;
 cScriptName     : shortstring;
+cScriptParam    : shortstring;
 cSeed           : shortstring;
 cVolumeDelta    : LongInt;
 cHasFocus       : boolean;
 cInactDelay     : Longword;
 CrosshairX      : LongInt;
 CrosshairY      : LongInt;
 CursorMovementX : LongInt;
 CursorMovementY : LongInt;
+cWaveHeight     : LongInt;
 cDrownSpeed     : hwFloat;
 cDrownSpeedf    : real;
 cMaxWindSpeed   : hwFloat;
 cWindSpeed      : hwFloat;
 cWindSpeedf     : real;
 cElastic        : hwFloat;
 cGravity        : hwFloat;
 cGravityf       : real;
+cBuildMaxDist   : LongInt;
 cDamageModifier : hwFloat;
 cLaserSighting  : boolean;
 cVampiric       : boolean;
 cArtillery      : boolean;
 WeaponTooltipTex: PTexture;
 AmmoMenuInvalidated: boolean;
-AmmoRect		: TSDL_Rect;
+AmmoRect        : TSDL_Rect;
 HHTexture       : PTexture;
 cMaxZoomLevel   : real;
 cMinZoomLevel   : real;
 cZoomDelta      : real;
 cMinMaxZoomLevelDelta : real;
 flagMakeCapture : boolean;
+flagDumpLand    : boolean;
 InitStepsFlags  : Longword;
 RealTicks       : Longword;
 AttackBar       : LongInt;
-WaterColorArray : array[0..3] of HwColor4f;
+WaterColorArray : array[0..7] of HwColor4f;
-SDWaterColorArray : array[0..3] of HwColor4f;
+SDWaterColorArray : array[0..7] of HwColor4f;
 SDTint          : LongInt;
 TargetCursorPoint     : TPoint;
 CursorPoint           : TPoint;
 TargetPoint           : TPoint;
 disableLandBack : boolean;
 WorldDx: LongInt;
 WorldDy: LongInt;
+SpeechHogNumber: LongInt;
+// for tracking the limits of the visible grid based on cScaleFactor
+ViewLeftX, ViewRightX, ViewBottomY, ViewTopY, ViewWidth, ViewHeight: LongInt;
+// for debugging the view limits visually
+cViewLimitsDebug: boolean;
+dirtyLandTexCount: LongInt;
 hiTicks: Word;
 LuaGoals        : shortstring;
 LuaTemplateNumber : LongWord;
-LastVoice : TVoice = ( snd: sndNone; voicepack: nil );
+LastVoice : TVoice;
 mobileRecord: TMobileRecord;
+MaxTextureSize: LongInt;
+ChatPasteBuffer: shortstring;
 /////////////////////////////////////
 //Buttons
 {$IFDEF USE_TOUCH_INTERFACE}
 buttonScale: GLFloat;
 {$ENDIF}
 var
 // these consts are here because they would cause circular dependencies in uConsts/uTypes
-cPathz: array[TPathType] of shortstring = (
+cPathz: array[TPathType] of shortstring;
+const
+cPathzInit: array[TPathType] of shortstring = (
 '',                              // ptNone
-'/',                             // ptData
+'//',                            // ptData
 '/Graphics',                     // ptGraphics
 '/Themes',                       // ptThemes
 '/Themes/Bamboo',                // ptCurrTheme
 '/Teams',                        // ptTeams
 '/Maps',                         // ptMaps
 '/Sounds/voices',                // ptVoices
 '/Graphics/Hats',                // ptHats
 '/Graphics/Flags',               // ptFlags
 '/Missions/Maps',                // ptMissionMaps
 '/Graphics/SuddenDeath',         // ptSuddenDeath
-'/Graphics/Buttons'              // ptButton
+'/Graphics/Buttons',             // ptButton
+'/Shaders'                       // ptShaders
 );
-Fontz: array[THWFont] of THHFont = (
+var
+Fontz: array[THWFont] of THHFont;
+const
+FontzInit: array[THWFont] of THHFont = (
 (Handle: nil;
 Height: 12;
 style: TTF_STYLE_NORMAL;
 Name: 'DejaVuSans-Bold.ttf'),
 (Handle: nil;
 Name: 'wqy-zenhei.ttc')
 {$ENDIF}
 );
 var
-SpritesData: array[TSprite] of record
+SpritesData: array[TSprite] of TSpriteData;
-FileName: string[15];
-Path, AltPath: TPathType;
+const
-Texture: PTexture;
+SpritesDataInit: array[TSprite] of TSpriteData = (
-Surface: PSDL_Surface;
-Width, Height, imageWidth, imageHeight: LongInt;
-saveSurf: boolean;
-priority: GLfloat;
-getDimensions, getImageDimensions: boolean;
-end = (
 (FileName:  'BlueWater'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;
 Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: true; getImageDimensions: true),// sprWater
 (FileName:     'Clouds'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;
 Width: 256; Height:128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true),// sprCloud
 (FileName:       'Bomb'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
 (FileName:      'Flame'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
 Width:  16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprFlame
 (FileName:   'horizont'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;
 Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprHorizont
 (FileName:  'horizontL'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;
-Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprHorizont
+Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprHorizontL
 (FileName:  'horizontR'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;
-Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprHorizont
+Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprHorizontR
 (FileName:        'Sky'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;
 Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprSky
 (FileName:       'SkyL'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;
-Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprSky
+Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprSkyL
 (FileName:       'SkyR'; Path: ptCurrTheme;AltPath: ptNone; Texture: nil; Surface: nil;
-Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprSky
+Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: true; getImageDimensions: true),// sprSkyR
 (FileName:   'Slot'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: true; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprAMSlot
 (FileName:      'Ammos'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
 Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: true; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprAMAmmos
 (FileName:   'Ammos_bw'; Path: ptAmmoMenu; AltPath: ptNone; Texture: nil; Surface: nil;
 (FileName:      'WindR'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
 Width:  80; Height: 13; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprWindR
 {$IFDEF USE_TOUCH_INTERFACE}
 (FileName: 'firebutton'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 128; Height: 128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprFireButton
-(FileName: 'arrowUp'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
+(FileName: 'arrowup'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 100; Height: 100; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprArrowUp
-(FileName: 'arrowDown'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
+(FileName: 'arrowdown'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 100; Height: 100; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprArrowDown
-(FileName: 'arrowLeft'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
+(FileName: 'arrowleft'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 100; Height: 100; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprArrowLeft
-(FileName: 'arrowRight'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
+(FileName: 'arrowright'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 100; Height: 100; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprArrowRight
 (FileName: 'forwardjump'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 128; Height: 128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprAMWidget
 (FileName: 'backjump'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 128; Height: 128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprJumpWidget
 (FileName: 'pause'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 120; Height: 100; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprPauseButton
-(FileName: 'pause'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;//TODO correct image
+(FileName: 'timerbutton'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
-Width: 120; Height: 128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprTimerButton
+Width: 128; Height: 128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprTimerButton
-(FileName: 'forwardjump'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;//TODO correct image
+(FileName: 'targetbutton'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
-Width: 120; Height: 128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprTargetButton
+Width: 128; Height: 128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprTargetButton
+(FileName: 'switchbutton'; Path: ptButtons; AltPath: ptNone; Texture: nil; Surface: nil;
+Width: 128; Height: 128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true), // sprSwitchButton
 {$ENDIF}
 (FileName:      'Flake'; Path:ptCurrTheme; AltPath: ptNone; Texture: nil; Surface: nil;
 Width:  64; Height: 64; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprFlake
 (FileName:     'amRope'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
 Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprHandRope
 Width: 256; Height:128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true),// sprSDCloud
 (FileName:   'SDSplash'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil;
 Width:  80; Height: 50; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprSDSplash
 (FileName:  'SDDroplet'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil;
 Width:  16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprSDDroplet
-(FileName:  'TARDIS'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
+(FileName:  'Timebox'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
-Width:  48; Height: 79; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprTardis
+Width:  50; Height: 81; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprTardis
 (FileName:  'slider'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 3; Height: 17; imageWidth: 3; imageHeight: 17; saveSurf: false; priority: tpLow; getDimensions: false; getImageDimensions: false), // sprSlider
 (FileName:  'botlevels'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 22; Height: 15; imageWidth: 22; imageHeight: 15; saveSurf: true; priority: tpLow; getDimensions: false; getImageDimensions: false), // sprBotlevels
 (FileName:  'amCleaver'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
 (FileName:  'amFrozenHog'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
 Width: 64; Height: 64; imageWidth: 64; imageHeight: 64; saveSurf: false; priority: tpLow; getDimensions: false; getImageDimensions: false), // sprFrozenHog
 (FileName:   'amRubber'; Path: ptCurrTheme; AltPath: ptGraphics; Texture: nil; Surface: nil;
 Width: 160; Height:160; imageWidth: 0; imageHeight: 0; saveSurf:  true; priority: tpMedium; getDimensions: false; getImageDimensions: true), // sprAmRubber
 (FileName:  'boing'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
-Width: 101; Height: 97; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpLow; getDimensions: false; getImageDimensions: false) // sprBoing
+Width: 101; Height: 97; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpLow; getDimensions: false; getImageDimensions: false), // sprBoing
+(FileName:       'custom1'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;
+Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: true; priority: tpLow; getDimensions: true; getImageDimensions: true), // sprCustom1
+(FileName:       'custom2'; Path: ptCurrTheme;AltPath: ptGraphics; Texture: nil; Surface: nil;
+Width:   0; Height:  0; imageWidth: 0; imageHeight: 0; saveSurf: true; priority: tpLow; getDimensions: true; getImageDimensions: true), // sprCustom2
+(FileName:      'AirMine'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
+Width:  32; Height: 32; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true), // sprAirMine
+(FileName:  'amAirMine'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
+Width:  64; Height: 64; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true) // sprHandAirMine
 );
 const
 Wavez: array [TWave] of record
 Sprite: TSprite;
 (Sprite: sprLemonade; FramesCount: 24; Interval: 125; cmd: '/ilovelotsoflemonade'; Voice: sndNone; VoiceDelay: 0),
 (Sprite:    sprShrug; FramesCount: 24; Interval: 125; cmd: '/shrug'; Voice: sndNone; VoiceDelay: 0),
 (Sprite:   sprJuggle; FramesCount: 49; Interval:  38; cmd: '/juggle'; Voice: sndNone; VoiceDelay: 0)
 );
-var
+type
-Ammoz: array [TAmmoType] of record
+TAmmozRec = record
 NameId: TAmmoStrId;
 NameTex: PTexture;
 Probability, NumberInCase: Longword;
 Ammo: TAmmo;
 Slot: 0..cMaxSlotIndex;
 TimeAfterTurn: Longword;
 minAngle, maxAngle: Longword;
 isDamaging: boolean;
-SkipTurns: Longword;
+SkipTurns: LongWord;
 PosCount: Longword;
 PosSprite: TSprite;
 ejectX, ejectY: Longint;
-end = (
+end;
+var
+Ammoz: array [TAmmoType] of TAmmozRec;
+const
+AmmozInit: array [TAmmoType] of TAmmozRec = (
 (NameId: sidNothing;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 0;
 Ammo: (Propz: ammoprop_NoCrosshair or ammoprop_DontHold or ammoprop_Effect;
 // Grenade
 (NameId: sidGrenade;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Timerable or
 ammoprop_Power or
 ammoprop_AltUse or
 ammoprop_SetBounce or
 ammoprop_NeedUpDown;
 Count: AMMO_INFINITE;
 NumPerTurn: 0;
 Timer: 3000;
 // ClusterBomb
 (NameId: sidClusterBomb;
 NameTex: nil;
 Probability: 100;
 NumberInCase: 3;
 Ammo: (Propz: ammoprop_Timerable or
 ammoprop_Power or
 ammoprop_AltUse or
 ammoprop_SetBounce or
 ammoprop_NeedUpDown;
 Count: 5;
 NumPerTurn: 0;
 Timer: 3000;
 // Bazooka
 (NameId: sidBazooka;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Power or
 ammoprop_AltUse or
 ammoprop_NeedUpDown;
 Count: AMMO_INFINITE;
 NumPerTurn: 0;
 Timer: 0;
 // Bee
 (NameId: sidBee;
 NameTex: nil;
 Probability: 100;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Power or
 ammoprop_NeedTarget or
 ammoprop_DontHold or
 ammoprop_NeedUpDown;
 Count: 2;
 NumPerTurn: 0;
 Timer: 0;
 // PickHammer
 (NameId: sidPickHammer;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_ForwMsgs or
 ammoprop_AttackInMove or
 ammoprop_NoCrosshair or
 ammoprop_DontHold;
 Count: 2;
 NumPerTurn: 0;
 Timer: 0;
 Pos: 0;
 // Skip
 (NameId: sidSkip;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_NoCrosshair or
+ammoprop_AttackInMove or
 ammoprop_DontHold;
 Count: AMMO_INFINITE;
 NumPerTurn: 0;
 Timer: 0;
 Pos: 0;
 // Mine
 (NameId: sidMine;
 NameTex: nil;
 Probability: 100;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_NoCrosshair or
 ammoprop_AttackInMove or
 ammoprop_DontHold or
 ammoprop_AltUse or
 ammoprop_SetBounce;
 Count: 2;
 NumPerTurn: 0;
 Timer: 0;
 Pos: 0;
 // Dynamite
 (NameId: sidDynamite;
 NameTex: nil;
 Probability: 100;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_NoCrosshair or
 ammoprop_AttackInMove or
 ammoprop_DontHold or
 ammoprop_AltUse;
 Count: 1;
 NumPerTurn: 0;
 Timer: 0;
 Pos: 0;
 // FirePunch
 (NameId: sidFirePunch;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_NoCrosshair or
 ammoprop_ForwMsgs or
 ammoprop_AttackInMove;
 Count: AMMO_INFINITE;
 NumPerTurn: 0;
 Timer: 0;
 Pos: 0;
 // Mortar
 (NameId: sidMortar;
 NameTex: nil;
 Probability: 100;
 NumberInCase: 4;
-Ammo: (Propz: 0;
+Ammo: (Propz: ammoprop_NeedUpDown;
 Count: 4;
 NumPerTurn: 0;
 Timer: 0;
 Pos: 0;
 AmmoType: amMortar;
 // Kamikaze
 (NameId: sidKamikaze;
 NameTex: nil;
 Probability: 100;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_ForwMsgs or
 ammoprop_DontHold or
 ammoprop_NeedUpDown or
 ammoprop_AttackInMove;
 Count: 1;
 NumPerTurn: 0;
 Timer: 0;
 // Cake
 (NameId: sidCake;
 NameTex: nil;
 Probability: 100;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_ForwMsgs or
 ammoprop_NoCrosshair or
 ammoprop_DontHold or
 ammoprop_Track;
 Count: 1;
 NumPerTurn: 0;
 Timer: 0;
 // Seduction
 (NameId: sidSeduction;
 NameTex: nil;
 Probability: 100;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_ForwMsgs or
 ammoprop_DontHold or
 ammoprop_NoCrosshair;
 Count: 1;
 NumPerTurn: 0;
 Timer: 0;
 // Watermelon
 (NameId: sidWatermelon;
 NameTex: nil;
 Probability: 400;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Timerable or
 ammoprop_Power or
 ammoprop_NeedUpDown or
 ammoprop_AltUse;
 Count: 0;
 NumPerTurn: 0;
 Timer: 3000;
 // HellishBomb ("Hellish Hand-Grenade")
 (NameId: sidHellishBomb;
 NameTex: nil;
 Probability: 400;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Power or
 ammoprop_NeedUpDown or
 ammoprop_AltUse;
 Count: 0;
 NumPerTurn: 0;
 Timer: 5000;
 // Drill ("Drill Rocket")
 (NameId: sidDrill;
 NameTex: nil;
 Probability: 300;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Power or
 ammoprop_NeedUpDown or
 ammoprop_AltUse;
 Count: AMMO_INFINITE;
 NumPerTurn: 0;
 Timer: 0;
 // Ballgun
 (NameId: sidBallgun;
 NameTex: nil;
 Probability: 400;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_ForwMsgs or
 ammoprop_NeedUpDown or
 ammoprop_DontHold;
 Count: AMMO_INFINITE;
 NumPerTurn: 0;
 Timer: 5001;
 // Molotov
 (NameId: sidMolotov;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Power or
 ammoprop_NeedUpDown or
 ammoprop_AltUse;
 Count: AMMO_INFINITE;
 NumPerTurn: 0;
 Timer: 3000;
 // GasBomb
 (NameId: sidGasBomb;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Timerable or
 ammoprop_Power or
 ammoprop_AltUse or
 ammoprop_NeedUpDown or
 ammoprop_SetBounce;
 Count: AMMO_INFINITE;
 NumPerTurn: 0;
 Timer: 3000;
 // Flamethrower
 (NameId: sidFlamethrower;
 NameTex: nil;
 Probability: 20;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_ForwMsgs or
 ammoprop_NeedUpDown or
 ammoprop_DontHold;
 Count: 1;
 NumPerTurn: 0;
 Timer: 5001;
 // Snowball/Mudball
 (NameId: sidSnowball;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_Power or
 ammoprop_AltUse or
+ammoprop_NeedUpDown or
 ammoprop_NoRoundEnd;
 Count: 2;
 NumPerTurn: 0;
 Timer: 0;
 Pos: 0;
 maxAngle: 0;
 isDamaging: false;
 SkipTurns: 0;
 PosCount: 1;
 PosSprite: sprWater;
 ejectX: 0;
 ejectY: 0),
 // Tardis
 (NameId: sidTardis;
 NameTex: nil;
 PosCount: 2;
 PosSprite: sprAmTeleport;
 ejectX: 0;
 ejectY: 0),
 // Structure
 {
 (NameId: sidStructure;
 NameTex: nil;
 Probability: 0;
 NumberInCase: 1;
 PosCount: 1;
 PosSprite: sprWater;
 ejectX: 0;
 ejectY: 0),
 }
 // Land Gun
 (NameId: sidLandGun;
 NameTex: nil;
 Probability: 20;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_NoRoundEnd or
+ammoprop_NeedUpDown or
 ammoprop_Utility;
 Count: 1;
 NumPerTurn: 0;
 Timer: 5001;
 Pos: 0;
 // Freezer
 (NameId: sidIceGun;
 NameTex: nil;
 Probability: 20;
 NumberInCase: 1;
 Ammo: (Propz: ammoprop_ForwMsgs or
 ammoprop_NeedUpDown or
 ammoprop_DontHold;
 Count: 1;
 NumPerTurn: 0;
 Timer: 5001;
 maxAngle: 0;
 isDamaging: false;
 SkipTurns: 0;
 PosCount: 4;
 PosSprite: sprAmRubber;
+ejectX: 0;
+ejectY: 0),
+// Air Mine
+(NameId: sidAirMine;
+NameTex: nil;
+Probability: 100;
+NumberInCase: 1;
+Ammo: (Propz: ammoprop_Power or
+ammoprop_AltUse or
+ammoprop_NeedUpDown;
+Count: 2;
+NumPerTurn: 0;
+Timer: 0;
+Pos: 0;
+AmmoType: amAirMine;
+AttackVoice: sndLaugh;
+Bounciness: 1000);
+Slot: 5;
+TimeAfterTurn: 5000;
+minAngle: 0;
+maxAngle: 0;
+isDamaging: true;
+SkipTurns: 0;
+PosCount: 1;
+PosSprite: sprWater;
 ejectX: 0;
 ejectY: 0)
 );
 var
 PauseTexture,
 AFKTexture,
 SyncTexture,
 ConfirmTexture: PTexture;
 cScaleFactor: GLfloat;
+cStereoDepth: GLfloat;
 SupportNPOTT: Boolean;
 Step: LongInt;
 MissionIcons: PSDL_Surface;
 ropeIconTex: PTexture;
 DefaultBinds : TBinds;
 lastTurnChecksum : Longword;
+mModelview: TMatrix4x4f;
+mProjection: TMatrix4x4f;
+vBuffer: GLuint; // vertex buffer
+tBuffer: GLuint; // texture coords buffer
+cBuffer: GLuint; // color buffer
+uCurrentMVPLocation: GLint;
+uMainMVPLocation: GLint;
+uMainTintLocation: GLint;
+uWaterMVPLocation: GLint;
+aVertex: GLint;
+aTexCoord: GLint;
+aColor: GLint;
 var trammo:  array[TAmmoStrId] of ansistring;   // name of the weapon
 trammoc: array[TAmmoStrId] of ansistring;   // caption of the weapon
 trammod: array[TAmmoStrId] of ansistring;   // description of the weapon
 trmsg:   array[TMsgStrId]  of ansistring;   // message of the event
 trgoal:  array[TGoalStrId] of ansistring;   // message of the goal
+cTestLua : Boolean;
 procedure preInitModule;
 procedure initModule;
 procedure freeModule;
 implementation
-uses strutils;
 procedure preInitModule;
 begin
 // initialisation flags - they are going to be overwritten by program args
 cStereoMode     := smNone;
 GrayScale       := false;
 PathPrefix      := './';
 GameType        := gmtLocal;
 cOnlyStats      := False;
+cScriptName     := '';
+cScriptParam    := '';
+cTestLua        := False;
 {$IFDEF USE_VIDEO_RECORDING}
 RecPrefix          := '';
 cAVFormat          := '';
 cVideoCodec        := '';
 cVideoFramerateNum := 0;
 cVideoFramerateDen := 0;
 cVideoQuality      := 0;
 cAudioCodec        := '';
 {$ENDIF}
+cTagsMask:= htTeamName or htName or htHealth;
 end;
 procedure initModule;
+var s: shortstring;
+i: integer;
 begin
-// TODO: we could just have one cLocale variables and drop strutils
+// init LastVoice
-cLocale:= ExtractDelimited(1, cLocaleFName, StdWordDelims);
+LastVoice.snd:= sndNone;
+LastVoice.voicepack:= nil;
+// init arrays
+Move(cPathzInit, cPathz, sizeof(cPathz));
+Move(FontzInit, Fontz, sizeof(Fontz));
+Move(SpritesDataInit, SpritesData, sizeof(SpritesData));
+Move(AmmozInit, Ammoz, sizeof(Ammoz));
+cLocale:= cLocaleFName;
+SplitByChar(cLocale, s, '.');
 cFlattenFlakes      := false;
 cFlattenClouds      := false;
 cIce                := false;
 cSnow               := false;
 LAND_HEIGHT:= 2048;
 LAND_WIDTH_MASK:= $FFFFF000;
 LAND_HEIGHT_MASK:= $FFFFF800
 end;
-SDWaterColorArray[0].r := 182;
+// default sudden death water
-SDWaterColorArray[0].g := 144;
-SDWaterColorArray[0].b := 201;
+// deep water
+SDWaterColorArray[0].r := 150;
+SDWaterColorArray[0].g := 112;
+SDWaterColorArray[0].b := 169;
 SDWaterColorArray[0].a := 255;
-SDWaterColorArray[2].r := 150;
+SDWaterColorArray[2]:= SDWaterColorArray[0];
-SDWaterColorArray[2].g := 112;
+SDWaterColorArray[4]:= SDWaterColorArray[0];
-SDWaterColorArray[2].b := 169;
+SDWaterColorArray[6]:= SDWaterColorArray[0];
-SDWaterColorArray[2].a := 255;
+// water surface
-SDWaterColorArray[1]:= SDWaterColorArray[0];
+SDWaterColorArray[1].r := 182;
-SDWaterColorArray[3]:= SDWaterColorArray[2];
+SDWaterColorArray[1].g := 144;
+SDWaterColorArray[1].b := 201;
+SDWaterColorArray[1].a := 255;
+SDWaterColorArray[3]:= SDWaterColorArray[1];
+SDWaterColorArray[5]:= SDWaterColorArray[1];
+SDWaterColorArray[7]:= SDWaterColorArray[1];
 SDWaterOpacity:= $80;
 SDTint:= $80;
+ExplosionBorderColorR:= 80;
+ExplosionBorderColorG:= 80;
+ExplosionBorderColorB:= 80;
 ExplosionBorderColor:= $FF808080;
+ExplosionBorderColorNoA:= ExplosionBorderColor and (not AMask);
 IceColor:= ($44 shl RShift) or ($97 shl GShift) or ($A9 shl BShift) or ($A0 shl AShift);
 IceEdgeColor:= ($8A shl RShift) or ($AF shl GShift) or ($B2 shl BShift) or ($FF shl AShift);
 WaterOpacity:= $80;
+cWaveHeight             := 32;
 cDrownSpeed.QWordValue  := 257698038;   // 0.06
 cDrownSpeedf            := 0.06;
 cMaxWindSpeed.QWordValue:= 1073742;     // 0.00025
 cWindSpeed.QWordValue   := 0;           // 0.0
 cWindSpeedf             := 0.0;
 cElastic                := _0_9;
 cGravity                := cMaxWindSpeed * 2;
 cGravityf               := 0.00025 * 2;
+cBuildMaxDist           := cDefaultBuildMaxDist;
 cDamageModifier         := _1;
 TargetPoint             := cTargetPointRef;
 {$IFDEF MOBILE}
 cMaxZoomLevel:= 0.5;
 cDamagePercent      := 100;
 cRopePercent        := 100;
 cGetAwayTime        := 100;
 cMineDudPercent     := 0;
 cTemplateFilter     := 0;
-cMapGen             := 0;   // MAPGEN_REGULAR
+cFeatureSize        := 50;
+cMapGen             := mgRandom;
 cHedgehogTurnTime   := 45000;
 cMinesTime          := 3000;
 cMaxAIThinkTime     := 9000;
 cCloudsNumber       := 9;
 cSDCloudsNumber     := 9;
 cHealthCaseProb     := 35;
 cHealthCaseAmount   := 25;
 cWaterRise          := 47;
 cHealthDecrease     := 5;
+cAdvancedMapGenMode := false;
 InitStepsFlags  := 0;
 RealTicks       := 0;
 AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
 cCaseFactor     := 5;  {0..9}
 cLandMines      := 4;
+cAirMines       := 0;
 cExplosives     := 2;
 GameState       := Low(TGameState);
 zoom            := cDefaultZoomLevel;
 ZoomValue       := cDefaultZoomLevel;
 WeaponTooltipTex:= nil;
 cLaserSighting  := false;
 cVampiric       := false;
 cArtillery      := false;
 flagMakeCapture := false;
+flagDumpLand    := false;
 bBetweenTurns   := false;
 bWaterRising    := false;
 isCursorVisible := false;
 isInLag         := false;
 isPaused        := false;
 isAFK           := false;
 SpeedStart      := 0;
 fastUntilLag    := false;
 fastScrolling   := false;
 autoCameraOn    := true;
-cScriptName     := '';
 cSeed           := '';
 cVolumeDelta    := 0;
 cHasFocus       := true;
 cInactDelay     := 100;
 ReadyTimeLeft   := 0;
 disableLandBack := false;
 ScreenFade      := sfNone;
 // those values still are not perfect
 cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
 cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
 cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
-vobFrameTicks:= 99999;
+dirtyLandTexCount:= 0;
+vobFrameTicks:= 0;
 vobFramesCount:= 4;
 vobCount:= 0;
 vobVelocity:= 10;
 vobFallSpeed:= 100;
-vobSDFrameTicks:= 99999;
+vobSDFrameTicks:= 0;
 vobSDFramesCount:= 4;
 vobSDCount:= 30 * cScreenSpace div LAND_WIDTH;
 vobSDVelocity:= 15;
 vobSDFallSpeed:= 250;
+{$IFDEF MOBILE}
+cMinScreenWidth  := min(cScreenWidth, 480);
+cMinScreenHeight := min(cScreenHeight, 320);
+{$ELSE}
 cMinScreenWidth  := min(cScreenWidth, 640);
 cMinScreenHeight := min(cScreenHeight, 480);
+{$ENDIF}
 cNewScreenWidth    := cScreenWidth;
 cNewScreenHeight   := cScreenHeight;
 cScreenResizeDelay := 0;
 if cFullscreenWidth = 0 then
 cFullscreenWidth:= min(cWindowedWidth, 640);
 if cFullscreenHeight = 0 then
 cFullscreenHeight:= min(cWindowedHeight, 480);
+SpeechHogNumber:= -1;
 LuaGoals:= '';
 cMapName:= '';
 LuaTemplateNumber:= 0;
 UIDisplay:= uiAll;
 LocalMessage:= 0;
+cStereoDepth:= 0;
+cViewLimitsDebug:= false;
+AprilOne := false;
+ChatPasteBuffer:= '';
+// initialize pointers to nil
+// (don't rely on implicit init of fpc, because that one only happens ONCE when used as lib)
+CurAmmoGear:= nil;
+lastGearByUID:= nil;
+GearsList:= nil;
+CurrentTeam:= nil;
+PreviousTeam:= nil;
+CurrentHedgehog:= nil;
+FollowGear:= nil;
+lastVisualGearByUID:= nil;
+ChefHatTexture:= nil;
+CrosshairTexture:= nil;
+GenericHealthTexture:= nil;
+WeaponTooltipTex:= nil;
+HHTexture:= nil;
+LandBackSurface:= nil;
+ConfirmTexture:= nil;
+MissionIcons:= nil;
+ropeIconTex:= nil;
+for i:= Low(ClansArray) to High(ClansArray) do
+begin
+ClansArray[i]:= nil;
+end;
+for i:= Low(TeamsArray) to High(TeamsArray) do
+begin
+TeamsArray[i]:= nil;
+end;
+for i:= Low(CountTexz) to High(CountTexz) do
+begin
+CountTexz[i]:= nil;
+end;
 end;
 procedure freeModule;
 begin
 end;

branch	sdl2transition
changeset 11342	ed5a6478e710
parent 11317	62287d4044e7
child 11343	9006e158a81f