hedgewars/uGearsList.pas
changeset 12169 869cf5f34700
parent 12119 3374e0f67f39
child 12192 de9144250c37
--- a/hedgewars/uGearsList.pas	Thu Apr 06 05:54:45 2017 +0200
+++ b/hedgewars/uGearsList.pas	Thu Apr 06 07:34:00 2017 +0200
@@ -418,11 +418,10 @@
                 gear^.Elasticity:= _0_55;
                 gear^.Friction:= _0_995;
                 gear^.Density:= _1;
-                gear^.Tag:= 0;
                 if gear^.Timer = 0 then
                     begin
                     if cMinesTime < 0 then
-                        gear^.Tag:= 1 // gear tag of 1 means mine timer will be random
+                        gear^.Timer:= getrandom(51)*100
                     else
                         gear^.Timer:= cMinesTime
                     end