hedgewars/uVariables.pas
changeset 13627 605767bbd022
parent 13582 517b26009073
child 13811 3fa9e30927f1
equal deleted inserted replaced
13626:2bdbef3f534c 13627:605767bbd022
   159     cLeftScreenBorder     : LongInt;
   159     cLeftScreenBorder     : LongInt;
   160     cRightScreenBorder    : LongInt;
   160     cRightScreenBorder    : LongInt;
   161     cScreenSpace          : Longword;
   161     cScreenSpace          : Longword;
   162 
   162 
   163     cCaseFactor     : Longword;
   163     cCaseFactor     : Longword;
       
   164     cMaxCaseDrops   : Longword; // Max. number of crates which can be in the game when dropping
   164     cLandMines      : Longword;
   165     cLandMines      : Longword;
   165     cAirMines       : Longword;
   166     cAirMines       : Longword;
   166     cExplosives     : Longword;
   167     cExplosives     : Longword;
   167 
   168 
   168     cScriptName     : shortstring;
   169     cScriptName     : shortstring;
  2837 
  2838 
  2838     InitStepsFlags  := 0;
  2839     InitStepsFlags  := 0;
  2839     RealTicks       := 0;
  2840     RealTicks       := 0;
  2840     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
  2841     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
  2841     cCaseFactor     := 5;  {0..9}
  2842     cCaseFactor     := 5;  {0..9}
       
  2843     cMaxCaseDrops   := 5;
  2842     cLandMines      := 4;
  2844     cLandMines      := 4;
  2843     cAirMines       := 0;
  2845     cAirMines       := 0;
  2844     cExplosives     := 2;
  2846     cExplosives     := 2;
  2845 
  2847 
  2846     GameState       := Low(TGameState);
  2848     GameState       := Low(TGameState);