hedgewars/hwengine.pas
branchqmlfrontend
changeset 11841 6adf27e85cae
parent 11828 a69124eb7ce7
parent 11835 8f7e28428f3e
child 12855 1b2b84315d27
--- a/hedgewars/hwengine.pas	Tue May 17 23:29:49 2016 +0300
+++ b/hedgewars/hwengine.pas	Fri Jul 15 22:39:07 2016 +0300
@@ -42,22 +42,6 @@
 implementation
 uses uFLUICallback, uFLTypes;
 
-// TODO localization support
-procedure ShowCredits();
-var themeCredits, mapCredits: shortstring;
-begin
-    if Length(cMapName) > 0 then
-        begin
-        mapCredits:= read1stLn(cPathz[ptMapCurrent] + '/credits.txt');
-        if Length(mapCredits) > 0 then
-            AddChatString(char(#11) + '© Map: ' + mapCredits);
-        end;
-
-        themeCredits:= read1stLn(cPathz[ptCurrTheme] + '/credits.txt');
-        if Length(themeCredits) > 0 then
-            AddChatString(char(#12) + '© Theme: ' + themeCredits);
-end;
-
 ///////////////////////////////////////////////////////////////////////////////
 function DoTimer(Lag: LongInt): boolean;
 var s: shortstring;
@@ -102,7 +86,6 @@
                 with TeamsArray[t]^ do
                     MaxTeamHealth:= TeamHealth;
             RecountAllTeamsHealth;
-            if not cOnlyStats then ShowCredits;
             GameState:= gsGame;
             end;
         gsConfirm, gsGame, gsChat: