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 :o


{ 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;