hedgewars/uVariables.pas
changeset 7389 15c3fb4882df
parent 7345 f253e225da15
child 7403 e8d0b21efa82
equal deleted inserted replaced
7388:92535bc7e928 7389:15c3fb4882df
    62     isSpeed         : boolean;
    62     isSpeed         : boolean;
    63 
    63 
    64     fastUntilLag    : boolean;
    64     fastUntilLag    : boolean;
    65     autoCameraOn    : boolean;
    65     autoCameraOn    : boolean;
    66 
    66 
       
    67     CheckSum        : LongWord;
    67     GameTicks       : LongWord;
    68     GameTicks       : LongWord;
    68     GameState       : TGameState;
    69     GameState       : TGameState;
    69     GameType        : TGameType;
    70     GameType        : TGameType;
    70     InputMask       : LongWord;
    71     InputMask       : LongWord;
    71     GameFlags       : Longword;
    72     GameFlags       : Longword;
  2366 (*          gtFlake *) , amNothing
  2367 (*          gtFlake *) , amNothing
  2367 (*      gtStructure *) , amStructure  // TODO - This will undoubtedly change once there is more than one structure
  2368 (*      gtStructure *) , amStructure  // TODO - This will undoubtedly change once there is more than one structure
  2368 (*        gtLandGun *) , amLandGun
  2369 (*        gtLandGun *) , amLandGun
  2369 (*         gtTardis *) , amTardis
  2370 (*         gtTardis *) , amTardis
  2370 (*         gtIceGun *) , amIceGun
  2371 (*         gtIceGun *) , amIceGun
       
  2372 (*        gtAddAmmo *) , amNothing
       
  2373 (*  gtGenericFaller *) , amNothing
  2371     );
  2374     );
  2372 
  2375 
  2373 var
  2376 var
  2374     Land: TCollisionArray;
  2377     Land: TCollisionArray;
  2375     LandPixels: TLandArray;
  2378     LandPixels: TLandArray;
  2528 
  2531 
  2529     // int, longint longword and byte
  2532     // int, longint longword and byte
  2530     CursorMovementX     := 0;
  2533     CursorMovementX     := 0;
  2531     CursorMovementY     := 0;
  2534     CursorMovementY     := 0;
  2532     GameTicks           := 0;
  2535     GameTicks           := 0;
       
  2536     CheckSum            := 0;
  2533     cWaterLine          := LAND_HEIGHT;
  2537     cWaterLine          := LAND_HEIGHT;
  2534     cGearScrEdgesDist   := 240;
  2538     cGearScrEdgesDist   := 240;
  2535 
  2539 
  2536     InputMask           := $FFFFFFFF;
  2540     InputMask           := $FFFFFFFF;
  2537     GameFlags           := 0;
  2541     GameFlags           := 0;