hedgewars/uStats.pas
changeset 7932 ebe1d112e439
parent 7857 2bc61f8841a1
child 7977 4987f6f83cdf
child 8717 6e1ccd678e8a
--- a/hedgewars/uStats.pas	Fri Nov 02 20:57:20 2012 +0100
+++ b/hedgewars/uStats.pas	Fri Nov 02 20:59:57 2012 +0100
@@ -36,7 +36,7 @@
 procedure hedgehogFlight(Gear: PGear; time: Longword);
 
 implementation
-uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc;
+uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole;
 
 var DamageClan  : Longword = 0;
     DamageTotal : Longword = 0;
@@ -185,12 +185,10 @@
 begin
 if time > 4000 then
     begin
-	{$IFNDEF MOBILE}
-    writeln(stdout, 'FLIGHT');
-    writeln(stdout, Gear^.Hedgehog^.Team^.TeamName);
-    writeln(stdout, inttostr(time));
-    writeln(stdout, '');
-	{$ENDIF}
+    WriteLnToConsole('FLIGHT');
+    WriteLnToConsole(Gear^.Hedgehog^.Team^.TeamName);
+    WriteLnToConsole(inttostr(time));
+    WriteLnToConsole( '');
     end
 end;
 
@@ -292,19 +290,17 @@
 if KilledHHs > 0 then
     SendStat(siKilledHHs, IntToStr(KilledHHs));
 
-{$IFNDEF MOBILE}
 // now to console
 if winnersClan <> nil then 
     begin
-    writeln(stdout, 'WINNERS');
+    WriteLnToConsole('WINNERS');
     for t:= 0 to winnersClan^.TeamsNumber - 1 do
-        writeln(stdout, winnersClan^.Teams[t]^.TeamName);
+        WriteLnToConsole(winnersClan^.Teams[t]^.TeamName);
     end
 else
-    writeln(stdout, 'DRAW');
+    WriteLnToConsole('DRAW');
 
-writeln(stdout, '');
-{$ENDIF}
+WriteLnToConsole('');
 end;
 
 procedure initModule;