A Timer Script I made

As the title says, it times how long you have been botting. Where I have the comment tags ( (**) ) put your shit as defined by the comments them selves. I also added a hotkey so you can stop your script without saving it (Ctrl+S), its jokered to F8, you can change it to your liking but F8 doesn't do anything in IE.

Happy Botting. =) If you need to me to add years... Your pathetic... But, I will help you! =P

P.S. Hitting that 'Thanks' and Rep+ button never hurt anyone!

{.Script Info:
# ScriptName = Timer
# Author = s2h6699
# Description = It times how long you have been botting
# Version = 1
# Date = 3/21/2010
# Comments = Later I will add error checking for the Ss after the intervals time.
/Script Info}
program Timer;

var
loop,week,day,hour,minute,second:integer;
(*Your Vars*)


(**Your Procedures**)



begin
repeat
/////////////////////////////////////////////////////////////////////////
//////////////////////~~~~~~Your Code~~~~~///////////////////
////////////////////////////////////////////////////////////////////////

second:=second+1;
wait(1000);
if (second=60) then
begin
minute:=minute+1;
second:=0;
end;

if (minute=60) then
begin
hour:=hour+1;
minute:=0;
end;

if (hour=24) then
begin
day:=day+1;
hour:=0;
end;

if (day=24) then
begin
week:=week+1;
day:=0;
end;

if (week=2) then
begin
Writeln('Epic Fail on Your Life... Botting for a week straight? You have NO FUCKiN LiFE!! ...Or you have two computers and your using this one to bot.');
end;

loop:=loop+1
writeln('This has been error free for '+inttostr(week)+ ' week(s), '+inttostr(day)+ ' day(s), '+inttostr(hour)+' hour(s), ' +inttostr(minute)+ ' minute(s), and ' +inttostr(second)+ ' second(s).')

until (false) or (IsFKeyDown(8)) or (loop=(*Replace this number by how long you want it to go in seconds multiplied by 1000 [If applicable, of course]*))

end.