hedgewars/uWorld.pas
changeset 2712 8f4527c9137c
parent 2704 51cda17b7c3b
child 2713 71250942e95b
equal deleted inserted replaced
2711:e90b4e189be9 2712:8f4527c9137c
   647 Captions[Group].Tex:= RenderStringTex(s, Color, fntBig);
   647 Captions[Group].Tex:= RenderStringTex(s, Color, fntBig);
   648 
   648 
   649 case Group of
   649 case Group of
   650 	capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200
   650 	capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200
   651 	else
   651 	else
   652 	Captions[Group].EndTime:= RealTicks + 1570
   652 	Captions[Group].EndTime:= RealTicks + 1400 + Captions[Group].Tex^.w*3;
   653 	end;
   653 	end;
   654 end;
   654 end;
   655 
   655 
   656 procedure MoveCamera;
   656 procedure MoveCamera;
   657 const PrevSentPointTime: LongWord = 0;
   657 const PrevSentPointTime: LongWord = 0;