hedgewars/uVisualGears.pas
changeset 6184 335ece2bce9c
parent 6179 b529f88d37d0
child 6288 fcc50b96d20a
--- a/hedgewars/uVisualGears.pas	Sat Oct 22 10:59:06 2011 +0200
+++ b/hedgewars/uVisualGears.pas	Sat Oct 22 11:50:55 2011 -0400
@@ -337,8 +337,9 @@
 if State <> 0 then gear^.State:= State;
 
 case Gear^.Kind of
-    vgtFlake: if random(2) = 0 then gear^.Layer:= 0
-              else gear^.Layer:= random(3)+1;
+    vgtFlake: if random(2) = 0 then gear^.Layer:= 0   // 50%
+              else if random(2) = 0 then gear^.Layer:= 1  // 25%
+              else gear^.Layer:= random(2)+2;  // 12.5% each
 
     // 0: this layer is very distant in the background when stereo
     vgtTeamHealthSorter,