--- a/hedgewars/VGSHandlers.inc	Wed Sep 07 20:35:24 2011 -0400
+++ b/hedgewars/VGSHandlers.inc	Wed Sep 07 20:53:45 2011 -0400
@@ -604,6 +604,7 @@
     ShakeCamera(maxMovement);
     end;
 *)
+
 if Gear^.Timer > 250 then DeleteVisualGear(Gear);
 end;
 
@@ -612,6 +613,9 @@
     gX,gY: LongInt;
     vg: PVisualGear;
 begin
+ScreenFade:= sfFromWhite;
+ScreenFadeValue:= 250;
+ScreenFadeSpeed:= 5;
 gX:= round(Gear^.X);
 gY:= round(Gear^.Y);
 AddVisualGear(gX, gY, vgtSmokeRing);