--- a/hedgewars/uGears.pas	Thu Sep 18 12:40:46 2008 +0000
+++ b/hedgewars/uGears.pas	Thu Sep 18 13:39:05 2008 +0000
@@ -139,7 +139,8 @@
 			@doStepWhip,
 			@doStepKamikaze,
 			@doStepCake,
-			@doStepSeduction
+			@doStepSeduction,
+			@doStepBomb
 			);
 
 procedure InsertGearToList(Gear: PGear);
@@ -207,6 +208,11 @@
                 Result^.Elasticity:= _0_6;
                 Result^.Friction:= _0_96;
                 end;
+  gtWatermelon: begin
+                Result^.Radius:= 4;
+                Result^.Elasticity:= _0_8;
+                Result^.Friction:= _0_995;
+                end;
     gtHedgehog: begin
                 Result^.Radius:= cHHRadius;
                 Result^.Elasticity:= _0_35;
@@ -315,7 +321,7 @@
                 Result^.Radius:= 20
                 end;
         gtCake: begin
-                Result^.Health:= 4096;
+                Result^.Health:= 2048;
                 Result^.Radius:= 7;
                 Result^.Z:= cOnHHZ;
                 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3