hedgewars/uVisualGears.pas
changeset 6289 95ffd59d0f4a
parent 6288 fcc50b96d20a
child 6291 cfd2483b8c97
equal deleted inserted replaced
6288:fcc50b96d20a 6289:95ffd59d0f4a
   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 cFlattenFlakes then gear^.Layer:= 0
   340     vgtFlake: if cFlattenFlakes then gear^.Layer:= 0
   341               else if random(2) = 0 then gear^.Layer:= 0   // 50%
   341               else if random(3) <> 0 then gear^.Layer:= 0   // 66%
   342               else if random(2) = 0 then gear^.Layer:= 1  // 25%
   342               else if random(3) <> 0 then gear^.Layer:= 1  // 22%
   343               else gear^.Layer:= random(2)+2;  // 12.5% each
   343               else gear^.Layer:= random(2)+2;  // 6% each
   344 
   344 
   345     // 0: this layer is very distant in the background when stereo
   345     // 0: this layer is very distant in the background when stereo
   346     vgtTeamHealthSorter,
   346     vgtTeamHealthSorter,
   347     vgtSmoothWindBar,
   347     vgtSmoothWindBar,
   348     vgtCloud: gear^.Layer:= 0;
   348     vgtCloud: gear^.Layer:= 0;