diff -r e3a2a39a8277 -r cfdbddc4b385 hedgewars/uConsole.pas --- 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;