SRL Archive - OSR Help

I found this in my search, but it seems to be a scar function and I need one for simba

GetDebugText

WriteFileString((Path + s +' DebugLog - ' + dat + '.txt'), GetDebugText);

Thanks for the help.

function OpenReportFile(): integer;
var
  fileName,Bot_SavePath: string;
begin

  Bot_SavePath := 'C:/Simba/'
  if (not directoryExists(Bot_SavePath)) then
    forceDirectories(Bot_SavePath);

  fileName := 'Fletcher Log.txt';
  fileName := Bot_SavePath + fileName;

  try
    if (fileExists(fileName)) then
      result := appendFile(fileName)
    else
      result := createFile(fileName);
  except
    writeln('OpenSRLLogFile: '+exceptionToString(exceptionType, exceptionParam));
  end;
end;
procedure AddReport(s: string);
var
  tmpFile: integer;
begin
  writeln(s);

  tmpFile := OpenReportFile();

  if (tmpFile >= 0) then
    try
     writeFileString(tmpFile, '['+msToTime(getTimeRunning(), TIME_BARE)+']: '+s+#13+#10);
    except
      Writeln('Error writing File');
    finally
      closeFile(tmpFile);
    end;
end;

And use

AddReport('---------------------------------------------');

to use, tell me if you need me to explain g2g real quick

will be egerly awaiting to see your reply when I get back from work in 8 hrs. Thx M8.

From: bud_wis_er_420
will be egerly awaiting to see your reply when I get back from work in 8 hrs. Thx M8.

Meh posted 15 seconds after you left -.-