hedgewars/uConsts.pas
changeset 1601 0cff69c8c4cf
parent 1586 2c6f1d1f43c1
child 1608 2631f5026714
--- a/hedgewars/uConsts.pas	Thu Jan 08 15:34:51 2009 +0000
+++ b/hedgewars/uConsts.pas	Thu Jan 08 15:42:36 2009 +0000
@@ -49,7 +49,7 @@
 			sprHurrah, sprLemonade, sprExplPart, sprExplPart2,
 			sprCakeWalk, sprCakeDown, sprAMAmmosBW, sprWatermelon,
 			sprEvilTrace, sprHellishBomb, sprSeduction, sprDress,
-			sprCensored, sprDrill, sprHandDrill);
+			sprCensored, sprDrill, sprHandDrill, sprHandBallgun, sprBalls);
 
 	TGearType = (gtAmmo_Bomb, gtHedgehog, gtAmmo_Grenade, gtHealthTag, // 3
 			gtGrave, gtUFO, gtShotgunShot, gtPickHammer, gtRope, // 8
@@ -59,7 +59,7 @@
 			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder, // 28
 			gtTeleport, gtSwitcher, gtTarget, gtMortar, // 32
 			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon, gtMelonPiece, // 38
-			gtHellishBomb, gtEvilTrace, gtWaterUp, gtDrill);
+			gtHellishBomb, gtEvilTrace, gtWaterUp, gtDrill, gtBallGun, gtBall);
 
 	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire,
 			vgtSmallDamageTag);
@@ -81,7 +81,7 @@
 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
-			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill);
+			amSeduction, amWatermelon, amHellishBomb, amNapalm, amDrill, amBallgun);
 
 	THWFont = (fnt16, fntBig, fntSmall);
 
@@ -449,7 +449,11 @@
 			(FileName:      'Drill'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
 			Width:  16; Height: 16; saveSurf: false),// sprDrill
 			(FileName:    'amDrill'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
-			Width:  32; Height: 32; saveSurf: false)// sprHandDrill
+			Width:  32; Height: 32; saveSurf: false),// sprHandDrill
+			(FileName:    'amBallgun'; Path: ptHedgehog; AltPath: ptNone; Texture: nil; Surface: nil;
+			Width:  64; Height: 64; saveSurf: false),// sprHandBallgun
+			(FileName:      'Balls'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
+			Width:  32; Height: 20; saveSurf: false)// sprBalls
 			);
 
 	Wavez: array [TWave] of record
@@ -1102,7 +1106,25 @@
 			isDamaging: true;
 			SkipTurns: 0;
 			PosCount: 1;
-			PosSprite: sprDrill)
+			PosSprite: sprDrill),
+			(NameId: sidBallgun;
+			NameTex: nil;
+			Probability: 400;
+			NumberInCase: 1;
+			Ammo: (Propz:  ammoprop_ForwMsgs;
+					Count: AMMO_INFINITE;
+					NumPerTurn: 0;
+					Timer: 5001;
+					Pos: 0;
+					AmmoType: amBallgun);
+			Slot: 2;
+			TimeAfterTurn: 0;
+			minAngle: 0;
+			maxAngle: 0;
+			isDamaging: true;
+			SkipTurns: 0;
+			PosCount: 1;
+			PosSprite: sprWater)
 			);
 
 var CountTexz: array[1..9] of PTexture;