hedgewars/uVariables.pas
changeset 7442 9bb6abdb5675
parent 7376 48b79b3ca592
parent 7416 2f2f78fc65a3
child 7503 deaeac102355
equal deleted inserted replaced
7392:bc3306c59a08 7442:9bb6abdb5675
    67     isCursorVisible : boolean;
    67     isCursorVisible : boolean;
    68     isInLag         : boolean;
    68     isInLag         : boolean;
    69     isPaused        : boolean;
    69     isPaused        : boolean;
    70     isInMultiShoot  : boolean;
    70     isInMultiShoot  : boolean;
    71     isSpeed         : boolean;
    71     isSpeed         : boolean;
       
    72     SpeedStart      : LongWord;
    72 
    73 
    73     fastUntilLag    : boolean;
    74     fastUntilLag    : boolean;
    74     fastScrolling   : boolean;
    75     fastScrolling   : boolean;
    75     autoCameraOn    : boolean;
    76     autoCameraOn    : boolean;
    76 
    77 
       
    78     CheckSum        : LongWord;
    77     GameTicks       : LongWord;
    79     GameTicks       : LongWord;
    78     GameState       : TGameState;
    80     GameState       : TGameState;
    79     GameType        : TGameType;
    81     GameType        : TGameType;
    80     InputMask       : LongWord;
    82     InputMask       : LongWord;
    81     GameFlags       : Longword;
    83     GameFlags       : Longword;
   106     zoom             : GLfloat;
   108     zoom             : GLfloat;
   107     ZoomValue        : GLfloat;
   109     ZoomValue        : GLfloat;
   108 
   110 
   109     cWaterLine       : Word;
   111     cWaterLine       : Word;
   110     cGearScrEdgesDist: LongInt;
   112     cGearScrEdgesDist: LongInt;
       
   113 	isAudioMuted     : boolean;
   111 
   114 
   112     // originally typed consts
   115     // originally typed consts
   113     ExplosionBorderColor: LongWord;
   116     ExplosionBorderColor: LongWord;
   114     WaterOpacity: byte;
   117     WaterOpacity: byte;
   115     SDWaterOpacity: byte;
   118     SDWaterOpacity: byte;
  1451             NameTex: nil;
  1454             NameTex: nil;
  1452             Probability: 100;
  1455             Probability: 100;
  1453             NumberInCase: 1;
  1456             NumberInCase: 1;
  1454             Ammo: (Propz: ammoprop_ForwMsgs or 
  1457             Ammo: (Propz: ammoprop_ForwMsgs or 
  1455                           ammoprop_NoCrosshair or 
  1458                           ammoprop_NoCrosshair or 
  1456                           ammoprop_DontHold;
  1459                           ammoprop_DontHold or
       
  1460                           ammoprop_Track;
  1457                 Count: 1;
  1461                 Count: 1;
  1458                 NumPerTurn: 0;
  1462                 NumPerTurn: 0;
  1459                 Timer: 0;
  1463                 Timer: 0;
  1460                 Pos: 0;
  1464                 Pos: 0;
  1461                 AmmoType: amCake;
  1465                 AmmoType: amCake;
  2376 (*          gtFlake *) , amNothing
  2380 (*          gtFlake *) , amNothing
  2377 (*      gtStructure *) , amStructure  // TODO - This will undoubtedly change once there is more than one structure
  2381 (*      gtStructure *) , amStructure  // TODO - This will undoubtedly change once there is more than one structure
  2378 (*        gtLandGun *) , amLandGun
  2382 (*        gtLandGun *) , amLandGun
  2379 (*         gtTardis *) , amTardis
  2383 (*         gtTardis *) , amTardis
  2380 (*         gtIceGun *) , amIceGun
  2384 (*         gtIceGun *) , amIceGun
       
  2385 (*        gtAddAmmo *) , amNothing
       
  2386 (*  gtGenericFaller *) , amNothing
  2381     );
  2387     );
  2382 
  2388 
  2383 var
  2389 var
  2384     Land: TCollisionArray;
  2390     Land: TCollisionArray;
  2385     LandPixels: TLandArray;
  2391     LandPixels: TLandArray;
  2542 
  2548 
  2543     // int, longint longword and byte
  2549     // int, longint longword and byte
  2544     CursorMovementX     := 0;
  2550     CursorMovementX     := 0;
  2545     CursorMovementY     := 0;
  2551     CursorMovementY     := 0;
  2546     GameTicks           := 0;
  2552     GameTicks           := 0;
       
  2553     CheckSum            := 0;
  2547     cWaterLine          := LAND_HEIGHT;
  2554     cWaterLine          := LAND_HEIGHT;
  2548     cGearScrEdgesDist   := 240;
  2555     cGearScrEdgesDist   := 240;
  2549 
  2556 
  2550     InputMask           := $FFFFFFFF;
  2557     InputMask           := $FFFFFFFF;
  2551     GameFlags           := 0;
  2558     GameFlags           := 0;
  2590     isCursorVisible := false;
  2597     isCursorVisible := false;
  2591     isInLag         := false;
  2598     isInLag         := false;
  2592     isPaused        := false;
  2599     isPaused        := false;
  2593     isInMultiShoot  := false;
  2600     isInMultiShoot  := false;
  2594     isSpeed         := false;
  2601     isSpeed         := false;
       
  2602     SpeedStart      := 0;
  2595     fastUntilLag    := false;
  2603     fastUntilLag    := false;
  2596     fastScrolling   := false;
  2604     fastScrolling   := false;
  2597     autoCameraOn    := true;
  2605     autoCameraOn    := true;
  2598     cScriptName     := '';
  2606     cScriptName     := '';
  2599     cSeed           := '';
  2607     cSeed           := '';