SRL Archive - Research & Development Lounge

Function CountDownSeconds(Time: integer): boolean;
var
  Ti : integer;
begin
  Ti:= Time;
  repeat
    wait(1000);
    Ti := Ti -1;
    Writeln(inttostr(Ti));
  until(Ti = 0);
  result :=true;
end;

This script Does a countdown in seconds, pretty easy but maybe its usefull for beginners :)

Fill it in as:

CountDownSeconds(5);

5= time of seconds :)

V2 with sound!!! :

Function CountDownSeconds(Time: integer): boolean;
var
  Ti : integer;
begin
  Ti:= Time;
  repeat
    wait(1000);
    Ti := Ti -1;
    playSound('C:\WINDOWS\Media\ding.wav');
    Writeln(inttostr(Ti));
  until(Ti = 0);
  result :=true;
end;

V3 added 10 seconds later =P

Function CountDownSeconds(Time: integer): boolean;
var
  Ti : integer;
begin
  Ti:= Time;
  repeat
    wait(1000);
    Ti := Ti -1;
    playSound('C:\WINDOWS\Media\ding.wav');
    Writeln(inttostr(Ti));
  until(Ti = 0)
  result :=true;
  playSound('C:\WINDOWS\Media\tada.wav');
end;

plays nice sound after finishing the countdown

Easy huh? good luck

Uhh Whats The Point Of A Countdown Timer

Actualy i don't know :P you can see it countdown in the debug box… thats it ;P

O.o does anybody know where you could download some robotic/space rocket lounch/etc sounds - "one" "two"…

Would be damn cool XD

So then you could like Eight seconds until rock timeout :p Entertaining scripts

Why is it a function?

Function CountDownSeconds(Time: integer): boolean;
var
  I : integer;
begin
  for I := Time downto 1 do
  begin
    Wait(1000);
    WriteLn(IntToStr(I));
  end;
end;

w00t this is were i was searching for my whole life!!!(btw i leave tommorow ;))

From: n3ss3s
O.o does anybody know where you could download some robotic/space rocket lounch/etc sounds - "one" "two"…

Would be damn cool XD

So then you could like Eight seconds until rock timeout :p Entertaining scripts

Ill check for that on the internet ;P

From: Santa_Clause
Why is it a function?

Function CountDownSeconds(Time: integer): boolean;
var
  I : integer;
begin
  for I := Time downto 1 do
  begin
    Wait(1000);
    WriteLn(IntToStr(I));
  end;
end;

Yea possible to ;P

From: hermpie
w00t this is were i was searching for my whole life!!!(btw i leave tommorow ;))

Well here it is for your last day ;P

Added V2 with Sound ;P thanks n3ss3s for the idea.. note. this is just a sound of Windows XP not sure it works for Vista

very very very very unless

but fun!

the shounds rule ROFL

Nice, but I meant sounds like a robotic voice saying "One" etc xD


But they're maybe lil hard to get..

yes I think that to :)

couldn't find any -,-

From: hugolord
couldn't find any -,-

how you mean?

sounds i mean

From: hugolord
sounds i mean

are you using vista?

i guess he couldn't find count down sounds like

"5"
"4"
"3"

ect.

Wouldn't it be the same as

if TimeFromMark(MyMark) > (2 * 60 * 100) then

but without the sound?

Edit: NVM, I re-read the thread.

From: uncfan1119
Wouldn't it be the same as

if TimeFromMark(MyMark) > (2 * 60 * 100) then

but without the sound?

Edit: NVM, I re-read the thread.

Its more a wait ;P but then it makes cool beep sounds, and it writes in the Debug

I'm using vista, and it makes little beep noises during the countdown, then makes a "ta da" sound when it gets to 0.

Pretty cool function, but kinda pointless for use in scripts…

You could give the user "10" seconds to get SCAR hidden so it doesn't block stuff, and give them a verbal warning!

could be ;P