hedgewars/uMisc.pas
changeset 4153 6bd94e4c5d65
parent 4143 eb7981f34800
child 4157 f8898d6cca6e
equal deleted inserted replaced
4152:07008cb354f9 4153:6bd94e4c5d65
    74     cMinesTime       : LongInt;
    74     cMinesTime       : LongInt;
    75     cMaxAIThinkTime  : Longword;
    75     cMaxAIThinkTime  : Longword;
    76 
    76 
    77     cHealthCaseProb  : LongInt;
    77     cHealthCaseProb  : LongInt;
    78     cHealthCaseAmount: LongInt;
    78     cHealthCaseAmount: LongInt;
       
    79     cWaterRise       : LongInt;
       
    80     cHealthDecrease  : LongInt;
    79 
    81 
    80     cCloudsNumber    : LongInt;
    82     cCloudsNumber    : LongInt;
    81 
    83 
    82     cTagsMask        : byte;
    84     cTagsMask        : byte;
    83     zoom             : GLfloat;
    85     zoom             : GLfloat;
   116     cVolumeDelta    : LongInt;
   118     cVolumeDelta    : LongInt;
   117     cHasFocus       : boolean;
   119     cHasFocus       : boolean;
   118     cInactDelay     : Longword;
   120     cInactDelay     : Longword;
   119 
   121 
   120     bBetweenTurns   : boolean;
   122     bBetweenTurns   : boolean;
   121     cHealthDecrease : LongWord;
   123     bWaterRising    : boolean;
   122     bWaterRising    : Boolean;
       
   123 
   124 
   124     ShowCrosshair   : boolean;
   125     ShowCrosshair   : boolean;
   125     CursorMovementX : LongInt;
   126     CursorMovementX : LongInt;
   126     CursorMovementY : LongInt;
   127     CursorMovementY : LongInt;
   127     cDrownSpeed     : hwFloat;
   128     cDrownSpeed     : hwFloat;
   744     TrainingTimeMax     := 60000;
   745     TrainingTimeMax     := 60000;
   745     TimeTrialStartTime  := 0;
   746     TimeTrialStartTime  := 0;
   746     TimeTrialStopTime   := 0;
   747     TimeTrialStopTime   := 0;
   747     cWaterLine          := LAND_HEIGHT;
   748     cWaterLine          := LAND_HEIGHT;
   748     cGearScrEdgesDist   := 240;
   749     cGearScrEdgesDist   := 240;
   749     cHealthDecrease     := 0;
       
   750 
   750 
   751     GameFlags           := 0;
   751     GameFlags           := 0;
   752     TrainingFlags       := 0;
   752     TrainingFlags       := 0;
   753     TurnTimeLeft        := 0;
   753     TurnTimeLeft        := 0;
   754     cSuddenDTurns       := 15;
   754     cSuddenDTurns       := 15;
   761     cMinesTime          := 3000;
   761     cMinesTime          := 3000;
   762     cMaxAIThinkTime     := 9000;
   762     cMaxAIThinkTime     := 9000;
   763     cCloudsNumber       := 9;
   763     cCloudsNumber       := 9;
   764     cHealthCaseProb     := 35;
   764     cHealthCaseProb     := 35;
   765     cHealthCaseAmount   := 25;
   765     cHealthCaseAmount   := 25;
       
   766     cWaterRise          := 47;
       
   767     cHealthDecrease     := 5;
   766 
   768 
   767     cTagsMask       := 0;
   769     cTagsMask       := 0;
   768     KBnum           := 0;
   770     KBnum           := 0;
   769     InitStepsFlags  := 0;
   771     InitStepsFlags  := 0;
   770     RealTicks       := 0;
   772     RealTicks       := 0;