--- a/hedgewars/uGearsList.pas	Fri Nov 14 17:00:47 2014 +0300
+++ b/hedgewars/uGearsList.pas	Sat Nov 15 01:30:40 2014 +0300
@@ -247,10 +247,10 @@
                 //gear^.Tint:= (($e0+random(32)) shl 24) or
                 //             ((random(80)+128) shl 16) or
                 //             (($d5+random(32)) shl 8) or $ff
-                c:= GetRandom(32);
+                {c:= GetRandom(32);
                 gear^.Tint:= (($e0+c) shl 24) or
                              ((GetRandom(90)+128) shl 16) or
-                             (($d5+c) shl 8) or $ff
+                             (($d5+c) shl 8) or $ff}
                 end;
        gtShell: begin
                 gear^.Elasticity:= _0_8;