# HG changeset patch
# User nemo
# Date 1421639303 18000
# Node ID a96a69841653331670826296b3346837db7266de
# Parent  f5dc72575c926c13849b7eaed70b0fc2d2ee4fcb
inherit mines time div 4

diff -r f5dc72575c92 -r a96a69841653 hedgewars/uGearsList.pas
--- a/hedgewars/uGearsList.pas	Mon Jan 19 01:18:43 2015 +0100
+++ b/hedgewars/uGearsList.pas	Sun Jan 18 22:48:23 2015 -0500
@@ -373,8 +373,14 @@
                 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.
                 gear^.Pos:= cMaxWindSpeed.QWordValue; // air friction. slows it down when not hitting stuff
                 gear^.Karma:= 30; // damage
-                gear^.Timer:= 500;
-                gear^.WDTimer:= 500;
+                if gear^.Timer = 0 then
+                    begin
+                    if cMinesTime < 0 then
+                        gear^.Timer:= getrandom(13)*100
+                    else
+                        gear^.Timer:= cMinesTime div 4
+                    end;
+                gear^.WDTimer:= gear^.Timer
                 end;
        gtSMine: begin
                 gear^.Health:= 10;