Timer?

[ZaSz]

I need a timer procedure. But i need to know how to make one so i dont have to give credits.

[Harry]

You mean like this?

program New;
{.include SRL/SRL.scar}
var
StartMark, PlayCount :integer;

begin
  SetupSRL;
  MarkTime(StartMark);
  ClearDebug;
  repeat
    Wait(5);
    ClearDebug;
    WriteLn('Total time spent : '+TimeRunning);
  until (TimeFromMark(StartMark) > 360000); //Mins: Mins * 60, add 3 zeros, onto the end.
  //Hours: Hours * 60 * 60, add three zeros onto the end.
  //Default here is 3 hours :D ( I was cooking Jello )
  Writeln('Sigh.. all done counting down. ');
  repeat
    PlayCount := PlayCount + 1;
    PlaySound('C:\WINDOWS\Media\WindowsXPStartup.wav');
    Wait(4000);
  until PlayCount > 100;
  Writeln('Done?! >:)');
end.

[ZaSz]

I Did it thanks you guys! Now i added a timer for my script.

[lakerzz8]

I need a timer procedure. But i need to know how to make one so i dont have to give credits.

What's wrong with giving credits?

[ZaSz]

What's wrong with giving credits?

I just wanted to know how to make my own... That way i don't have to give credits.