--- a/hedgewars/uGears.pas	Wed May 06 22:35:31 2009 +0000
+++ b/hedgewars/uGears.pas	Thu May 07 02:04:07 2009 +0000
@@ -298,7 +298,10 @@
                 Result^.Radius:= 2;
                 Result^.Elasticity:= _0_55;
                 Result^.Friction:= _0_995;
-                Result^.Timer:= 3000;
+                if cMinesTime < 0 then
+                    Result^.Timer:= getrandom(3)*1000
+                else
+                    Result^.Timer:= cMinesTime*1;
                 end;
         gtCase: begin
                 Result^.Radius:= 16;