hedgewars/uGears.pas
changeset 5558 49cfd05ccb83
parent 5556 5b8ca3955834
child 5563 fc73b6e941f7
--- a/hedgewars/uGears.pas	Sat Aug 13 21:06:51 2011 +0200
+++ b/hedgewars/uGears.pas	Sat Aug 13 22:46:47 2011 +0200
@@ -853,6 +853,12 @@
                     if cHealthDecrease <> 0 then
                         begin
                         SuddenDeathDmg:= true;
+                        
+                        // flash
+                        ScreenFade:= sfFromWhite;
+                        ScreenFadeValue:= sfMax;
+                        ScreenFadeSpeed:= 1;
+                        
                         ChangeToSDClouds;
                         ChangeToSDFlakes;
                         glClearColor(SDSkyColor.r / 255, SDSkyColor.g / 255, SDSkyColor.b / 255, 0.99);