Results 1 to 12 of 12

Thread: Stopwatch Simulator

  1. #1
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default Stopwatch Simulator

    Read the commented space at the start of the script for a better understanding.

    Code:
    {
     ------------------------------------------------
                       Timer v.1
     ------------------------------------------------
     When you start the script, if the timer is paused,
              press shift and it will begin.
     ------------------------------------------------
     Just like a normal timer. Will wait 60 ms before
     adding 1 second, 60 seconds before 1 minute,
     60 minutes before 1 hour, 24 hours before 1 day.
     ------------------------------------------------
            To Pause : press shift quickly
            To Resume: press shift again.
     ------------------------------------------------
      Pressing control will add the current time to
      the report box under any other times. If the
      constance "ResOnCtrl" is true, the timer will
      begin from 0 again. If not, it will continue.
     ------------------------------------------------
     
                   Made By XxKanexX
    }
    
    const
     ResOnCtrl = True; //Resest timer on control press?
    
    
    
    
    
    
    
    
    
    
    var
      a, b, c, d, e: Integer;
      i, disp: Integer;
      times: Array Of String;
      change: Boolean;
    begin
       while(isfunctionkeydown(1))do
         wait(1);
      setarraylength(times, 1);
      clearreport;
      changereportwidth(500);
     repeat
      repeat
         cleardebug;
        if(change)then
       begin
        clearreport;
       for disp:= 0 to getarraylength(times)-1 do
         addtoreport(times[disp]);
        change:= false;
       end;
        writeln(inttostr(e)+':'+inttostr(d)+':'+inttostr(a)+':'+inttostr(b)+':'+inttostr(c));
        c:= c + 1;
         if(c >= 60)then
        begin
         c:= 0;
         b:= b + 1;
        end;
          if(b >= 60)then
         begin
          b:= 0;
          a:= a + 1;
         end;
        if(a >= 60)then
       begin
        a:= 0;
        d:= d + 1;
       end;
        if(d >= 24)then
       begin
        d:= 0;
        e:= e + 1;
       end;
         wait(16);
         if(isfunctionkeydown(3))then
        begin
          wait(200);
          repeat
            wait(50);
          until(isfunctionkeydown(3));
         wait(200);
        end;
      until(isfunctionkeydown(1));
       while(isfunctionkeydown(1))do
         wait(1);
       times[i]:= inttostr(e)+':'+inttostr(d)+':'+inttostr(a)+':'+inttostr(b)+':'+inttostr(c);
       i:= i + 1;
        setarraylength(times, getarraylength(times)+1);
       change:= true;
       if(resonctrl)then
      begin
       a:= 0;
       b:= 0;
       c:= 0;
       d:= 0;
       e:= 0;
      end;
     until(false);
    end.
    Bored, once again.

  2. #2
    Join Date
    Mar 2006
    Location
    Wijk bij Duurstede
    Posts
    90
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by XxKanexX
    Bored, once again.
    This is cool but I think many people would love to have a scaperune script made by you, so I have an idea for when you are bored: Make an awesome scaperune script
    <3 I have something to hide : But it's a secret so you won't know until I reveal it so wait.

  3. #3
    Join Date
    Feb 2006
    Location
    California-Foster City
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    heres my plan:

    Next time kane gets bored, ill sneak into his house, knock him out, drag him to a cell, have a computer with scar and SR, and keep him in there till he scrpts :P
    The Welcoming Party
    Don't be a Fakawi! Get 25 hours of sleep a day!

  4. #4
    Join Date
    Feb 2006
    Location
    Aussie
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just 1 question, isnt it 100ms in 1 second?

  5. #5
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm working on an rs script

  6. #6
    Join Date
    Feb 2006
    Posts
    1,022
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I know what script it is too, he isn't lying.

    He's actually working on 2! :P

  7. #7
    Join Date
    Feb 2006
    Location
    Aussie
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just 1 question, isnt it 100ms in 1 second?

  8. #8
    Join Date
    Feb 2006
    Posts
    920
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by XxKanexX
    I'm working on an rs script
    Finally Kane.

  9. #9
    Join Date
    Mar 2006
    Location
    Wijk bij Duurstede
    Posts
    90
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by XxKanexX
    I'm working on an rs script
    Good to hear, can you reveal some details .

    ^.^ go Kanie w00t.

    Scdit --> give me a call when the time is right for knock him down to get him scripting. With 2 we can do it
    <3 I have something to hide : But it's a secret so you won't know until I reveal it so wait.

  10. #10
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by maxzzz
    Good to hear, can you reveal some details .

    ^.^ go Kanie w00t.

    Scdit --> give me a call when the time is right for knock him down to get him scripting. With 2 we can do it
    Don't make plans with Sdcit Especially were you're both alone in a dark room.

  11. #11
    Join Date
    Feb 2006
    Location
    Pennsylvania
    Posts
    1,524
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by maxzzz
    Good to hear, can you reveal some details .

    ^.^ go Kanie w00t.

    Scdit --> give me a call when the time is right for knock him down to get him scripting. With 2 we can do it
    The script is mine and his, also he has a few suprises of his own; I do also.

  12. #12
    Join Date
    Feb 2006
    Location
    New Zealand
    Posts
    1,330
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    *frowns at kane* where is your forms at. Usually even your pointless scripts have a form in them. And do tell us what script your working on maybe a hint. cmon kane you never script for rs and i really wanna know what your scripting. Must be somethign uber secks. with a uber secks scripting partner maybe?

    ROFL *looks around with everyone else wonderign what pyro laughed at*...personal joke between me and kane

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •