hedgewars/uWorld.pas
branchexperimental3D
changeset 4844 20b81fafd236
parent 4818 202eef454354
parent 4835 a6924450e694
child 4850 434cd1284204
--- a/hedgewars/uWorld.pas	Sun Jan 16 05:21:00 2011 +0100
+++ b/hedgewars/uWorld.pas	Mon Jan 17 01:43:10 2011 +0100
@@ -758,9 +758,11 @@
 
         // background
         ChangeDepth(RM, cStereo_Sky);
+        if SuddenDeathDmg then Tint(SDTint, SDTint, SDTint, $FF);
         DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset);
         ChangeDepth(RM, -cStereo_Horizon);
         DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);
+        if SuddenDeathDmg then Tint($FF, $FF, $FF, $FF);
     end;
 
     DrawVisualGears(0);