hedgewars/uGearsList.pas
changeset 12099 4dfc95eabee1
parent 11836 dd18d8100afd
child 12124 3374e0f67f39
--- a/hedgewars/uGearsList.pas	Sun Nov 27 06:32:00 2016 +0100
+++ b/hedgewars/uGearsList.pas	Sun Nov 27 12:58:41 2016 +0100
@@ -418,10 +418,11 @@
                 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^.Timer:= getrandom(51)*100
+                        gear^.Tag:= 1 // gear tag of 1 means mine timer will be random
                     else
                         gear^.Timer:= cMinesTime
                     end