--- a/hedgewars/uUtils.pas Tue Feb 01 08:15:01 2011 +0100
+++ b/hedgewars/uUtils.pas Tue Feb 01 15:30:08 2011 +0100
@@ -35,11 +35,9 @@
function CheckCJKFont(s: ansistring; font: THWFont): THWFont;
-{$IFDEF DEBUGFILE}
procedure AddFileLog(s: shortstring);
-{$ENDIF}
-function CheckNoTeamOrHH: boolean; inline;
+function CheckNoTeamOrHH: boolean; inline;
function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt;
function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt;
@@ -231,13 +229,14 @@
end;
-{$IFDEF DEBUGFILE}
procedure AddFileLog(s: shortstring);
begin
+s:= s;
+{$IFDEF DEBUGFILE}
writeln(f, GameTicks: 6, ': ', s);
flush(f)
+{$ENDIF}
end;
-{$ENDIF}
function CheckCJKFont(s: ansistring; font: THWFont): THWFont;