hedgewars/uMisc.pas
changeset 75 d2b737858ff7
parent 74 42257fee61ae
child 79 29b477319854
equal deleted inserted replaced
74:42257fee61ae 75:d2b737858ff7
    46     GameType      : TGameType = gmtLocal;
    46     GameType      : TGameType = gmtLocal;
    47     GameFlags     : Longword = 0;
    47     GameFlags     : Longword = 0;
    48     TurnTimeLeft  : Longword = 0;
    48     TurnTimeLeft  : Longword = 0;
    49     cHedgehogTurnTime: Longword = 30000;
    49     cHedgehogTurnTime: Longword = 30000;
    50 
    50 
    51     cLandYShift      : integer = 1088;
       
    52     cCloudsNumber    : integer = 9;
    51     cCloudsNumber    : integer = 9;
    53     cConsoleHeight   : integer = 320;
    52     cConsoleHeight   : integer = 320;
    54     cConsoleYAdd     : integer = 0; 
    53     cConsoleYAdd     : integer = 0; 
    55     cTimerInterval   : Cardinal = 5;
    54     cTimerInterval   : Cardinal = 5;
    56     cScreenWidth     : integer = 1024;
    55     cScreenWidth     : integer = 1024;
    57     cScreenHeight    : integer = 768;
    56     cScreenHeight    : integer = 768;
    58     cBits            : integer = 16;
    57     cBits            : integer = 16;
    59     cBitsStr         : string[2] = '16';
    58     cBitsStr         : string[2] = '16';
    60 
    59 
    61     cWaterLine       : integer = 1024;
    60     cWaterLine       : integer = 1024;
    62     cVisibleWater    : integer = 64;
    61     cVisibleWater    : integer = 128;
    63     cScreenEdgesDist : integer = 240;
    62     cScreenEdgesDist : integer = 240;
    64     cTeamHealthWidth : integer = 128;
    63     cTeamHealthWidth : integer = 128;
    65 
    64 
    66     GameTicks     : LongWord = 0;
    65     GameTicks     : LongWord = 0;
    67 
    66