SRL Archive - OSR Help

I remember that it's in SRL_Procs but can't remember how to do it, any help?

In my repeat I put

 SetScriptProp(SP_WriteTimeStamp, [True]);  

So my repeat looks like:

repeat
 SetScriptProp(SP_WriteTimeStamp, [True]);
 FindRock;
 until false
 Freedtm(IronOre);
 FreeBitmap(DropOre);
end.

Yess that's what I was thinking of!
Thank youuuuu!

found: keyword 'TimeStamp'; section: help

result [show code] - snippet author = Dgby714;

function TimeStamp: string;
var
  Time: TDateTime;
  H, M, S, MS: word;
begin
  Time := Now;
  DecodeTime(Time, H, M, S, MS);
  Result := Padz(IntToStr(H), 2) + ':' + Padz(IntToStr(M), 2) + ':' + Padz(IntToStr(S), 2);
end; 

Np, I just learned how to do it yesturday