hedgewars/uConsts.pas
changeset 1261 903058d382c7
parent 1259 0c660c3d98a4
child 1262 e9191c693e44
--- a/hedgewars/uConsts.pas	Thu Sep 18 12:40:46 2008 +0000
+++ b/hedgewars/uConsts.pas	Thu Sep 18 13:39:05 2008 +0000
@@ -56,7 +56,7 @@
 			gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
 			gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
 			gtTeleport, gtSmallDamage, gtSwitcher, gtTarget, gtMortar,
-			gtWhip, gtKamikaze, gtCake, gtSeduction);
+			gtWhip, gtKamikaze, gtCake, gtSeduction, gtWatermelon);
 
 	TVisualGearType = (vgtFlake, vgtCloud, vgtExplPart, vgtExplPart2, vgtFire);
 
@@ -75,7 +75,7 @@
 			amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
 			amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
 			amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
-			amSeduction);
+			amSeduction, amWatermelon);
 
 	THWFont = (fnt16, fntBig, fntSmall);
 
@@ -814,7 +814,7 @@
 			PosSprite: sprAmAirplane),
 			(NameId: sidMineStrike;
 			NameTex: nil;
-			Probability: 400;
+			Probability: 300;
 			NumberInCase: 1;
 			Ammo: (Propz: ammoprop_NoCrosshair or
 							ammoprop_NeedTarget or
@@ -853,7 +853,7 @@
 			PosSprite: sprWater),
 			(NameId: sidGirder;
 			NameTex: nil;
-			Probability: 400;
+			Probability: 300;
 			NumberInCase: 3;
 			Ammo: (Propz: ammoprop_NoCrosshair or
 							ammoprop_NeedTarget or
@@ -874,7 +874,7 @@
 			PosSprite: sprAmGirder),
 			(NameId: sidTeleport;
 			NameTex: nil;
-			Probability: 400;
+			Probability: 300;
 			NumberInCase: 1;
 			Ammo: (Propz: ammoprop_ForwMsgs or
 							ammoprop_NoCrosshair or
@@ -990,6 +990,26 @@
 			isDamaging: true;
 			SkipTurns: 0;
 			PosCount: 1;
+			PosSprite: sprWater),
+			(NameId: sidWatermelon;
+			NameTex: nil;
+			Probability: 200;
+			NumberInCase: 1;
+			Ammo: (Propz: ammoprop_Timerable or
+							ammoprop_Power or
+							ammoprop_AltUse;
+					Count: 1;
+					NumPerTurn: 0;
+					Timer: 3000;
+					Pos: 0;
+					AmmoType: amWatermelon);
+			Slot: 1;
+			TimeAfterTurn: 3000;
+			minAngle: 0;
+			maxAngle: 0;
+			isDamaging: true;
+			SkipTurns: 0;
+			PosCount: 1;
 			PosSprite: sprWater)
 			);