hedgewars-draft: comparison hedgewars/uVisualGears.pas

equal deleted inserted replaced

-:914f04315f21
+:ab79cd4a7382
 if Steps = 0 then
 exit;
 for i:= 0 to 6 do
 begin
-t:= VisualGearLayers[i];
+t:= VisualGearLayersStart[i];
 while t <> nil do
 begin
 Gear:= t;
 t:= Gear^.NextGear;
 Gear^.doStep(Gear, Steps)
 if (vobCount = 0) or (vobCount > 200) then
 exit;
 for i:= 2 to 6 do
 if i <> 3 then
 begin
-t:= VisualGearLayers[i];
+t:= VisualGearLayersStart[i];
 while t <> nil do
 begin
 Gear:= t;
 if Gear^.Kind = vgtFlake then
 begin
 speedlessFlakes:= (vobVelocity = 0);
 case Layer of
 // this layer is very distant in the background when stereo
 0: begin
-Gear:= VisualGearLayers[0];
+Gear:= VisualGearLayersStart[0];
 while Gear <> nil do
 begin
 if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
 case Gear^.Kind of
 vgtCloud: begin
 Gear:= Gear^.NextGear
 end
 end;
 // this layer is on the land level (which is close but behind the screen plane) when stereo
 1: begin
-Gear:= VisualGearLayers[1];
+Gear:= VisualGearLayersStart[1];
 while Gear <> nil do
 begin
 if Gear^.Tint <> $FFFFFFFF then
 Tint(Gear^.Tint);
 case Gear^.Kind of
 Gear:= Gear^.NextGear
 end
 end;
 // this layer is on the screen plane (depth = 0) when stereo
 3: begin
-Gear:= VisualGearLayers[3];
+Gear:= VisualGearLayersStart[3];
 while Gear <> nil do
 begin
 tinted:= false;
 if Gear^.Tint <> $FFFFFFFF then
 Tint(Gear^.Tint);
 Gear:= Gear^.NextGear
 end
 end;
 // this layer is outside the screen when stereo
 2: begin
-Gear:= VisualGearLayers[2];
+Gear:= VisualGearLayersStart[2];
 while Gear <> nil do
 begin
 tinted:= false;
 if Gear^.Tint <> $FFFFFFFF then
 Tint(Gear^.Tint);
 Gear:= Gear^.NextGear
 end
 end;
 // this layer is half-way between the screen plane (depth = 0) when in stereo, and the land
 4: begin
-Gear:= VisualGearLayers[4];
+Gear:= VisualGearLayersStart[4];
 while Gear <> nil do
 begin
 if Gear^.Tint <> $FFFFFFFF then
 Tint(Gear^.Tint);
 case Gear^.Kind of
 Gear:= Gear^.NextGear
 end
 end;
 // this layer is on the screen plane (depth = 0) when stereo, but just behind the land
 5: begin
-Gear:= VisualGearLayers[5];
+Gear:= VisualGearLayersStart[5];
 while Gear <> nil do
 begin
 if Gear^.Tint <> $FFFFFFFF then
 Tint(Gear^.Tint);
 case Gear^.Kind of
 Gear:= Gear^.NextGear
 end
 end;
 // this layer is on the screen plane (depth = 0) when stereo, but just in front of the land
 6: begin
-Gear:= VisualGearLayers[6];
+Gear:= VisualGearLayersStart[6];
 while Gear <> nil do
 begin
 if Gear^.Tint <> $FFFFFFFF then
 Tint(Gear^.Tint);
 case Gear^.Kind of
 begin
 if cCloudsNumber = cSDCloudsNumber then
 exit;
 for i:= 0 to 6 do
 begin
-vg:= VisualGearLayers[i];
+vg:= VisualGearLayersStart[i];
 while vg <> nil do
 if vg^.Kind = vgtCloud then
 begin
 tmp:= vg^.NextGear;
 DeleteVisualGear(vg);
 (vobFramesCount = vobSDFramesCount) and (vobVelocity = vobSDVelocity) and
 (vobFallSpeed = vobSDFallSpeed) then
 exit;
 for i:= 0 to 6 do
 begin
-vg:= VisualGearLayers[i];
+vg:= VisualGearLayersStart[i];
 while vg <> nil do
 if vg^.Kind = vgtFlake then
 begin
 tmp:= vg^.NextGear;
 DeleteVisualGear(vg);
 procedure initModule;
 var i: LongWord;
 begin
 VGCounter:= 0;
 for i:= 0 to 6 do
-VisualGearLayers[i]:= nil;
+begin
+VisualGearLayersStart[i]:= nil;
+VisualGearLayersEnd[i]:= nil;
+end;
 end;
 procedure freeModule;
 var i: LongWord;
 begin
 VGCounter:= 0;
 for i:= 0 to 6 do
-while VisualGearLayers[i] <> nil do DeleteVisualGear(VisualGearLayers[i]);
+while VisualGearLayersStart[i] <> nil do DeleteVisualGear(VisualGearLayersStart[i]);
 end;
 end.

changeset 14605	ab79cd4a7382
parent 14593	34e810295d08
child 15607	f8c1492601fe