diff -r 16322d14f068 -r 79c411363184 hedgewars/uMisc.pas --- 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);