--- a/hedgewars/uGearsList.pas	Wed Nov 12 22:47:43 2014 +0900
+++ b/hedgewars/uGearsList.pas	Fri Nov 14 17:00:47 2014 +0300
@@ -247,9 +247,9 @@
                 //gear^.Tint:= (($e0+random(32)) shl 24) or
                 //             ((random(80)+128) shl 16) or
                 //             (($d5+random(32)) shl 8) or $ff
-                c:= random(32);
+                c:= GetRandom(32);
                 gear^.Tint:= (($e0+c) shl 24) or
-                             ((random(90)+128) shl 16) or
+                             ((GetRandom(90)+128) shl 16) or
                              (($d5+c) shl 8) or $ff
                 end;
        gtShell: begin