hedgewars/uMisc.pas
changeset 4143 eb7981f34800
parent 4135 5be798ecafdc
child 4153 6bd94e4c5d65
equal deleted inserted replaced
4142:980ec01b98e1 4143:eb7981f34800
    71     cMazeSize       : LongInt;
    71     cMazeSize       : LongInt;
    72 
    72 
    73     cHedgehogTurnTime: Longword;
    73     cHedgehogTurnTime: Longword;
    74     cMinesTime       : LongInt;
    74     cMinesTime       : LongInt;
    75     cMaxAIThinkTime  : Longword;
    75     cMaxAIThinkTime  : Longword;
       
    76 
       
    77     cHealthCaseProb  : LongInt;
       
    78     cHealthCaseAmount: LongInt;
    76 
    79 
    77     cCloudsNumber    : LongInt;
    80     cCloudsNumber    : LongInt;
    78 
    81 
    79     cTagsMask        : byte;
    82     cTagsMask        : byte;
    80     zoom             : GLfloat;
    83     zoom             : GLfloat;
   756     cMazeSize           := 0;
   759     cMazeSize           := 0;
   757     cHedgehogTurnTime   := 45000;
   760     cHedgehogTurnTime   := 45000;
   758     cMinesTime          := 3000;
   761     cMinesTime          := 3000;
   759     cMaxAIThinkTime     := 9000;
   762     cMaxAIThinkTime     := 9000;
   760     cCloudsNumber       := 9;
   763     cCloudsNumber       := 9;
       
   764     cHealthCaseProb     := 35;
       
   765     cHealthCaseAmount   := 25;
   761 
   766 
   762     cTagsMask       := 0;
   767     cTagsMask       := 0;
   763     KBnum           := 0;
   768     KBnum           := 0;
   764     InitStepsFlags  := 0;
   769     InitStepsFlags  := 0;
   765     RealTicks       := 0;
   770     RealTicks       := 0;