hedgewars/uWorld.pas
changeset 2142 48ed98cfd119
parent 2139 5a083e71a71d
child 2152 a2811690da1b
--- a/hedgewars/uWorld.pas	Mon Jun 01 18:30:48 2009 +0000
+++ b/hedgewars/uWorld.pas	Mon Jun 01 20:38:45 2009 +0000
@@ -446,11 +446,16 @@
 
 procedure AddCaption(s: string; Color: Longword; Group: TCapGroup);
 begin
-if Group in [capgrpGameState, capgrpNetSay] then WriteLnToConsole(s);
+//if Group in [capgrpGameState] then WriteLnToConsole(s);
 if Captions[Group].Tex <> nil then FreeTexture(Captions[Group].Tex);
 
 Captions[Group].Tex:= RenderStringTex(s, Color, fntBig);
-Captions[Group].EndTime:= RealTicks + 1500
+
+case Group of
+	capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200
+	else
+	Captions[Group].EndTime:= RealTicks + 1570
+	end;
 end;
 
 procedure MoveCamera;