hedgewars/hwengine.pas
changeset 11835 8f7e28428f3e
parent 11834 16d6da04f7a2
child 11841 6adf27e85cae
child 11853 837f9f1b84a5
--- a/hedgewars/hwengine.pas	Tue Jun 21 15:37:08 2016 -0400
+++ b/hedgewars/hwengine.pas	Tue Jun 21 22:03:09 2016 +0200
@@ -52,22 +52,6 @@
 procedure freeEverything(complete:boolean); forward;
 {$ENDIF}
 
-// 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;
@@ -112,7 +96,6 @@
                 with TeamsArray[t]^ do
                     MaxTeamHealth:= TeamHealth;
             RecountAllTeamsHealth;
-            //if not cOnlyStats then ShowCredits;
             GameState:= gsGame;
             end;
         gsConfirm, gsGame, gsChat: