hedgewars/uConsole.pas
changeset 4046 cfdbddc4b385
parent 4003 ca0600ab38bf
child 4143 eb7981f34800
--- a/hedgewars/uConsole.pas	Sun Oct 31 00:32:41 2010 -0400
+++ b/hedgewars/uConsole.pas	Sun Oct 31 12:19:54 2010 -0400
@@ -90,22 +90,22 @@
     done: boolean;
 begin
 {$IFNDEF NOCONSOLE}
-    {$IFDEF DEBUGFILE}AddFileLog('Console write: ' + s);{$ENDIF}
-    Write(s);
-    done:= false;
+{$IFDEF DEBUGFILE}AddFileLog('Console write: ' + s);{$ENDIF}
+Write(s);
+done:= false;
 
-    while not done do
+while not done do
     begin
-        Len:= cLineWidth - Length(ConsoleLines[CurrLine].s);
-        SetLine(ConsoleLines[CurrLine], ConsoleLines[CurrLine].s + copy(s, 1, Len));
-        Delete(s, 1, Len);
-        if byte(ConsoleLines[CurrLine].s[0]) = cLineWidth then
+    Len:= cLineWidth - Length(ConsoleLines[CurrLine].s);
+    SetLine(ConsoleLines[CurrLine], ConsoleLines[CurrLine].s + copy(s, 1, Len));
+    Delete(s, 1, Len);
+    if byte(ConsoleLines[CurrLine].s[0]) = cLineWidth then
         begin
-            inc(CurrLine);
-            if CurrLine = cLinesCount then CurrLine:= 0;
-            PByte(@ConsoleLines[CurrLine].s)^:= 0
+        inc(CurrLine);
+        if CurrLine = cLinesCount then CurrLine:= 0;
+        PByte(@ConsoleLines[CurrLine].s)^:= 0
         end;
-        done:= (Length(s) = 0);
+    done:= (Length(s) = 0);
     end;
 {$ENDIF}
 end;
@@ -113,12 +113,12 @@
 procedure WriteLnToConsole(s: shortstring);
 begin
 {$IFNDEF NOCONSOLE}
-    WriteToConsole(s);
-    WriteLn;
-    inc(CurrLine);
-    if CurrLine = cLinesCount then
-        CurrLine:= 0;
-    PByte(@ConsoleLines[CurrLine].s)^:= 0
+WriteToConsole(s);
+WriteLn;
+inc(CurrLine);
+if CurrLine = cLinesCount then
+    CurrLine:= 0;
+PByte(@ConsoleLines[CurrLine].s)^:= 0
 {$ENDIF}
 end;