hedgewars/uWorld.pas
branchexperimental3D
changeset 4844 20b81fafd236
parent 4818 202eef454354
parent 4835 a6924450e694
child 4850 434cd1284204
equal deleted inserted replaced
4818:202eef454354 4844:20b81fafd236
   756         if ScreenBottom > SkyOffset then
   756         if ScreenBottom > SkyOffset then
   757             HorizontOffset:= HorizontOffset + ((ScreenBottom-SkyOffset) div 20);
   757             HorizontOffset:= HorizontOffset + ((ScreenBottom-SkyOffset) div 20);
   758 
   758 
   759         // background
   759         // background
   760         ChangeDepth(RM, cStereo_Sky);
   760         ChangeDepth(RM, cStereo_Sky);
       
   761         if SuddenDeathDmg then Tint(SDTint, SDTint, SDTint, $FF);
   761         DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset);
   762         DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset);
   762         ChangeDepth(RM, -cStereo_Horizon);
   763         ChangeDepth(RM, -cStereo_Horizon);
   763         DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
   764         DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
       
   765         if SuddenDeathDmg then Tint($FF, $FF, $FF, $FF);
   764     end;
   766     end;
   765 
   767 
   766     DrawVisualGears(0);
   768     DrawVisualGears(0);
   767 
   769 
   768     if (cReducedQuality and rq2DWater) = 0 then
   770     if (cReducedQuality and rq2DWater) = 0 then