hedgewars/uWorld.pas
changeset 4835 a6924450e694
parent 4810 76315fdfb7a5
child 4844 20b81fafd236
--- a/hedgewars/uWorld.pas	Wed Jan 12 22:02:43 2011 +0300
+++ b/hedgewars/uWorld.pas	Wed Jan 12 20:31:55 2011 +0100
@@ -601,8 +601,10 @@
             HorizontOffset:= HorizontOffset + ((ScreenBottom-SkyOffset) div 20);
 
         // background
+        if SuddenDeathDmg then Tint(SDTint, SDTint, SDTint, $FF);
         DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset);
         DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
+        if SuddenDeathDmg then Tint($FF, $FF, $FF, $FF);
     end;
 
     DrawVisualGears(0);