hedgewars: comparison hedgewars/uVariables.pas

equal deleted inserted replaced

-:fcbdee9cdd74
+:b894922d58cc
 {$INCLUDE "options.inc"}
 unit uVariables;
 interface
-uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uUtils, uMatrix;
+uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uUtils{$IFDEF GL2}, uMatrix{$ENDIF};
 var
 /////// init flags ///////
 cMinScreenWidth    : LongInt;
 cMinScreenHeight   : LongInt;
 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
 '/Graphics',                     // ptGraphics
 '/Themes',                       // ptThemes
 '/Themes/Bamboo',                // ptCurrTheme
 '/Shaders',                      // ptShaders
 '/Config'                        // ptConfig
 );
 var
-Fontz: array[THWFont] of THHFont = (
+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 TSpriteData = (
+SpritesData: array[TSprite] of TSpriteData;
+const
+SpritesDataInit: array[TSprite] of TSpriteData = (
 (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:      '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
 (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
+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;
 isDamaging: boolean;
 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;
 // 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;
 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;
 (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;
 cTagsMask:= htTeamName or htName or htHealth;
 end;
 procedure initModule;
 var s: shortstring;
+i: integer;
 begin
+// init LastVoice
+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;
 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;
 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	qmlfrontend
changeset 11403	b894922d58cc
parent 11071	3851ce4f2061
parent 11363	9006e158a81f
child 11481	caa1e84c3ac2