inherit mines time div 4
authornemo
Sun, 18 Jan 2015 22:48:23 -0500
changeset 10805 a96a69841653
parent 10804 f5dc72575c92
child 10806 02ef8815ec9d
inherit mines time div 4
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;