hedgewars/uGearsList.pas
changeset 14757 56098968df90
parent 14755 ab7bf5036314
child 14758 168be33c099a
--- a/hedgewars/uGearsList.pas	Sun Apr 07 19:31:58 2019 +0200
+++ b/hedgewars/uGearsList.pas	Sun Apr 07 20:01:02 2019 +0200
@@ -430,9 +430,12 @@
                 if gear^.Timer = 0 then
                     begin
                     if cMinesTime < 0 then
-                        gear^.Timer:= getrandom(51)*100
+                        begin
+                        gear^.Timer:= getrandom(51)*100;
+                        gear^.Karma:= 1;
+                        end
                     else
-                        gear^.Timer:= cMinesTime
+                        gear^.Timer:= cMinesTime;
                     end;
                 gear^.RenderTimer:= true;
                 end;
@@ -450,14 +453,17 @@
                 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 * 3 div 2; // air friction. slows it down when not hitting stuff
                 gear^.Tag:= 0;
-                gear^.RenderTimer:= true;
                 if gear^.Timer = 0 then
                     begin
                     if cMinesTime < 0 then
-                        gear^.Timer:= getrandom(13)*100
+                        begin
+                        gear^.Timer:= getrandom(13)*100;
+                        gear^.Karma:= 1;
+                        end
                     else
-                        gear^.Timer:= cMinesTime div 4
+                        gear^.Timer:= cMinesTime div 4;
                     end;
+                gear^.RenderTimer:= true;
                 gear^.WDTimer:= gear^.Timer
                 end;
        gtSMine: begin