Results 1 to 15 of 15

Thread: CheckSRL;

  1. #1
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default CheckSRL;

    A little function i thought of, should help clear up the forums abit and aid some noobs... might be useful to put in SetupSRL; else just call it at the start of the main loop

    SCAR Code:
    {*******************************************************************************
    procedure CheckSRL(Current:string);
    By: mat_de_b
    Description:
                  (Currently "CheckSRL('4.00');")
                 Checks for the current version of SRL and
                 if it isnt current will kill the script and open
                 the download section of SRL
    *******************************************************************************}



    procedure CheckSRL(Current:string); // Currently 4.00
    begin
        if not(SRLVersionNumber = Current)then
        begin
          Writeln('/////////////////////////////////////////////////////////////');
          Writeln('/////////////////////////////////////////////////////////////');
          Writeln('');
          Writeln('INCORRECT VERSION OF SRL');
          Writeln('You have v '+SRLVersionNumber);
          Writeln('Please Download SRL '+Current+' from');
          Writeln('http://www.srl-forums.com/forum/download-srl-here-f145.html');
          Writeln('');
          Writeln('/////////////////////////////////////////////////////////////');
          OpenWebPage('http://www.srl-forums.com/forum/download-srl-here-f145.html');
          TerminateScript;
        end;
    end;
    The truth finally came out...


  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice idea it should be a include like yours
    ehm so there will be a link into it with a link to the newest srl and info how to install it with pics if there really stupid that would be great
    and with a message always post progges and bugs from scripts/srl(has nothing to do with it)

    great idea it should be added must! added
    ~Hermen

  3. #3
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It opens a webpage to the Download SRL section of the forums and what do you mean by proggys?
    The truth finally came out...


  4. #4
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    of script its putted in a script you know..that proggy,s
    and yes opens the website
    ~Hermen

  5. #5
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    The 'OpenWebpage' only works if there is a default browser

  6. #6
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Let me sketch this for you :

    When SRL 4.1 comes out, and i didnt download it, how will this procedure tell me my SRL 4.0 is out of date ?
    Administrator's Warning:


  7. #7
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sumilion View Post
    Let me sketch this for you :

    When SRL 4.1 comes out, and i didnt download it, how will this procedure tell me my SRL 4.0 is out of date ?
    yea, there is already one in the SetupSRL.scar, tehre's a http://........ .txt file with current SRL version

    EDIT:
    SCAR Code:
    {*******************************************************************************
    procedure CheckVersion;
    By: Dankness
    Description: Checks for Current SRL Version from Villu-Reborn.
    *******************************************************************************}

    procedure CheckVersion;
    begin
      Ver := GetPage('http://www.villu-reborn.com/srl/version.txt');
      if ( Ver <> SRLVersionNumber ) then
      begin
        WriteLn('SRL Version ' + Ver + ' is now out.')
        WriteLn('Please Visit [url]www.srl-forums.com[/url] to get latest version.');
      end;
    end;
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  8. #8
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by the scar noob View Post
    yea, there is already one in the SetupSRL.scar, tehre's a http://........ .txt file with current SRL version
    Yeh thats what i was aiming at, cause his function isnt using it

    (or did you expected to do that when the procedure is called)

    And SetupSRL; is no more
    Administrator's Warning:


  9. #9
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sumilion View Post
    Yeh thats what i was aiming at, cause his function isnt using it

    (or did you expected to do that when the procedure is called)

    And SetupSRL; is no more
    I know, i just still have SCAR 2.03 > SCAR 3.11 on my computer wit their own SRL's
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  10. #10
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    My aim is that you were to put the current version as the string in check, becuase i didnt know there was that text file on the net
    The truth finally came out...


  11. #11
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i know

    stupid
    ~Hermen

  12. #12
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Yes but then you would know there is a new version

    Without internet access a version check is ... impossible

    A question HAS to be asked to 'something' what the latest version is ..
    Administrator's Warning:


  13. #13
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeh, in Globals there is a variable with the version number in it, which is what i was asking
    The truth finally came out...


  14. #14
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mat_de_b View Post
    Yeh, in Globals there is a variable with the version number in it, which is what i was asking
    that's the version of the SRl the 'user' has, not the latest
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  15. #15
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    But 4.0 is the last version, correct? So, this isn't needed at all.

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
  •