Results 1 to 8 of 8

Thread: Begin and End for proggy

  1. #1
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default Begin and End for proggy

    hmmm i was wandering how i can add how long it ran for in my script? I'm not shurr so can anyone post a procedure or what and where it should go plzz?
    greatly appreciated...

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    WriteLn(TimeRunning);


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Take my Proggie:

    SCAR Code:
    procedure ToFProggy;
    begin
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\Please Post Progress Reports & Any problems /\ ');
      Writeln('/\      From Wherever you got the script      /\ ');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\Worked For: '        + TimeRunning + '                   //\\');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\      Thanks for Using my Script :D     //\\ ');
      Writeln('```````````````````````````````````````````````');
    end;

    Thats it really.

    I didnt use the IntToStr for My Time Running
    Jus' Lurkin'

  4. #4
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Hy71194 View Post
    WriteLn(TimeRunning);
    thx a bunch!//

  5. #5
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    You dont have to use that. You can use the + Time Running +.
    Jus' Lurkin'

  6. #6
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I did make this function a while ago...
    SCAR Code:
    Function GetTimeRunningConvert(Choice: integer): string;
    begin
      case Choice of
        1: Result := IntToStr(GetTimeRunning / 1000); // Secounds
        2: Result := IntToStr(GetTimeRunning / 1000 / 60); // Minutes
        3 : Result := IntToStr(GetTimeRunning / 1000 / 60 / 60); // Hours
      end;
    end;

    GettingTimeRunningConvert(1) returns the amount of the scripts running
    time in seconds.

    GettingTimeRunningConvert(2) returns the amount of the scripts running
    time in minutes.

    GettingTimeRunningConvert(3) returns the amount of the scripts running
    time in Hours.

    Not to advanced but it works.

  7. #7
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Torrent of Flame View Post
    You dont have to use that. You can use the + Time Running +.
    ooo lol ok thx...ill use that then

  8. #8
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Quote Originally Posted by smithsps View Post
    I did make this function a while ago...
    SCAR Code:
    Function GetTimeRunningConvert(Choice: integer): string;
    begin
      case Choice of
        1: Result := IntToStr(GetTimeRunning / 1000); // Secounds
        2: Result := IntToStr(GetTimeRunning / 1000 / 60); // Minutes
        3 : Result := IntToStr(GetTimeRunning / 1000 / 60 / 60); // Hours
      end;
    end;

    GettingTimeRunningConvert(1) returns the amount of the scripts running
    time in seconds.

    GettingTimeRunningConvert(2) returns the amount of the scripts running
    time in minutes.

    GettingTimeRunningConvert(3) returns the amount of the scripts running
    time in Hours.

    Not to advanced but it works.

    The world would be a better place if people would have a look at the SCAR manual, no offense.

    SCAR Code:
    Program New;

    Var
      H, M, S: Integer;

    Begin
      ConvertTime(GetTimeRunning, H, M, S);
      Writeln('Time ran: '+IntToStr(H)+'h, '+IntToStr(M)+'m, '+IntToStr(s)+'s.');
    End.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Scar won't begin
    By groog in forum OSR Help
    Replies: 4
    Last Post: 01-26-2009, 09:16 PM
  2. Missing a begin/end?
    By Rubix in forum OSR Help
    Replies: 7
    Last Post: 07-13-2008, 03:38 AM
  3. Need help with begin-ends
    By IPwnz in forum OSR Help
    Replies: 4
    Last Post: 12-01-2007, 06:31 PM
  4. 'Begin' expected in script?
    By Mistagnerd in forum OSR Help
    Replies: 5
    Last Post: 11-12-2007, 10:01 AM
  5. 'BEGIN' expected in script But there is one
    By MylesMadness in forum OSR Help
    Replies: 12
    Last Post: 06-27-2007, 02:09 PM

Posting Permissions

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