hedgewars/uVariables.pas
changeset 4522 0f590eefd531
parent 4482 34393349f96e
child 4531 4ea193b0e378
equal deleted inserted replaced
4521:96066d42c3f9 4522:0f590eefd531
    41 
    41 
    42     fastUntilLag    : boolean;
    42     fastUntilLag    : boolean;
    43 
    43 
    44     GameState       : TGameState;
    44     GameState       : TGameState;
    45     GameType        : TGameType;
    45     GameType        : TGameType;
       
    46     InputMask       : LongWord;
    46     GameFlags       : Longword;
    47     GameFlags       : Longword;
    47     TrainingFlags   : Longword;
    48     TrainingFlags   : Longword;
    48     TurnTimeLeft    : Longword;
    49     TurnTimeLeft    : Longword;
    49     ReadyTimeLeft   : Longword;
    50     ReadyTimeLeft   : Longword;
    50     cSuddenDTurns   : LongInt;
    51     cSuddenDTurns   : LongInt;
  2155     TimeTrialStartTime  := 0;
  2156     TimeTrialStartTime  := 0;
  2156     TimeTrialStopTime   := 0;
  2157     TimeTrialStopTime   := 0;
  2157     cWaterLine          := LAND_HEIGHT;
  2158     cWaterLine          := LAND_HEIGHT;
  2158     cGearScrEdgesDist   := 240;
  2159     cGearScrEdgesDist   := 240;
  2159 
  2160 
       
  2161     InputMask           := $FFFFFFFF;
  2160     GameFlags           := 0;
  2162     GameFlags           := 0;
  2161     TrainingFlags       := 0;
  2163     TrainingFlags       := 0;
  2162     TurnTimeLeft        := 0;
  2164     TurnTimeLeft        := 0;
  2163     cSuddenDTurns       := 15;
  2165     cSuddenDTurns       := 15;
  2164     cDamagePercent      := 100;
  2166     cDamagePercent      := 100;