hedgewars/uWorld.pas
changeset 4835 a6924450e694
parent 4810 76315fdfb7a5
child 4844 20b81fafd236
equal deleted inserted replaced
4834:3763a386a427 4835:a6924450e694
   599         HorizontOffset:= SkyOffset;
   599         HorizontOffset:= SkyOffset;
   600         if ScreenBottom > SkyOffset then
   600         if ScreenBottom > SkyOffset then
   601             HorizontOffset:= HorizontOffset + ((ScreenBottom-SkyOffset) div 20);
   601             HorizontOffset:= HorizontOffset + ((ScreenBottom-SkyOffset) div 20);
   602 
   602 
   603         // background
   603         // background
       
   604         if SuddenDeathDmg then Tint(SDTint, SDTint, SDTint, $FF);
   604         DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset);
   605         DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset);
   605         DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
   606         DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
       
   607         if SuddenDeathDmg then Tint($FF, $FF, $FF, $FF);
   606     end;
   608     end;
   607 
   609 
   608     DrawVisualGears(0);
   610     DrawVisualGears(0);
   609 
   611 
   610     if (cReducedQuality and rq2DWater) = 0 then
   612     if (cReducedQuality and rq2DWater) = 0 then