hedgewars/uConsts.pas
changeset 39 b78e7185ed13
parent 37 2b7f2a43b999
child 42 72ffe21f027c
equal deleted inserted replaced
38:c1ec4b15d70e 39:b78e7185ed13
    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, gtDEagleShot);
    50                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite);
    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, amDEagle);
    55                    amMine, amDEagle, amDynamite);
    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];
   325                                           Count: AMMO_INFINITE;
   325                                           Count: AMMO_INFINITE;
   326                                           NumPerTurn: 3;
   326                                           NumPerTurn: 3;
   327                                           Timer: 0;
   327                                           Timer: 0;
   328                                           AmmoType: amDEagle);
   328                                           AmmoType: amDEagle);
   329                                    Slot: 2;
   329                                    Slot: 2;
   330                                    TimeAfterTurn: 3000));
   330                                    TimeAfterTurn: 3000),
       
   331                                    (Name: 'Dynamite';
       
   332                                     Ammo: (Propz: ammoprop_NoCrosshair or ammoprop_AttackInJump or ammoprop_AttackInFall;
       
   333                                            Count: 5;
       
   334                                            NumPerTurn: 0;
       
   335                                            Timer: 0;
       
   336                                            AmmoType: amDynamite);
       
   337                                     Slot: 3;
       
   338                                     TimeAfterTurn: 5000));
   331 
   339 
   332 
   340 
   333 
   341 
   334 
   342 
   335       Resolutions: array[0..3] of String = (
   343       Resolutions: array[0..3] of String = (