hedgewars/uConsts.pas
changeset 37 2b7f2a43b999
parent 35 9367f246fb5f
child 39 b78e7185ed13
equal deleted inserted replaced
36:a803a00a3272 37:2b7f2a43b999
    45                    sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,
    45                    sprLag, sprArrow, sprGrenade, sprTargetP, sprUFO,
    46                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
    46                    sprSmokeTrace, sprRopeHook, sprExplosion50, sprMineOff,
    47                    sprMineOn, sprCase);
    47                    sprMineOn, sprCase);
    48      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    48      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
    49                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
    49                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
    50                    gtSmokeTrace, gtExplosion, gtMine, gtCase);
    50                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot);
    51      TGearsType = set of TGearType;
    51      TGearsType = set of TGearType;
    52      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
    52      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
    53                    sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick);
    53                    sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick);
    54      TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,
    54      TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,
    55                    amMine);
    55                    amMine, amDEagle);
    56      THWFont    = (fnt16, fntBig);
    56      THWFont    = (fnt16, fntBig);
    57      THHFont    = record
    57      THHFont    = record
    58                   Handle: PTTF_Font;
    58                   Handle: PTTF_Font;
    59                   Height: integer;
    59                   Height: integer;
    60                   Name: string[15];
    60                   Name: string[15];
   117       gstCollision      = $00000020;
   117       gstCollision      = $00000020;
   118       gstHHChooseTarget = $00000040;
   118       gstHHChooseTarget = $00000040;
   119       gstFalling        = $00000080;
   119       gstFalling        = $00000080;
   120       gstHHJumping      = $00000100;
   120       gstHHJumping      = $00000100;
   121       gsttmpFlag        = $00000200;
   121       gsttmpFlag        = $00000200;
   122       gstOutOfHH        = $00000400;
       
   123       gstHHThinking     = $00000800;
   122       gstHHThinking     = $00000800;
   124 
   123 
   125       gtsStartGame      = 1;
   124       gtsStartGame      = 1;
   126       gtsSmoothWindCh   = 2;
   125       gtsSmoothWindCh   = 2;
   127 
   126 
   318                                           Count: 5;
   317                                           Count: 5;
   319                                           NumPerTurn: 0;
   318                                           NumPerTurn: 0;
   320                                           Timer: 0;
   319                                           Timer: 0;
   321                                           AmmoType: amMine);
   320                                           AmmoType: amMine);
   322                                    Slot: 3;
   321                                    Slot: 3;
   323                                    TimeAfterTurn: 3000)
   322                                    TimeAfterTurn: 3000),
   324                                   );
   323                                   (Name: 'Desert Eagle';
   325                                   
   324                                    Ammo: (Propz: 0;
       
   325                                           Count: AMMO_INFINITE;
       
   326                                           NumPerTurn: 3;
       
   327                                           Timer: 0;
       
   328                                           AmmoType: amDEagle);
       
   329                                    Slot: 2;
       
   330                                    TimeAfterTurn: 3000));
       
   331 
       
   332 
       
   333 
       
   334 
   326       Resolutions: array[0..3] of String = (
   335       Resolutions: array[0..3] of String = (
   327                                            '640 480',
   336                                            '640 480',
   328                                            '800 600',
   337                                            '800 600',
   329                                            '1024 768',
   338                                            '1024 768',
   330                                            '1280 1024'
   339                                            '1280 1024'