SRL Archive - OSR Help

Is there a way to display how long scar has been running in the debug box? Also how long part of the script has been running? Particularly a series or section in the main loop? Also a way for it to average the continuation of that loop with the previous runs?

{$i SRL/SRL.scar}
var
  x, i, lolwut: Integer;

procedure wat;
var
  T: Integer;
begin
  T := 0;
  MarkTime(T); //Starts the 'counter.'
  Wait(Random(1000));
  x := TimeFromMark(T); //Gets the time since the 'counter' was started.
end;

procedure TheTimeIs;
var
  h, m, s, ms: Word;
begin
  DecodeTime(Now, h, m, s, ms);
  {
  if(h > 12)then
  begin
    h := h - 12;
    Writeln(IntToStr(h) + ':' + IntToStr(m) + ':' + IntToStr(s) + ':' + IntToStr(ms) + ' PM');
    Exit;
  end;
  }
  //Remove the { and } to make it 12 hour format.
  Writeln(IntToStr(h) + ':' + IntToStr(m) + ':' + IntToStr(s) + ':' + IntToStr(ms));
end;

begin
  SetupSRL;
  Writeln(TimeRunning); //Returns how long it's been since SRL has been compiled. Disregards milliseconds, rounds down.
  Writeln(GetTimeRunning); //Returns how long it's been since the play button was pressed, so it's a little longer than TimeRunning
  repeat
    wat;
    IncEx(i, x);
    Inc(lolwut);
  until(lolwut > 1);
  Writeln(i / lolwut); //i is how many milliseconds it's been, lolwut is how many times the procedure ran, thus getting the average of i.
  Writeln(GetSystemTime); //Returns the system's time, but there is a better, easier to understand way.
  TheTimeIs; //Returns the system time in a sexier way. It's in a 24 hour format.
end.

If you include SRL then just do

WriteLn(TimeRunning);

It's in core/Timing.scar

Added TimeRunning and comments. :)

For i luffs yeww I get this

[Error]: Unable to find file 'SRL/SRL.scar' used from ''

For the others I get this

Line 3: [Error] (3:9): Unknown identifier 'TimingRunning' in script 

From: death12652

Line 3: [Error] (3:9): Unknown identifier 'TimingRunning' in script 

TimeRunning not TimingRunning. You can also use GetTimeRunning to return the integer number of milliseconds since the script started.

eg.

WriteLn(TimeRunning);

or

Writeln(GetTimeRunning);

Also, you have to run mine in Simba.