hedgewars/uMisc.pas
changeset 4003 ca0600ab38bf
parent 3988 044cc945b2f8
child 4046 cfdbddc4b385
equal deleted inserted replaced
4001:cfd83b04e0be 4003:ca0600ab38bf
   104     cLeftScreenBorder     : LongInt;
   104     cLeftScreenBorder     : LongInt;
   105     cRightScreenBorder    : LongInt;
   105     cRightScreenBorder    : LongInt;
   106     cScreenSpace          : LongInt;
   106     cScreenSpace          : LongInt;
   107 
   107 
   108     cCaseFactor     : Longword;
   108     cCaseFactor     : Longword;
   109     cLandAdditions  : Longword;
   109     cLandMines      : Longword;
   110     cExplosives     : Longword;
   110     cExplosives     : Longword;
   111 
   111 
   112     cSeed           : shortstring;
   112     cSeed           : shortstring;
   113     cVolumeDelta    : LongInt;
   113     cVolumeDelta    : LongInt;
   114     cHasFocus       : boolean;
   114     cHasFocus       : boolean;
   750     TurnTimeLeft        := 0;
   750     TurnTimeLeft        := 0;
   751     cSuddenDTurns       := 15;
   751     cSuddenDTurns       := 15;
   752     cDamagePercent      := 100;
   752     cDamagePercent      := 100;
   753     cMineDudPercent     := 0;
   753     cMineDudPercent     := 0;
   754     cTemplateFilter     := 0;
   754     cTemplateFilter     := 0;
   755     cMapGen             := 0;//MAPGEN_REGULAR
   755     cMapGen             := 0;   // MAPGEN_REGULAR
   756     cMazeSize           := 0;
   756     cMazeSize           := 0;
   757     cHedgehogTurnTime   := 45000;
   757     cHedgehogTurnTime   := 45000;
   758     cMinesTime          := 3000;
   758     cMinesTime          := 3000;
   759     cMaxAIThinkTime     := 9000;
   759     cMaxAIThinkTime     := 9000;
   760     cCloudsNumber       := 9;
   760     cCloudsNumber       := 9;
   763     KBnum           := 0;
   763     KBnum           := 0;
   764     InitStepsFlags  := 0;
   764     InitStepsFlags  := 0;
   765     RealTicks       := 0;
   765     RealTicks       := 0;
   766     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP
   766     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP
   767     cCaseFactor     := 5;  {0..9}
   767     cCaseFactor     := 5;  {0..9}
   768     cLandAdditions  := 4;
   768     cLandMines      := 4;
   769     cExplosives     := 2;
   769     cExplosives     := 2;
   770 
   770 
   771     GameState       := Low(TGameState);
   771     GameState       := Low(TGameState);
   772     GameType        := gmtLocal;
   772     GameType        := gmtLocal;
   773     zoom            := cDefaultZoomLevel;
   773     zoom            := cDefaultZoomLevel;