hedgewars/uVariables.pas
changeset 14677 93429d8f6b3f
parent 14670 56831f466d1d
child 14679 4eaeba349179
equal deleted inserted replaced
14676:9377ee00f1f1 14677:93429d8f6b3f
   131     cCloudsNumber    : LongWord;
   131     cCloudsNumber    : LongWord;
   132     cSDCloudsNumber  : LongWord;
   132     cSDCloudsNumber  : LongWord;
   133 
   133 
   134     cTagsMask        : byte;
   134     cTagsMask        : byte;
   135     cPrevTagsMask    : byte;
   135     cPrevTagsMask    : byte;
   136     zoom             : GLfloat;
   136     zoom             : GLfloat; // current zoom
   137     ZoomValue        : GLfloat;
   137     ZoomValue        : GLfloat; // aimed zoom
       
   138     UserZoom         : GLfloat; // user-chosen initial and default zoom
   138 
   139 
   139     cWaterLine       : LongInt;
   140     cWaterLine       : LongInt;
   140     cGearScrEdgesDist: LongInt;
   141     cGearScrEdgesDist: LongInt;
   141     isAudioMuted     : boolean;
   142     isAudioMuted     : boolean;
   142 
   143 
   166     cRightScreenBorder    : LongInt;
   167     cRightScreenBorder    : LongInt;
   167     cScreenSpace          : Longword;
   168     cScreenSpace          : Longword;
   168 
   169 
   169     cCaseFactor     : Longword;
   170     cCaseFactor     : Longword;
   170     cMaxCaseDrops   : Longword; // Max. number of crates which can be in the game when dropping
   171     cMaxCaseDrops   : Longword; // Max. number of crates which can be in the game when dropping
       
   172 
   171     cLandMines      : Longword;
   173     cLandMines      : Longword;
   172     cAirMines       : Longword;
   174     cAirMines       : Longword;
   173     cExplosives     : Longword;
   175     cExplosives     : Longword;
   174 
   176 
   175     cScriptName     : shortstring;
   177     cScriptName     : shortstring;
  2622     cOnlyStats      := False;
  2624     cOnlyStats      := False;
  2623     cScriptName     := '';
  2625     cScriptName     := '';
  2624     cScriptParam    := '';
  2626     cScriptParam    := '';
  2625     cTestLua        := False;
  2627     cTestLua        := False;
  2626 
  2628 
       
  2629     UserZoom        := cDefaultZoomLevel;
       
  2630     zoom            := cDefaultZoomLevel;
       
  2631     ZoomValue       := cDefaultZoomLevel;
       
  2632 
       
  2633 {$IFDEF MOBILE}
       
  2634     cMaxZoomLevel:= 0.5;
       
  2635     cMinZoomLevel:= 3.5;
       
  2636     cZoomDelta:=    0.20;
       
  2637 {$ELSE}
       
  2638     cMaxZoomLevel:= 1.0;
       
  2639     cMinZoomLevel:= 3.0;
       
  2640     cZoomDelta:=    0.25;
       
  2641 {$ENDIF}
       
  2642 
  2627 {$IFDEF USE_VIDEO_RECORDING}
  2643 {$IFDEF USE_VIDEO_RECORDING}
  2628     RecPrefix          := '';
  2644     RecPrefix          := '';
  2629     cAVFormat          := '';
  2645     cAVFormat          := '';
  2630     cVideoCodec        := '';
  2646     cVideoCodec        := '';
  2631     cVideoFramerateNum := 0;
  2647     cVideoFramerateNum := 0;
  2774     cGravityf               := 0.00025 * 2;
  2790     cGravityf               := 0.00025 * 2;
  2775     cLowGravity             := false;
  2791     cLowGravity             := false;
  2776     cBuildMaxDist           := cDefaultBuildMaxDist;
  2792     cBuildMaxDist           := cDefaultBuildMaxDist;
  2777     cDamageModifier         := _1;
  2793     cDamageModifier         := _1;
  2778     TargetPoint             := cTargetPointRef;
  2794     TargetPoint             := cTargetPointRef;
  2779 
       
  2780 {$IFDEF MOBILE}
       
  2781     cMaxZoomLevel:= 0.5;
       
  2782     cMinZoomLevel:= 3.5;
       
  2783     cZoomDelta:= 0.20;
       
  2784 {$ELSE}
       
  2785     cMaxZoomLevel:= 1.0;
       
  2786     cMinZoomLevel:= 3.0;
       
  2787     cZoomDelta:= 0.25;
       
  2788     {$ENDIF}
       
  2789 
  2795 
  2790     aVertex:= 0;
  2796     aVertex:= 0;
  2791     aTexCoord:= 1;
  2797     aTexCoord:= 1;
  2792     aColor:= 2;
  2798     aColor:= 2;
  2793 
  2799 
  2842     cLandMines      := 4;
  2848     cLandMines      := 4;
  2843     cAirMines       := 0;
  2849     cAirMines       := 0;
  2844     cExplosives     := 2;
  2850     cExplosives     := 2;
  2845 
  2851 
  2846     GameState       := Low(TGameState);
  2852     GameState       := Low(TGameState);
  2847     zoom            := cDefaultZoomLevel;
       
  2848     ZoomValue       := cDefaultZoomLevel;
       
  2849     WeaponTooltipTex:= nil;
  2853     WeaponTooltipTex:= nil;
  2850     cLaserSighting  := false;
  2854     cLaserSighting  := false;
  2851     cLaserSightingSniper := false;
  2855     cLaserSightingSniper := false;
  2852     cVampiric       := false;
  2856     cVampiric       := false;
  2853     flagMakeCapture := false;
  2857     flagMakeCapture := false;