hedgewars/uConsts.pas
changeset 82 2f4f3236cccc
parent 80 3c3dc6a148ca
child 83 207c85fbef51
--- a/hedgewars/uConsts.pas	Fri Jul 21 20:37:44 2006 +0000
+++ b/hedgewars/uConsts.pas	Sun Jul 23 21:22:44 2006 +0000
@@ -51,12 +51,14 @@
      TGearType  = (gtCloud, gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag,
                    gtGrave, gtUFO, gtShotgunShot, gtActionTimer, gtPickHammer, gtRope,
                    gtSmokeTrace, gtExplosion, gtMine, gtCase, gtDEagleShot, gtDynamite,
-                   gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame);
+                   gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
+                   gtFirePunch);
      TGearsType = set of TGearType;
      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease, sndSplash,
                    sndShotgunReload, sndShotgunFire, sndGraveImpact, sndMineTick);
-     TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer, amSkip, amRope,
-                   amMine, amDEagle, amDynamite, amBaseballBat);
+     TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
+                   amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch,
+                   amBaseballBat);
      THWFont    = (fnt16, fntBig);
      THHFont    = record
                   Handle: PTTF_Font;
@@ -366,6 +368,14 @@
                                            AmmoType: amDynamite);
                                     Slot: 4;
                                     TimeAfterTurn: 5000),
+                                   (NameId: sidFirePunch;
+                                    Ammo: (Propz: ammoprop_NoCrosshair or ammoprop_ForwMsgs or ammoprop_AttackInJump or ammoprop_AttackInFall;
+                                           Count: AMMO_INFINITE;
+                                           NumPerTurn: 0;
+                                           Timer: 0;
+                                           AmmoType: amFirePunch);
+                                    Slot: 3;
+                                    TimeAfterTurn: 3000),
                                    (NameId: sidBaseballBat;
                                     Ammo: (Propz: 0;
                                            Count: 1;