hedgewars/uVisualGears.pas
changeset 6291 cfd2483b8c97
parent 6289 95ffd59d0f4a
child 6302 db8bdbb34e03
equal deleted inserted replaced
6290:c6245ed6cbc0 6291:cfd2483b8c97
   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(3) <> 0 then gear^.Layer:= 0   // 66%
   341               else if random(3) <> 0 then gear^.Layer:= 0   // 67%
   342               else if random(3) <> 0 then gear^.Layer:= 1  // 22%
   342               else if random(3) <> 0 then gear^.Layer:= 1  // 22%
   343               else gear^.Layer:= random(2)+2;  // 6% 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,