hedgewars/uVariables.pas
changeset 15645 fb1f47e382d0
parent 15639 afeffdb4a712
child 15665 63e2b7b2ec47
equal deleted inserted replaced
15644:3997d85b3d2e 15645:fb1f47e382d0
   175     cCaseFactor     : Longword;
   175     cCaseFactor     : Longword;
   176     cMaxCaseDrops   : Longword; // Max. number of crates which can be in the game when dropping
   176     cMaxCaseDrops   : Longword; // Max. number of crates which can be in the game when dropping
   177 
   177 
   178     cLandMines      : Longword;
   178     cLandMines      : Longword;
   179     cAirMines       : Longword;
   179     cAirMines       : Longword;
       
   180     cSentries       : Longword;
   180     cExplosives     : Longword;
   181     cExplosives     : Longword;
   181 
   182 
   182     cScriptName     : shortstring;
   183     cScriptName     : shortstring;
   183     cScriptParam    : shortstring;
   184     cScriptParam    : shortstring;
   184     cSeed           : shortstring;
   185     cSeed           : shortstring;
  2957     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
  2958     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
  2958     cCaseFactor     := 5;  {0..9}
  2959     cCaseFactor     := 5;  {0..9}
  2959     cMaxCaseDrops   := 5;
  2960     cMaxCaseDrops   := 5;
  2960     cLandMines      := 4;
  2961     cLandMines      := 4;
  2961     cAirMines       := 0;
  2962     cAirMines       := 0;
       
  2963     cSentries       := 0;
  2962     cExplosives     := 2;
  2964     cExplosives     := 2;
  2963 
  2965 
  2964     GameState       := Low(TGameState);
  2966     GameState       := Low(TGameState);
  2965     WeaponTooltipTex:= nil;
  2967     WeaponTooltipTex:= nil;
  2966     cLaserSighting  := false;
  2968     cLaserSighting  := false;