hedgewars/uConsts.pas
changeset 39 b78e7185ed13
parent 37 2b7f2a43b999
child 42 72ffe21f027c
--- a/hedgewars/uConsts.pas	Thu Jan 05 22:55:45 2006 +0000
+++ b/hedgewars/uConsts.pas	Sat Jan 07 15:21:44 2006 +0000
@@ -47,12 +47,12 @@
                    sprMineOn, sprCase);
      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
-                   gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot);
+                   gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite);
      TGearsType = set of TGearType;
      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
                    sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick);
      TAmmoType  = (amGrenade, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,
-                   amMine, amDEagle);
+                   amMine, amDEagle, amDynamite);
      THWFont    = (fnt16, fntBig);
      THHFont    = record
                   Handle: PTTF_Font;
@@ -327,7 +327,15 @@
                                           Timer: 0;
                                           AmmoType: amDEagle);
                                    Slot: 2;
-                                   TimeAfterTurn: 3000));
+                                   TimeAfterTurn: 3000),
+                                   (Name: 'Dynamite';
+                                    Ammo: (Propz: ammoprop_NoCrosshair or ammoprop_AttackInJump or ammoprop_AttackInFall;
+                                           Count: 5;
+                                           NumPerTurn: 0;
+                                           Timer: 0;
+                                           AmmoType: amDynamite);
+                                    Slot: 3;
+                                    TimeAfterTurn: 5000));