Put this into SCAR
SCAR Code:
program SRLCorrect;
{.include SRL/SRL.scar}
var I, ScarVersionNumber:Integer;
var SRLCurrent: String;
procedure TypeWrite(Line: string; Between: integer);
begin
for I := 1 to length(Line) do
begin
cleardebug;
WriteLn(copy(Line, 0, I));
wait(Between);
end;
end;
procedure WhatIsThis;
Begin
TypeWrite('This has been created to help you check your SCAR and SRL', 100);
TypeWrite('Versions, After you Run this post this along with you problem', 100);
TypeWrite('If you think it is SRL or SCAR internally related', 100);
end;
procedure PostSRLVer;
begin
ScarVersionNumber := GetSCARVersion;
WriteLn('You have SRL : ' + (SRLVersionNumber));
wait(1000);
WriteLn('You have Scar : ' + IntToStr(ScarVersionNumber));
wait(1000);
WriteLn('');
SRLCurrent := (SRLVersionNumber);
end;
procedure CorrectSRLVer;
begin
If Not (SRLCurrent = '4.00') Then
Begin
WriteLn('You do not have SRL 4.00. Copy the link into your address bar and');
WriteLn('Follow instructions to download SRL 4.');
WriteLn('http://www.villavu.com/forum/showthread.php?t=15536?t=17095');
WriteLn('');
end;
If (SRLCurrent = '4.00') Then
Begin
WriteLn('You are up-to-date with SRL.');
WriteLn('');
end;
end;
procedure CorrectSCARVer;
begin
if not ScarVersionNumber = 311 then
begin
WriteLn('You need SCAR 3.11, look on the SRL Forums for a download Link.');
end else
begin
WriteLn('You are up-to-date with SCAR');
end;
end;
begin
WhatIsThis;
PostSRLVer;
CorrectSRLVer;
CorrectSCARVer;
end.
Post back on what it says... I think you are missing SRL 4 or are using an old script. Can you please post the script you are using, or where you got it.