hedgewars/uCaptions.pas
changeset 6382 0e76c5cd4250
parent 6379 ef4288298e57
child 6383 c34a8b98d78c
equal deleted inserted replaced
6381:5f3412f6809e 6382:0e76c5cd4250
    61         capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200
    61         capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200
    62     else
    62     else
    63         Captions[Group].EndTime:= RealTicks + 1400 + LongWord(Captions[Group].Tex^.w) * 3;
    63         Captions[Group].EndTime:= RealTicks + 1400 + LongWord(Captions[Group].Tex^.w) * 3;
    64     end;
    64     end;
    65 end;
    65 end;
       
    66 
    66 // For uStore texture recreation
    67 // For uStore texture recreation
    67 procedure ReloadCaptions;
    68 procedure ReloadCaptions;
    68 var Group: TCapGroup;
    69 var Group: TCapGroup;
    69 begin
    70 begin
    70 for Group:= Low(TCapGroup) to High(TCapGroup) do
    71 for Group:= Low(TCapGroup) to High(TCapGroup) do