hedgewars/uVariables.pas
changeset 7027 f264ad9d8965
parent 7025 831a25c74c7b
child 7028 0f60591f3a16
equal deleted inserted replaced
7026:8d1724e1337e 7027:f264ad9d8965
    48     cAltDamage      : boolean     = true;
    48     cAltDamage      : boolean     = true;
    49     cReducedQuality : LongWord    = rqNone;
    49     cReducedQuality : LongWord    = rqNone;
    50     UserNick        : shortstring = '';
    50     UserNick        : shortstring = '';
    51     recordFileName  : shortstring = '';
    51     recordFileName  : shortstring = '';
    52     cReadyDelay     : Longword    = 5000;
    52     cReadyDelay     : Longword    = 5000;
    53     cLogfileBase    : shortstring = 'debug';
       
    54     cStereoMode     : TStereoMode = smNone;
    53     cStereoMode     : TStereoMode = smNone;
    55     cOnlyStats      : boolean = False;
    54     cOnlyStats      : boolean = False;
    56 //////////////////////////
    55 //////////////////////////
    57     cMapName        : shortstring = '';
    56     cMapName        : shortstring = '';
    58 
    57 
    59     alsoShutdownFrontend: boolean = false;
       
    60 
       
    61     isCursorVisible : boolean;
    58     isCursorVisible : boolean;
    62     isInLag         : boolean;
    59     isInLag         : boolean;
    63     isPaused        : boolean;
    60     isPaused        : boolean;
    64 
       
    65     isInMultiShoot  : boolean;
    61     isInMultiShoot  : boolean;
    66     isSpeed         : boolean;
    62     isSpeed         : boolean;
    67     isFirstFrame    : boolean;
       
    68 
    63 
    69     fastUntilLag    : boolean;
    64     fastUntilLag    : boolean;
    70     autoCameraOn    : boolean;
    65     autoCameraOn    : boolean;
    71 
    66 
       
    67     GameTicks       : LongWord;
    72     GameState       : TGameState;
    68     GameState       : TGameState;
    73     GameType        : TGameType;
    69     GameType        : TGameType;
    74     InputMask       : LongWord;
    70     InputMask       : LongWord;
    75     GameFlags       : Longword;
    71     GameFlags       : Longword;
    76     TurnTimeLeft    : Longword;
    72     TurnTimeLeft    : Longword;
   100     zoom             : GLfloat;
    96     zoom             : GLfloat;
   101     ZoomValue        : GLfloat;
    97     ZoomValue        : GLfloat;
   102 
    98 
   103     cWaterLine       : Word;
    99     cWaterLine       : Word;
   104     cGearScrEdgesDist: LongInt;
   100     cGearScrEdgesDist: LongInt;
   105 
       
   106     GameTicks   : LongWord;
       
   107 
   101 
   108     // originally typed consts
   102     // originally typed consts
   109     CharArray: array[byte] of Char;
   103     CharArray: array[byte] of Char;
   110     LastTint: Longword;
   104     LastTint: Longword;
   111     SocketString: shortstring;
   105     SocketString: shortstring;
   191     disableLandBack : boolean;
   185     disableLandBack : boolean;
   192     conversionFormat: PSDL_PixelFormat;
   186     conversionFormat: PSDL_PixelFormat;
   193 
   187 
   194 {$IFDEF SDL13}
   188 {$IFDEF SDL13}
   195     SDLwindow       : PSDL_Window;
   189     SDLwindow       : PSDL_Window;
   196     SDLGLcontext    : PSDL_GLContext;
       
   197 {$ENDIF}
   190 {$ENDIF}
   198 
   191 
   199     WorldDx: LongInt;
   192     WorldDx: LongInt;
   200     WorldDy: LongInt;
   193     WorldDy: LongInt;
   201 
   194 
  2603     isInLag         := false;
  2596     isInLag         := false;
  2604     isPaused        := false;
  2597     isPaused        := false;
  2605     isInMultiShoot  := false;
  2598     isInMultiShoot  := false;
  2606     isSpeed         := false;
  2599     isSpeed         := false;
  2607     fastUntilLag    := false;
  2600     fastUntilLag    := false;
  2608     isFirstFrame    := true;
       
  2609     autoCameraOn    := true;
  2601     autoCameraOn    := true;
  2610     cScriptName     := '';
  2602     cScriptName     := '';
  2611     cSeed           := '';
  2603     cSeed           := '';
  2612     cVolumeDelta    := 0;
  2604     cVolumeDelta    := 0;
  2613     cHasFocus       := true;
  2605     cHasFocus       := true;
  2618 
  2610 
  2619     ScreenFade      := sfNone;
  2611     ScreenFade      := sfNone;
  2620 
  2612 
  2621 {$IFDEF SDL13}
  2613 {$IFDEF SDL13}
  2622     SDLwindow       := nil;
  2614     SDLwindow       := nil;
  2623     SDLGLcontext    := nil;
       
  2624 {$ENDIF}
  2615 {$ENDIF}
  2625 
  2616 
  2626     // those values still are not perfect
  2617     // those values still are not perfect
  2627     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2618     cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
  2628     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
  2619     cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);