diff -r 2e836bebb518 -r 453917e94e55 hedgewars/uCaptions.pas --- 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