Get SRL Rev Number?

[Harry]

Is there a way to get SRL's revision number from a script? As in

if (Rev < 14) then
  begin
    WriteLn('Get Revison 14 please.');
    TerminateScript;
  end;

?

Thanks for help with this nubby question
~ Harry

[KoKouKo]

i dont wanna tell anybody how to do their job *cough* devs *cough*but it would be nice if this was added in every rev

function ReturnRev: integer;
var
  ThisRev: integer;
begin
  ThisRev := 14;
  Result := ThisRev;
end;

simple but functional

[Harry]

Or in Globals.scar... there is an empty spot, it looks like they removed it or something

{ const SRLVersionNumber;
  Description: Repository Version Number. }

Would be nice to have var SRLVersionNumber = '4.14'; there

[osmm]

This just MIGHT be crazy enough to work.

Mouse(coords of "File" botton in scar);
if findobjcustom(text = ">", color = the pitch black blod text font) then...

The > means when scar says "Update SRL SVN (X -> X)", and the color is different than other fonts, so it might work.

So basicly if it finds that you haven't updated rev, then it will do w/e you want.

idk gl.

[KoKouKo]

so all they *cough* devs *cough* need to do is put

const 
  Rev = 4.14;

in teh globals

[Harry]

So any Developers gonna consider this?

[bullzeye95]

program New;

function GetRev: Integer;
begin
  Result:= StrToIntDef(Between('Revision ', ': /', GetPage('http://www.srl-forums.com/srl-repos/')), -1);
end;

begin
  writeln(inttostr(GetRev));
end.

[JuKKa]

program New;

function GetRev: Integer;
begin
  Result:= StrToIntDef(Between('Revision ', ': /', GetPage('http://www.srl-forums.com/srl-repos/')), -1);
end;

begin
  writeln(inttostr(GetRev));
end.

Yeh.. thats the latest one.. not what the user is using...

[Wizzup?]

Will add it.
Const SRLVersionNumber = 14;