hedgewars/uVisualGears.pas
changeset 6184 335ece2bce9c
parent 6179 b529f88d37d0
child 6288 fcc50b96d20a
equal deleted inserted replaced
6183:46895724fd7f 6184:335ece2bce9c
   335         end;
   335         end;
   336 
   336 
   337 if State <> 0 then gear^.State:= State;
   337 if State <> 0 then gear^.State:= State;
   338 
   338 
   339 case Gear^.Kind of
   339 case Gear^.Kind of
   340     vgtFlake: if random(2) = 0 then gear^.Layer:= 0
   340     vgtFlake: if random(2) = 0 then gear^.Layer:= 0   // 50%
   341               else gear^.Layer:= random(3)+1;
   341               else if random(2) = 0 then gear^.Layer:= 1  // 25%
       
   342               else gear^.Layer:= random(2)+2;  // 12.5% each
   342 
   343 
   343     // 0: this layer is very distant in the background when stereo
   344     // 0: this layer is very distant in the background when stereo
   344     vgtTeamHealthSorter,
   345     vgtTeamHealthSorter,
   345     vgtSmoothWindBar,
   346     vgtSmoothWindBar,
   346     vgtCloud: gear^.Layer:= 0;
   347     vgtCloud: gear^.Layer:= 0;