hedgewars/uVariables.pas
changeset 14041 44f20c9e6861
parent 14018 039a9a6d68eb
child 14196 ab5e710d353d
equal deleted inserted replaced
14040:128fbd36eee4 14041:44f20c9e6861
    87     autoCameraOn    : boolean;
    87     autoCameraOn    : boolean;
    88 
    88 
    89     CheckSum        : LongWord;
    89     CheckSum        : LongWord;
    90     CampaignVariable: shortstring;
    90     CampaignVariable: shortstring;
    91     GameTicks       : LongWord;
    91     GameTicks       : LongWord;
       
    92     OuchTauntTimer  : LongWord; // Timer which blocks sndOuch from being played too often and fast
    92     GameState       : TGameState;
    93     GameState       : TGameState;
    93     GameType        : TGameType;
    94     GameType        : TGameType;
    94     InputMask       : LongWord;
    95     InputMask       : LongWord;
    95     GameFlags       : Longword;
    96     GameFlags       : Longword;
    96     WorldEdge       : TWorldEdge;
    97     WorldEdge       : TWorldEdge;
  2805 
  2806 
  2806     // int, longint longword and byte
  2807     // int, longint longword and byte
  2807     CursorMovementX     := 0;
  2808     CursorMovementX     := 0;
  2808     CursorMovementY     := 0;
  2809     CursorMovementY     := 0;
  2809     GameTicks           := 0;
  2810     GameTicks           := 0;
       
  2811     OuchTauntTimer      := 0;
  2810     CheckSum            := 0;
  2812     CheckSum            := 0;
  2811     cWaterLine          := LAND_HEIGHT;
  2813     cWaterLine          := LAND_HEIGHT;
  2812     cGearScrEdgesDist   := 240;
  2814     cGearScrEdgesDist   := 240;
  2813 
  2815 
  2814     InputMask           := $FFFFFFFF;
  2816     InputMask           := $FFFFFFFF;