--- a/hedgewars/uMisc.pas	Sat Mar 27 12:05:01 2010 +0000
+++ b/hedgewars/uMisc.pas	Sat Mar 27 14:03:30 2010 +0000
@@ -38,6 +38,7 @@
     isSEBackup      : boolean;
     isInMultiShoot  : boolean;
     isSpeed         : boolean;
+    isFirstFrame    : boolean;
 
     fastUntilLag    : boolean;
 
@@ -126,6 +127,10 @@
 
     TextureList : PTexture;
 
+    ScreenFade : TScreenFade;
+    ScreenFadeValue : Longword;
+    ScreenFadeSpeed : Longword;
+
 
 procedure initModule;
 procedure freeModule;
@@ -554,6 +559,11 @@
 begin
 playSound(sndShutter);
 
+// flash
+ScreenFade:= sfFromWhite;
+ScreenFadeValue:= sfMax;
+ScreenFadeSpeed:= 5;
+
 size:= cScreenWidth * cScreenHeight * 3;
 p:= GetMem(size);
 
@@ -715,6 +725,7 @@
     isInMultiShoot  := false;
     isSpeed         := false;
     fastUntilLag    := false;
+    isFirstFrame    := true;
     cVSyncInUse     := true;    
     isSoundEnabled  := true;
     isSEBackup      := true;
@@ -735,6 +746,8 @@
     cHasFocus       := true;
     cInactDelay     := 1250;
     cAltDamage      := true;
+
+    ScreenFade      := sfNone;
 {$IFDEF DEBUGFILE}
 {$I-}
 {$IFDEF IPHONEOS}