--- a/hedgewars/uMisc.pas	Sun Dec 04 19:06:56 2005 +0000
+++ b/hedgewars/uMisc.pas	Mon Dec 05 21:46:15 2005 +0000
@@ -104,6 +104,7 @@
 procedure AdjustColor(var Color: Longword);
 {$IFDEF DEBUGFILE}
 procedure AddFileLog(s: shortstring);
+function RectToStr(Rect: TSDL_Rect): shortstring;
 {$ENDIF}
 
 var CursorPoint: TPoint;
@@ -138,7 +139,7 @@
    begin
    WriteLn(Msg);
    SDL_Quit;
-   Readln;
+//   Readln;
    halt(1)
    end else WriteLnToConsole(Msg)
 end;
@@ -199,6 +200,11 @@
 flush(f)
 end;
 
+function RectToStr(Rect: TSDL_Rect): shortstring;
+begin
+Result:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')'
+end;
+
 initialization
 assignfile(f, 'debug.txt');
 rewrite(f);