SRL Archive - Other Scripts

Yes, have you ever got bored waiting for somthing? Didn't want to go do somthing else incase your too late to get the download/check to much? Well, here's the script for you! Just have sound up. :P

const
  MTW = 1; // Minutes to wait

var
  a : Integer;

procedure MinsToWait;
begin
  a := MTW;
  repeat
    WriteLn('Minutes remaining: ' + IntToStr(a));
    Sleep(60000)
    a := a - 1;
  until(a = 0);
  WriteLn('Minutes remaining: ' + IntToStr(a));
  PlaySound('C:\WINDOWS\Media\Windows XP Shutdown.wav');
end;

begin
  MinsToWait;
end.