--- a/hedgewars/uGears.pas	Thu May 08 14:54:48 2008 +0000
+++ b/hedgewars/uGears.pas	Thu May 08 18:02:52 2008 +0000
@@ -195,7 +195,8 @@
    end;
 
 case Kind of
-   gtAmmo_Bomb: begin
+   gtAmmo_Bomb,
+ gtClusterBomb: begin
                 Result^.Radius:= 4;
                 Result^.Elasticity:= _0_6;
                 Result^.Friction:= _0_995;
@@ -247,7 +248,7 @@
                 end;
         gtMine: begin
                 Result^.State:= Result^.State or gstMoving;
-                Result^.Radius:= 3;
+                Result^.Radius:= 2;
                 Result^.Elasticity:= _0_55;
                 Result^.Friction:= _0_995;
                 Result^.Timer:= 3000;
@@ -266,11 +267,6 @@
                 Result^.Friction:= _0_03;
                 Result^.Timer:= 5000;
                 end;
- gtClusterBomb: begin
-                Result^.Radius:= 4;
-                Result^.Elasticity:= _0_6;
-                Result^.Friction:= _0_995;
-                end;
      gtCluster: Result^.Radius:= 2;
       gtShover: Result^.Radius:= 20;
        gtFlame: begin