diff -r 86318e7714c5 -r 903058d382c7 hedgewars/uGears.pas --- 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