hedgewars/uMisc.pas
changeset 296 607912ccc5af
parent 295 8834f3cb620e
child 300 be94799f33d2
equal deleted inserted replaced
295:8834f3cb620e 296:607912ccc5af
    36     cMaxAIThinkTime  : Longword = 5000;
    36     cMaxAIThinkTime  : Longword = 5000;
    37 
    37 
    38     cCloudsNumber    : integer = 9;
    38     cCloudsNumber    : integer = 9;
    39     cConsoleHeight   : integer = 320;
    39     cConsoleHeight   : integer = 320;
    40     cConsoleYAdd     : integer = 0; 
    40     cConsoleYAdd     : integer = 0; 
    41     cTimerInterval   : Longword = 5;
       
    42     cScreenWidth     : integer = 1024;
    41     cScreenWidth     : integer = 1024;
    43     cScreenHeight    : integer = 768;
    42     cScreenHeight    : integer = 768;
    44     cBits            : integer = 16;
    43     cBits            : integer = 16;
    45     cBitsStr         : string[2] = '16';
    44     cBitsStr         : string[2] = '16';
    46 
    45 
    69     cFullScreen   : boolean = true;
    68     cFullScreen   : boolean = true;
    70     cLocaleFName  : shortstring = 'en.txt';
    69     cLocaleFName  : shortstring = 'en.txt';
    71     cSeed         : shortstring = '';
    70     cSeed         : shortstring = '';
    72     cInitVolume   : integer = 128;
    71     cInitVolume   : integer = 128;
    73     cVolumeDelta  : integer = 0;
    72     cVolumeDelta  : integer = 0;
       
    73     cTimerInterval   : Longword = 5;
    74 
    74 
    75 const
    75 const
    76     cMaxPower     = 1500;
    76     cMaxPower     = 1500;
    77     cMaxAngle     = 2048;
    77     cMaxAngle     = 2048;
    78     cPowerDivisor = 1500;
    78     cPowerDivisor = 1500;