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.