--- a/hedgewars/uConsts.pas	Fri Aug 15 19:30:02 2008 +0000
+++ b/hedgewars/uConsts.pas	Sat Aug 16 11:22:34 2008 +0000
@@ -74,7 +74,8 @@
      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch, amWhip,
                    amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
-                   amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake);
+                   amGirder, amTeleport, amSwitch, amMortar, amKamikaze, amCake,
+                   amSeduction);
 
      THWFont    = (fnt16, fntBig, fntSmall);
 
@@ -971,6 +972,26 @@
                                    isDamaging: true;
                                    SkipTurns: 0;
                                    PosCount: 1;
+                                   PosSprite: sprWater),
+                                  (NameId: sidSeduction;
+                                   NameTex: nil;
+                                   Probability: 100;
+                                   NumberInCase: 1;
+                                   Ammo: (Propz: ammoprop_ForwMsgs or
+                                                 ammoprop_NoCrosshair or
+                                                 ammoprop_DontHold;
+                                          Count: 1;
+                                          NumPerTurn: 0;
+                                          Timer: 0;
+                                          Pos: 0;
+                                          AmmoType: amSeduction);
+                                   Slot: 2;
+                                   TimeAfterTurn: 0;
+                                   minAngle: 0;
+                                   maxAngle: 0;
+                                   isDamaging: true;
+                                   SkipTurns: 0;
+                                   PosCount: 1;
                                    PosSprite: sprWater)
                                   );