hedgewars/hwengine.pas
changeset 11776 f2031643fe98
parent 11772 927c45b83496
child 11828 a69124eb7ce7
child 11834 16d6da04f7a2
equal deleted inserted replaced
11775:ee85798d6974 11776:f2031643fe98
    58 begin
    58 begin
    59     if Length(cMapName) > 0 then
    59     if Length(cMapName) > 0 then
    60         begin
    60         begin
    61         mapCredits:= read1stLn(cPathz[ptMapCurrent] + '/credits.txt');
    61         mapCredits:= read1stLn(cPathz[ptMapCurrent] + '/credits.txt');
    62         if Length(mapCredits) > 0 then
    62         if Length(mapCredits) > 0 then
    63             AddChatString(char(6) + '© Map: ' + mapCredits);
    63             AddChatString(char(#11) + '© Map: ' + mapCredits);
    64         end;
    64         end;
    65 
    65 
    66         themeCredits:= read1stLn(cPathz[ptCurrTheme] + '/credits.txt');
    66         themeCredits:= read1stLn(cPathz[ptCurrTheme] + '/credits.txt');
    67         if Length(themeCredits) > 0 then
    67         if Length(themeCredits) > 0 then
    68             AddChatString(char(8) + '© Theme: ' + themeCredits);
    68             AddChatString(char(#12) + '© Theme: ' + themeCredits);
    69 end;
    69 end;
    70 
    70 
    71 ///////////////////////////////////////////////////////////////////////////////
    71 ///////////////////////////////////////////////////////////////////////////////
    72 function DoTimer(Lag: LongInt): boolean;
    72 function DoTimer(Lag: LongInt): boolean;
    73 var s: shortstring;
    73 var s: shortstring;