--- a/hedgewars/uConsts.pas	Sat Mar 27 12:05:01 2010 +0000
+++ b/hedgewars/uConsts.pas	Sat Mar 27 14:03:30 2010 +0000
@@ -172,6 +172,9 @@
             PrevTexture, NextTexture: PTexture;
             end;
 
+    TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite);
+const sfMax = 1000;
+
 const
     // message constants
     errmsgCreateSurface   = 'Error creating SDL surface';