hedgewars/uWorld.pas
changeset 2735 f2008d0ce3f8
parent 2724 601158aaa201
child 2747 7889a3a9724f
equal deleted inserted replaced
2734:fb9ad1587054 2735:f2008d0ce3f8
   652 Captions[Group].Tex:= RenderStringTex(s, Color, fntBig);
   652 Captions[Group].Tex:= RenderStringTex(s, Color, fntBig);
   653 
   653 
   654 case Group of
   654 case Group of
   655 	capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200
   655 	capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200
   656 	else
   656 	else
   657 	Captions[Group].EndTime:= RealTicks + 1400 + Captions[Group].Tex^.w*3;
   657 	Captions[Group].EndTime:= RealTicks + 1400 + LongWord(Captions[Group].Tex^.w) * 3;
   658 	end;
   658 	end;
   659 end;
   659 end;
   660 
   660 
   661 procedure MoveCamera;
   661 procedure MoveCamera;
   662 const PrevSentPointTime: LongWord = 0;
   662 const PrevSentPointTime: LongWord = 0;