hedgewars/uVariables.pas
changeset 10818 f642a28cab0c
parent 10792 f6df7d6e18e5
child 10820 e86ba0e821a6
equal deleted inserted replaced
10816:37410518628e 10818:f642a28cab0c
   147     cRightScreenBorder    : LongInt;
   147     cRightScreenBorder    : LongInt;
   148     cScreenSpace          : Longword;
   148     cScreenSpace          : Longword;
   149 
   149 
   150     cCaseFactor     : Longword;
   150     cCaseFactor     : Longword;
   151     cLandMines      : Longword;
   151     cLandMines      : Longword;
       
   152     cAirMines       : Longword;
   152     cExplosives     : Longword;
   153     cExplosives     : Longword;
   153 
   154 
   154     cScriptName     : shortstring;
   155     cScriptName     : shortstring;
   155     cScriptParam    : shortstring;
   156     cScriptParam    : shortstring;
   156     cSeed           : shortstring;
   157     cSeed           : shortstring;
  2605     InitStepsFlags  := 0;
  2606     InitStepsFlags  := 0;
  2606     RealTicks       := 0;
  2607     RealTicks       := 0;
  2607     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
  2608     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
  2608     cCaseFactor     := 5;  {0..9}
  2609     cCaseFactor     := 5;  {0..9}
  2609     cLandMines      := 4;
  2610     cLandMines      := 4;
       
  2611     cAirMines       := 1000;
  2610     cExplosives     := 2;
  2612     cExplosives     := 2;
  2611 
  2613 
  2612     GameState       := Low(TGameState);
  2614     GameState       := Low(TGameState);
  2613     zoom            := cDefaultZoomLevel;
  2615     zoom            := cDefaultZoomLevel;
  2614     ZoomValue       := cDefaultZoomLevel;
  2616     ZoomValue       := cDefaultZoomLevel;