SCAR Code:LineCount := GetDebugLineCount;
Msg := 'Firstcolor: '+inttostr(firstcol)+', Nearest x, y: '+inttostr(firstpos.x)+', '+inttostr(firstpos.y)+', Time from *click* '+inttostr(getsystemtime - click)+' msec';
if Pos('irst', GetDebugLine(LineCount)) > 0 then
ReplaceDebugLine(LineCount, Msg)
else
Writeln(Msg);
I don't want it to spam "Msg", So I made this, but for my luck, it's not working...
Help?
Thanks.
Edit:
Closed, was missinginstead ofSCAR Code:LineCount := GetDebugLineCount - 1;SCAR Code:LineCount := GetDebugLineCount;



Reply With Quote