--- a/hedgewars/uCaptions.pas	Wed Nov 14 00:23:29 2012 +0100
+++ b/hedgewars/uCaptions.pas	Thu Nov 22 00:41:53 2012 +0100
@@ -30,6 +30,8 @@
 procedure initModule;
 procedure freeModule;
 
+implementation
+uses uTextures, uRenderUtils, uVariables, uRender;
 
 type TCaptionStr = record
     Tex: PTexture;
@@ -40,11 +42,9 @@
 var
     Captions: array[TCapGroup] of TCaptionStr;
 
-implementation
-uses uTextures, uRenderUtils, uVariables, uRender;
-
 procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);
 begin
+    if cOnlyStats then exit;
     if Length(s) = 0 then
         exit;
     if Captions[Group].Text <> s then