hedgewars/uVariables.pas
branchqmlfrontend
changeset 11071 3851ce4f2061
parent 10886 99273b7afbff
parent 11058 b91667fd6f20
child 11408 b894922d58cc
equal deleted inserted replaced
11050:9b7c8c5a94e0 11071:3851ce4f2061
     1 (*
     1 (*
     2  * Hedgewars, a free turn based strategy game
     2  * Hedgewars, a free turn based strategy game
     3  * Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com>
     3  * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com>
     4  *
     4  *
     5  * This program is free software; you can redistribute it and/or modify
     5  * This program is free software; you can redistribute it and/or modify
     6  * it under the terms of the GNU General Public License as published by
     6  * it under the terms of the GNU General Public License as published by
     7  * the Free Software Foundation; version 2 of the License
     7  * the Free Software Foundation; version 2 of the License
     8  *
     8  *
   174     cWindSpeed      : hwFloat;
   174     cWindSpeed      : hwFloat;
   175     cWindSpeedf     : real;
   175     cWindSpeedf     : real;
   176     cElastic        : hwFloat;
   176     cElastic        : hwFloat;
   177     cGravity        : hwFloat;
   177     cGravity        : hwFloat;
   178     cGravityf       : real;
   178     cGravityf       : real;
       
   179     cBuildMaxDist   : LongInt;
   179     cDamageModifier : hwFloat;
   180     cDamageModifier : hwFloat;
   180     cLaserSighting  : boolean;
   181     cLaserSighting  : boolean;
   181     cVampiric       : boolean;
   182     cVampiric       : boolean;
   182     cArtillery      : boolean;
   183     cArtillery      : boolean;
   183     WeaponTooltipTex: PTexture;
   184     WeaponTooltipTex: PTexture;
   681             Width: 256; Height:128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true),// sprSDCloud
   682             Width: 256; Height:128; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHigh; getDimensions: false; getImageDimensions: true),// sprSDCloud
   682             (FileName:   'SDSplash'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil;
   683             (FileName:   'SDSplash'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil;
   683             Width:  80; Height: 50; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprSDSplash
   684             Width:  80; Height: 50; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpMedium; getDimensions: false; getImageDimensions: true),// sprSDSplash
   684             (FileName:  'SDDroplet'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil;
   685             (FileName:  'SDDroplet'; Path: ptCurrTheme; AltPath: ptSuddenDeath; Texture: nil; Surface: nil;
   685             Width:  16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprSDDroplet
   686             Width:  16; Height: 16; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprSDDroplet
   686             (FileName:  'TARDIS'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   687             (FileName:  'Timebox'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   687             Width:  48; Height: 79; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprTardis
   688             Width:  50; Height: 81; imageWidth: 0; imageHeight: 0; saveSurf: false; priority: tpHighest; getDimensions: false; getImageDimensions: true),// sprTardis
   688             (FileName:  'slider'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   689             (FileName:  'slider'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   689             Width: 3; Height: 17; imageWidth: 3; imageHeight: 17; saveSurf: false; priority: tpLow; getDimensions: false; getImageDimensions: false), // sprSlider
   690             Width: 3; Height: 17; imageWidth: 3; imageHeight: 17; saveSurf: false; priority: tpLow; getDimensions: false; getImageDimensions: false), // sprSlider
   690             (FileName:  'botlevels'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   691             (FileName:  'botlevels'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
   691             Width: 22; Height: 15; imageWidth: 22; imageHeight: 15; saveSurf: true; priority: tpLow; getDimensions: false; getImageDimensions: false), // sprBotlevels
   692             Width: 22; Height: 15; imageWidth: 22; imageHeight: 15; saveSurf: true; priority: tpLow; getDimensions: false; getImageDimensions: false), // sprBotlevels
   692             (FileName:  'amCleaver'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
   693             (FileName:  'amCleaver'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
  2558     cWindSpeed.QWordValue   := 0;           // 0.0
  2559     cWindSpeed.QWordValue   := 0;           // 0.0
  2559     cWindSpeedf             := 0.0;
  2560     cWindSpeedf             := 0.0;
  2560     cElastic                := _0_9;
  2561     cElastic                := _0_9;
  2561     cGravity                := cMaxWindSpeed * 2;
  2562     cGravity                := cMaxWindSpeed * 2;
  2562     cGravityf               := 0.00025 * 2;
  2563     cGravityf               := 0.00025 * 2;
       
  2564     cBuildMaxDist           := cDefaultBuildMaxDist;
  2563     cDamageModifier         := _1;
  2565     cDamageModifier         := _1;
  2564     TargetPoint             := cTargetPointRef;
  2566     TargetPoint             := cTargetPointRef;
  2565 
  2567 
  2566 {$IFDEF MOBILE}
  2568 {$IFDEF MOBILE}
  2567     cMaxZoomLevel:= 0.5;
  2569     cMaxZoomLevel:= 0.5;
  2613     InitStepsFlags  := 0;
  2615     InitStepsFlags  := 0;
  2614     RealTicks       := 0;
  2616     RealTicks       := 0;
  2615     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
  2617     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
  2616     cCaseFactor     := 5;  {0..9}
  2618     cCaseFactor     := 5;  {0..9}
  2617     cLandMines      := 4;
  2619     cLandMines      := 4;
  2618     cAirMines       := 4;
  2620     cAirMines       := 0;
  2619     cExplosives     := 2;
  2621     cExplosives     := 2;
  2620 
  2622 
  2621     GameState       := Low(TGameState);
  2623     GameState       := Low(TGameState);
  2622     zoom            := cDefaultZoomLevel;
  2624     zoom            := cDefaultZoomLevel;
  2623     ZoomValue       := cDefaultZoomLevel;
  2625     ZoomValue       := cDefaultZoomLevel;