SRL Archive - First Scripts

This is my First Release of one of the scripts i have made, i'm not sure if anyone else has made a script like this but if they have tell me.

What this script does is its jsut a countdown Timer, you can input what ever time you want (only currently supports seconds, minutes and hours). if you want, i can put in days(but who would want to?), tell me if you like it :)

*Update* Ok well i updated it,so now every 60 seconds it will cleardebug and when you start it, hope you guys like it :) *Update*

If i don't get results then i'm taking it off

Nice i always wanted something that would play a sound for me while im on main not scripting and just mining mages so i know when to click again thanks ill try it out

Cool, I might use it ^^

Nice for a first script. Only one thing: How about ClearDebug; each WriteLn('*mins*'); so your whole scar doesn't get flooded out with messages :)

Please use SCAR Standards, and I think there may already be a procedure like this in SRL?
EDIT: 666th post.

This could be a good for a farming timer.

Standardized (sort of)

//~~~~~~~~~~~~~~~~Script Name: Mal1t1a's Countdown Timer~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~Version number: 1.1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~Creator's Name: Mal1t1a~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~Setup Lines 10-12~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~[url]http://www.Mal1t1a.tk~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\[/url]
program count_down_timer;
var
  s,m,h,done:integer;

procedure settime;
begin
  s:=0;//set your Seconds Here
  m:=5;//set your Minutes Here
  h:=0;//set your Hours Here
end;










//Don't go below unless you know what you are doing!!!!








procedure time;
begin
  writeln('----------------------------------------------');
  writeln('----------------CountDown Timer---------------');
  writeln('--------------Created By: Mal1t1a-------------');
  writeln('--------------Version Number: 1.1-------------');
  writeln('----------------------------------------------');
  writeln('');
  repeat
    wait(1000);
    s:=s-1
    if(s<0)then
    begin
      s:=60;
      m:=m-1
      if(m<0)then
      begin
        m:=60;
        h:=h-1;
      end;
      if(h=0)then
      begin
        h:=0;
        if(m=0)then
          m:=0;
        if(s=0)then
          s:=0
      end;
    end;
    DeleteDebugLine(GetDebugLineCount - 1);
    writeln('time left = '+inttostr(s)+' Seconds '+inttostr(m)+
    ' Minutes '+inttostr(h)+' Hours');
    if(s=0)then
    begin
      if(m=0)then
      begin
        if(h=0)then
        begin
          sleep(10);
          playsound('tada');
          done:=1;
          sleep(10);
        end;
      end;
    end;
  until(done=1);
end;

begin
  settime
  time
  writeln('----------------------------------------------');
  writeln('----------------CountDown Timer---------------');
  writeln('--------------Created By: Mal1t1a-------------');
  writeln('--------------Version Number: 1.1-------------');
  writeln('----------------------------------------------');
end.

Pretty good.