hedgewars/uVisualGears.pas
changeset 13053 9dd724e8d620
parent 12707 0dfb49261cab
child 13156 deab88f1f6f7
equal deleted inserted replaced
13052:eadf8259306f 13053:9dd724e8d620
   511 var       i: LongInt;
   511 var       i: LongInt;
   512     vg, tmp: PVisualGear;
   512     vg, tmp: PVisualGear;
   513 begin
   513 begin
   514 if (cReducedQuality and rqKillFlakes) <> 0 then
   514 if (cReducedQuality and rqKillFlakes) <> 0 then
   515     exit;
   515     exit;
   516 if vobCount = vobSDCount then
   516 if (vobCount = vobSDCount) and (vobFrameTicks = vobSDFrameTicks) and
       
   517         (vobFramesCount = vobSDFramesCount) and (vobVelocity = vobSDVelocity) and
       
   518         (vobFallSpeed = vobSDFallSpeed) then
   517     exit;
   519     exit;
   518 for i:= 0 to 6 do
   520 for i:= 0 to 6 do
   519     begin
   521     begin
   520     vg:= VisualGearLayers[i];
   522     vg:= VisualGearLayers[i];
   521     while vg <> nil do
   523     while vg <> nil do