SRLStats Glitch? [Archive] - SRL

Bobarkinator

02-05-2007, 11:05 PM

could be something to do with your file here is mine you can check if it works//-------------------------------------------------------------------\\
//--> SRL Installation Instructions
//-->
//--> 1) Close All Open Scar Windows
//--> 2) Extract SRLv350 into your Scar Root Directory
//--> 3) Reopen Scar and Run This Script File
//--> 4) If you see Successfully executed. Then your done.
//-------------------------------------------------------------------\\
program SRLVariableSetupScript;
{.include SRL\SRL.Scar}

{ var frmMain: TForm;
Description: SRL SetupForm. }
var
frmMain : TForm;

{ var dFile, Ver: String;
Description: Variables used to store data in the SRL-Setup script. }
var
dFile, Ver : String;

{ var LUsrName, LMouseSpeed, LLampSkill: TLabel;
Description: Labels used on the SRL SetupForm. }
var
LUsrName, LMouseSpeed, LLampSkill : TLabel;

{ var LBenMouse, LUSS, LUSB, LUSC: TLabel;
Description: Labels used on the SRL SetupForm. }
var
LBenMouse, LUSS, LUSB, LUSC, LSRLID, LSRLPassword : TLabel;

{ var LLTO, LCHP, LBSS, LDRR: TLabel;
Description: Labels used on the SRL SetupForm. }
var
LLTO, LCHP, LBSS, LDRR : TLabel;

{ var EUsrName, EMouseSpeed: TEdit;
Description: Edit Boxes used on the SRL SetupForm. }
var
EUsrName, EMouseSpeed, ESRLID, ESRLPassword : TEdit;

{ var CLampSkill, CUSS, CUSB, CUSC: TComboBox;
Description: Combo boxes used on the SRL SetupForm. }
var
CLampSkill, CUSS, CUSB, CUSC : TComboBox;

{ var CBenMouse, CLTO, CCHP, CBSS, CDRR: TComboBox;
Description: Combo boxes used on the SRL SetupForm. }
var
CBenMouse, CLTO, CCHP, CBSS, CDRR : TComboBox;

{ var Button1, Button2, Button3, Button4, Button5: TButton;
Description: Buttons used on the SRL SetupForm. }
var
Button1, Button2, Button3, Button4, Button5 : TButton;

//----------------------------------------------------------------------------//
//---> Checks for Current SRL Version from Villu-Reborn
//----------------------------------------------------------------------------//

{************************************************* ******************************
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 www.villu-reborn.com to get latest version.');
end;
end;

//----------------------------------------------------------------------------//
//---> Opens SRL Homepage
//----------------------------------------------------------------------------//

procedure VisitSRL;
begin
OpenWebPage( 'http://www.villu-reborn.com/');
end;

//----------------------------------------------------------------------------//
//---> Opens Developer Information from Villu-Reborn
//----------------------------------------------------------------------------//

procedure AboutSRL;
begin
OpenWebPage( 'http://www.villu-reborn.com/vbugs.php');
end;

//----------------------------------------------------------------------------//
//---> Opens Online SRL Manual
//----------------------------------------------------------------------------//

{************************************************* ******************************
procedure ViewManual;
By: Dankness
Description: Opens Online SRL Manual.
************************************************** *****************************}
procedure ViewManual;
begin
OpenWebPage( 'http://villu-reborn.com/SRLManual.php');
end;

//----------------------------------------------------------------------------//
//---> Reads Data from CFG File based on procedure by RSN
//----------------------------------------------------------------------------//

{************************************************* ******************************
function getCFGData(dName: String): String;
By: Dankness
Description: Reads Data from CFG File based on procedure by RSN.
************************************************** *****************************}
function getCFGData(dName : String): String;
var
tString: String;
begin
Result := '';
tString := dName + '=';
if(Pos(tString, dFile) = 0)then
Exit;
Result := dFile;
Delete(Result, 1, Pos(tString, dFile));
Result := Copy(Result, Length(tString), Pos(Chr(13), Result) - Length(tString));
end;

//----------------------------------------------------------------------------//
//---> Saves Data from Form to Config Data File
//----------------------------------------------------------------------------//

{************************************************* ******************************
procedure SaveConfig;
By: Dankness
Description: Saves Data from Form to Config Data File.
************************************************** *****************************}
procedure SaveConfig;
var aFile : Integer;
begin
Status ('Saving Settings to Config Data File');
aFile := ReWriteFile ( AppPath + 'SRL.CFG', False);
if(aFile < 0)then
Exit;

WriteFileString(aFile, 'Filename=' + EUsrName.Text + Chr(13));
WriteFileString(aFile, 'Benmouse=' + CBenMouse.Text + Chr(13));
WriteFileString(aFile, 'Mousespeed=' + EMouseSpeed.Text + Chr(13));
WriteFileString(aFile, 'Lampskill=' + CLampSkill.Text + Chr(13));
WriteFileString(aFile, 'UseSandwichSolver=' + CUSS.Text + Chr(13));
WriteFileString(aFile, 'UseBoxSolver=' + CUSB.Text + Chr(13));
WriteFileString(aFile, 'UseCerterSolver=' + CUSC.Text + Chr(13));
WriteFileString(aFile, 'LogOutTime=' + CLTO.Text + Chr(13));
WriteFileString(aFile, 'Check HP=' + CCHP.Text + Chr(13));
WriteFileString(aFile, 'Screenshots=' + CBSS.Text + Chr(13));
WriteFileString(aFile, 'DebugRadialRoad=' + CDRR.Text + Chr(13));
WriteFileString(aFile, 'SRLID=' + ESRLID.Text + Chr(13));
WriteFileString(aFile, 'SRLPassword=' + ESRLPassword.Text + Chr(13));

CloseFile(aFile);

end;

//----------------------------------------------------------------------------//
//---> Boolean Parser
//----------------------------------------------------------------------------//

{************************************************* ******************************
function setBoolean2(B: Boolean): String;
By: Dankness
Description: Boolean Parser.
************************************************** *****************************}
function setBoolean2 ( B : Boolean ) : string;
begin
if ( B ) then
Result := 'True'
else
Result := 'False';
end;

//----------------------------------------------------------------------------//
//---> Loads Settings from Config Data file for Form
//----------------------------------------------------------------------------//

{************************************************* ******************************
procedure LoadConfig;
By: Dankness
Description: Loads Settings from Config Data file for Form.
************************************************** *****************************}
procedure LoadConfig;
begin
LoadSRLConfig;
EUsrName.Text := Filename;
CBenMouse.Text := setBoolean2 ( BenMouse );
EMouseSpeed.Text := IntToStr ( MouseSpeed );
CLampSkill.Text := LampSkill;
CUSS.Text := setBoolean2 ( UseSandwichSolver );
CUSB.Text := setBoolean2 ( UseBoxSolver );
CUSC.Text := setBoolean2 ( UseCerterSolver );
CLTO.Text := setBoolean2 ( LogTimeOut );
CCHP.Text := setBoolean2 ( CheckHPFirst );
CBSS.Text := setBoolean2 ( Screenshots );
CDRR.Text := setBoolean2 ( DebugRadialRoad );
ESRLID.Text := SRLID;
ESRLPassword.Text:= SRLPassword;
end;

//----------------------------------------------------------------------------//
//---> ButtonClick Actions
//----------------------------------------------------------------------------//

{************************************************* ******************************
procedure ButtonClick2(sender: TObject);
By: Dankness
Description: ButtonClick Actions.
************************************************** *****************************}
procedure ButtonClick2(sender: TObject);
begin
case Sender of
Button1 : CheckVersion;
Button2 : VisitSRL;
Button3 : ViewManual;
Button4 : AboutSRL;
Button5 : begin
SaveConfig;
frmMain.ModalResult:= mrOk;
end;
end;

end;
//----------------------------------------------------------------------------//
//---> Main Form Procedures
//----------------------------------------------------------------------------//

{************************************************* ******************************
procedure MainInitForm;
By: Dankness
Description: Main Form Procedures.
************************************************** *****************************}
procedure MainInitForm;
var TT, TL, EL : Integer;
begin

frmMain := CreateForm;
frmMain.Left := 0;
frmMain.Top := 0;
frmMain.Width := 457;
frmMain.Height := 400;
frmMain.Caption := 'SRL Settings Form';
frmMain.Color := clInactiveCaption;
frmMain.Font.Height := -11;
frmMain.Font.Name := 'MS Sans Serif';
frmMain.Font.Style := [];
frmMain.ShowHint := True;
frmMain.Visible := False;
frmMain.PixelsPerInch := 96;

TT := 26;
TL := 71;
EL := 161;

LUsrName := TLabel.Create(frmMain);
LUsrName.Parent := frmMain;
LUsrName.Left := TL;
LUsrName.Top := TT;
LUsrName.Width := 76;
LUsrName.Height := 21;
LUsrName.Hint := 'Filename to use For UserManagers';
LUsrName.Caption := 'Filename';
LUsrName.Font.Height := -11;
LUsrName.Font.Name := 'MS Sans Serif';
LUsrName.Font.Style := [];
LUsrName.ParentFont := False;

EUsrName := TEdit.Create(frmMain);
EUsrName.Parent := frmMain;
EUsrName.Left := EL;
EUsrName.Top := TT;
EUsrName.Width := 121;
EUsrName.Height := 21;
EUsrName.AutoSelect := False;
EUsrName.ParentShowHint := False;
EUsrName.ShowHint := True;
EUsrName.TabOrder := 2;
EUsrName.Text := 'Chars';

TT := TT + 21;
LBenMouse := TLabel.Create(frmMain);
LBenMouse.Parent := frmMain;
LBenMouse.Left := TL;
LBenMouse.Top := TT;
LBenMouse.Width := 76;
LBenMouse.Height := 21;
LBenMouse.Hint := '';
LBenMouse.Caption := 'BenMouse';
LBenMouse.Font.Height := -11;
LBenMouse.Font.Name := 'MS Sans Serif';
LBenMouse.Font.Style := [];
LBenMouse.ParentFont := False;

CBenMouse := TComboBox.Create(frmMain);
CBenMouse.Parent := FrmMain;
CBenMouse.Left := EL;
CBenMouse.Top := TT;
CBenMouse.Width := 121;
CBenMouse.Height := 21;
CBenMouse.Hint := 'Use Spline Mouse';
CBenMouse.ItemHeight := 13;
CBenMouse.ParentShowHint := False;
CBenMouse.ShowHint := True;
CBenMouse.TabOrder := 13;
CBenMouse.Text := 'True';
CBenMouse.Items.Add('True');
CBenMouse.Items.Add('False');

Button1 := TButton.Create(frmMain);
Button1.Parent := frmMain;
Button1.Left := EL + 160;
Button1.Top := TT;
Button1.Width := 90;
Button1.Height := 25;
Button1.Caption := 'Check Version';
Button1.OnClick:= @buttonclick2;
Button1.TabOrder := 17;

TT := TT + 21;
LMouseSpeed := TLabel.Create(frmMain);
LMouseSpeed.Parent := frmMain;
LMouseSpeed.Left := TL;
LMouseSpeed.Top := TT;
LMouseSpeed.Width := 76;
LMouseSpeed.Height := 21;
LMouseSpeed.Hint := 'Lowest is Faster, Highest is Slower';
LMouseSpeed.Caption := 'MouseSpeed';
LMouseSpeed.Font.Height := -11;
LMouseSpeed.Font.Name := 'MS Sans Serif';
LMouseSpeed.Font.Style := [];
LMouseSpeed.ParentFont := False;

EMouseSpeed := TEdit.Create(frmMain);
EMouseSpeed.Parent := frmMain;
EMouseSpeed.Left := EL;
EMouseSpeed.Top := TT;
EMouseSpeed.Width := 121;
EMouseSpeed.Height := 21;
EMouseSpeed.AutoSelect := False;
EMouseSpeed.ParentShowHint := False;
EMouseSpeed.ShowHint := True;
EMouseSpeed.TabOrder := 2;
EMouseSpeed.Text := '15';

TT := TT + 21;
LLampSkill := TLabel.Create(frmMain);
LLampSkill.Parent := frmMain;
LLampSkill.Left := TL;
LLampSkill.Top := TT;
LLampSkill.Width := 76;
LLampSkill.Height := 21;
LLampSkill.Hint := '';
LLampSkill.Caption := 'LampSkill';
LLampSkill.Font.Height := -11;
LLampSkill.Font.Name := 'MS Sans Serif';
LLampSkill.Font.Style := [];
LLampSkill.ParentFont := False;

CLampSkill := TComboBox.Create(frmMain);
CLampSkill.Parent := FrmMain;
CLampSkill.Left := EL;
CLampSkill.Top := TT;
CLampSkill.Width := 121;
CLampSkill.Height := 21;
CLampSkill.Hint := 'Skill to Use the Lamp on If one is Found';
CLampSkill.ItemHeight := 13;
CLampSkill.ParentShowHint := False;
CLampSkill.ShowHint := True;
CLampSkill.TabOrder := 13;
CLampSkill.Text := 'Mining';
CLampSkill.Items.Add('Strength');
CLampSkill.Items.Add('Attack');
CLampSkill.Items.Add('Ranged');
CLampSkill.Items.Add('Magic');
CLampSkill.Items.Add('Defence');
CLampSkill.Items.Add('Hitpoints');
CLampSkill.Items.Add('Prayer');
CLampSkill.Items.Add('Agility');
CLampSkill.Items.Add('Herblore');
CLampSkill.Items.Add('Thieving');
CLampSkill.Items.Add('Crafting');
CLampSkill.Items.Add('RuneCraft');
CLampSkill.Items.Add('Slayer');
CLampSkill.Items.Add('Farming');
CLampSkill.Items.Add('Mining');
CLampSkill.Items.Add('Smithing');
CLampSkill.Items.Add('Fishing');
CLampSkill.Items.Add('Cooking');
CLampSkill.Items.Add('Firemaking');
CLampSkill.Items.Add('Woodcutting');
CLampSkill.Items.Add('Fletching');

Button2 := TButton.Create(frmMain);
Button2.Parent := frmMain;
Button2.Left := EL + 160;
Button2.Top := TT;
Button2.Width := 90;
Button2.Height := 25;
Button2.Caption := 'SRL Forums';
Button2.OnClick:= @buttonclick2;
Button2.TabOrder := 17;

TT := TT + 21;
LUSS := TLabel.Create(frmMain);
LUSS.Parent := frmMain;
LUSS.Left := TL;
LUSS.Top := TT;
LUSS.Width := 76;
LUSS.Height := 21;
LUSS.Hint := '';
LUSS.Caption := 'Sandwich Solver';
LUSS.Font.Height := -11;
LUSS.Font.Name := 'MS Sans Serif';
LUSS.Font.Style := [];
LUSS.ParentFont := False;

CUSS := TComboBox.Create(frmMain);
CUSS.Parent := FrmMain;
CUSS.Left := EL;
CUSS.Top := TT;
CUSS.Width := 121;
CUSS.Height := 21;
CUSS.Hint := 'Use Sandwich Solver or Logout';
CUSS.ItemHeight := 13;
CUSS.ParentShowHint := False;
CUSS.ShowHint := True;
CUSS.TabOrder := 13;
CUSS.Text := 'True';
CUSS.Items.Add('True');
CUSS.Items.Add('False');

TT := TT + 21;
LUSB := TLabel.Create(frmMain);
LUSB.Parent := frmMain;
LUSB.Left := TL;
LUSB.Top := TT;
LUSB.Width := 76;
LUSB.Height := 21;
LUSB.Hint := '';
LUSB.Caption := 'BoxSolver Solver';
LUSB.Font.Height := -11;
LUSB.Font.Name := 'MS Sans Serif';
LUSB.Font.Style := [];
LUSB.ParentFont := False;

CUSB := TComboBox.Create(frmMain);
CUSB.Parent := FrmMain;
CUSB.Left := EL;
CUSB.Top := TT;
CUSB.Width := 121;
CUSB.Height := 21;
CUSB.Hint := 'Use BoxSolver Solver or GambleBox';
CUSB.ItemHeight := 13;
CUSB.ParentShowHint := False;
CUSB.ShowHint := True;
CUSB.TabOrder := 13;
CUSB.Text := 'True';
CUSB.Items.Add('True');
CUSB.Items.Add('False');

Button3 := TButton.Create(frmMain);
Button3.Parent := frmMain;
Button3.Left := EL + 160;
Button3.Top := TT;
Button3.Width := 90;
Button3.Height := 25;
Button3.Caption := 'View Manual';
Button3.OnClick:= @buttonclick2;
Button3.TabOrder := 17;

TT := TT + 21;
LUSC := TLabel.Create(frmMain);
LUSC.Parent := frmMain;
LUSC.Left := TL;
LUSC.Top := TT;
LUSC.Width := 76;
LUSC.Height := 21;
LUSC.Hint := '';
LUSC.Caption := 'Certer Solver';
LUSC.Font.Height := -11;
LUSC.Font.Name := 'MS Sans Serif';
LUSC.Font.Style := [];
LUSC.ParentFont := False;

CUSC := TComboBox.Create(frmMain);
CUSC.Parent := FrmMain;
CUSC.Left := EL;
CUSC.Top := TT;
CUSC.Width := 121;
CUSC.Height := 21;
CUSC.Hint := 'Use Certer Solver or Logout';
CUSC.ItemHeight := 13;
CUSC.ParentShowHint := False;
CUSC.ShowHint := True;
CUSC.TabOrder := 13;
CUSC.Text := 'True';
CUSC.Items.Add('True');
CUSC.Items.Add('False');

TT := TT + 21;
LLTO := TLabel.Create(frmMain);
LLTO.Parent := frmMain;
LLTO.Left := TL;
LLTO.Top := TT;
LLTO.Width := 76;
LLTO.Height := 21;
LLTO.Hint := '';
LLTO.Caption := 'Timeout LogOuts';
LLTO.Font.Height := -11;
LLTO.Font.Name := 'MS Sans Serif';
LLTO.Font.Style := [];
LLTO.ParentFont := False;

CLTO := TComboBox.Create(frmMain);
CLTO.Parent := FrmMain;
CLTO.Left := EL;
CLTO.Top := TT;
CLTO.Width := 121;
CLTO.Height := 21;
CLTO.Hint := 'LogOut or Let Runescape Timeout';
CLTO.ItemHeight := 13;
CLTO.ParentShowHint := False;
CLTO.ShowHint := True;
CLTO.TabOrder := 13;
CLTO.Text := 'False';
CLTO.Items.Add('True');
CLTO.Items.Add('False');

Button4 := TButton.Create(frmMain);
Button4.Parent := frmMain;
Button4.Left := EL + 160;
Button4.Top := TT;
Button4.Width := 90;
Button4.Height := 25;
Button4.Caption := 'Report Bugs';
Button4.OnClick:= @buttonclick2;
Button4.TabOrder := 17;

TT := TT + 21;
LCHP := TLabel.Create(frmMain);
LCHP.Parent := frmMain;
LCHP.Left := TL;
LCHP.Top := TT;
LCHP.Width := 76;
LCHP.Height := 21;
LCHP.Hint := '';
LCHP.Caption := 'Check HitPoints';
LCHP.Font.Height := -11;
LCHP.Font.Name := 'MS Sans Serif';
LCHP.Font.Style := [];
LCHP.ParentFont := False;

CCHP := TComboBox.Create(frmMain);
CCHP.Parent := FrmMain;
CCHP.Left := EL;
CCHP.Top := TT;
CCHP.Width := 121;
CCHP.Height := 21;
CCHP.Hint := 'Check HP before Running';
CCHP.ItemHeight := 13;
CCHP.ParentShowHint := False;
CCHP.ShowHint := True;
CCHP.TabOrder := 13;
CCHP.Text := 'False';
CCHP.Items.Add('True');
CCHP.Items.Add('False');

TT := TT + 21;
LBSS := TLabel.Create(frmMain);
LBSS.Parent := frmMain;
LBSS.Left := TL;
LBSS.Top := TT;
LBSS.Width := 76;
LBSS.Height := 21;
LBSS.Hint := '';
LBSS.Caption := 'Screenshots';
LBSS.Font.Height := -11;
LBSS.Font.Name := 'MS Sans Serif';
LBSS.Font.Style := [];
LBSS.ParentFont := False;

CBSS := TComboBox.Create(frmMain);
CBSS.Parent := FrmMain;
CBSS.Left := EL;
CBSS.Top := TT;
CBSS.Width := 121;
CBSS.Height := 21;
CBSS.Hint := 'Save Screenshots for Randoms';
CBSS.ItemHeight := 13;
CBSS.ParentShowHint := False;
CBSS.ShowHint := True;
CBSS.TabOrder := 13;
CBSS.Text := 'False';
CBSS.Items.Add('True');
CBSS.Items.Add('False');

TT := TT + 21;
LDRR := TLabel.Create(frmMain);
LDRR.Parent := frmMain;
LDRR.Left := TL;
LDRR.Top := TT;
LDRR.Width := 76;
LDRR.Height := 21;
LDRR.Hint := '';
LDRR.Caption := 'Debug R-R-W';
LDRR.Font.Height := -11;
LDRR.Font.Name := 'MS Sans Serif';
LDRR.Font.Style := [];
LDRR.ParentFont := False;

CDRR := TComboBox.Create(frmMain);
CDRR.Parent := FrmMain;
CDRR.Left := EL;
CDRR.Top := TT;
CDRR.Width := 121;
CDRR.Height := 21;
CDRR.Hint := 'Display Debug Image for RadialRoadWalk';
CDRR.ItemHeight := 13;
CDRR.ParentShowHint := False;
CDRR.ShowHint := True;
CDRR.TabOrder := 13;
CDRR.Text := 'False';
CDRR.Items.Add('True');
CDRR.Items.Add('False');

TT := TT + 21;
LSRLID := TLabel.Create(frmMain);
LSRLID.Parent := frmMain;
LSRLID.Left := TL;
LSRLID.Top := TT;
LSRLID.Width := 76;
LSRLID.Height := 21;
LSRLID.Hint := 'ID Number from Villu-Reborn Stat Project';
LSRLID.Caption := 'SRL ID#';
LSRLID.Font.Height := -11;
LSRLID.Font.Name := 'MS Sans Serif';
LSRLID.Font.Style := [];
LSRLID.ParentFont := False;

ESRLID := TEdit.Create(frmMain);
ESRLID.Parent := frmMain;
ESRLID.Left := EL;
ESRLID.Top := TT;
ESRLID.Width := 121;
ESRLID.Height := 21;
ESRLID.AutoSelect := False;
ESRLID.ParentShowHint := False;
ESRLID.ShowHint := True;
ESRLID.TabOrder := 15;
ESRLID.Text := '';

TT := TT + 21;
LSRLPassword := TLabel.Create(frmMain);
LSRLPassword.Parent := frmMain;
LSRLPassword.Left := TL;
LSRLPassword.Top := TT;
LSRLPassword.Width := 76;
LSRLPassword.Height := 21;
LSRLPassword.Hint := 'Password from Villu-Reborn Stat Project';
LSRLPassword.Caption := 'SRL Password';
LSRLPassword.Font.Height := -11;
LSRLPassword.Font.Name := 'MS Sans Serif';
LSRLPassword.Font.Style := [];
LSRLPassword.ParentFont := False;

ESRLPassword := TEdit.Create(frmMain);
ESRLPassword.Parent := frmMain;
ESRLPassword.Left := EL;
ESRLPassword.Top := TT;
ESRLPassword.Width := 121;
ESRLPassword.Height := 21;
ESRLPassword.AutoSelect := False;
ESRLPassword.ParentShowHint := False;
ESRLPassword.ShowHint := True;
ESRLPassword.TabOrder := 16;
ESRLPassword.Text := '';
ESRLPassword.PasswordChar := '*';

Button5 := TButton.Create(frmMain);
Button5.Parent := frmMain;
Button5.Left := EL+13 ;
Button5.Top := TT + 50;
Button5.Width := 90;
Button5.Height := 25;
Button5.Caption := 'Save Settings';
Button5.OnClick:= @buttonclick2;
Button5.TabOrder := 17;
end;

//----------------------------------------------------------------------------//
//--->
//----------------------------------------------------------------------------//

{************************************************* ******************************
procedure SafeMainInitForm;
By: Dankness
Description: Makes a safe thread call for the loading of the SRL SetupForm.
************************************************** *****************************}
procedure SafeMainInitForm;
var
v: TVariantArray;
begin
SetArrayLength ( V, 0);
ThreadSafeCall ( 'MainInitForm', V);
end;

//----------------------------------------------------------------------------//
//--->
//----------------------------------------------------------------------------//

{************************************************* ******************************
function ShowMainFormModal: Boolean;
By: Dankness
Description: Shows the SRL SetupForm.
************************************************** *****************************}
function ShowMainFormModal: Boolean;
begin
Result:= False;
if(frmMain.ShowModal = mrOk)then
Result:= True;
end;

//----------------------------------------------------------------------------//
//--->
//----------------------------------------------------------------------------//

{************************************************* ******************************
function ShowMainFormModal: Boolean;
By: Dankness
Description: Makes a safe thread call for showing the SRL SetupForm.
************************************************** *****************************}
function SafeShowMainFormModal: Boolean;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
Result := ThreadSafeCall('ShowMainFormModal', v);
end;

begin
SetUpSRL;
SafeMainInitForm;
LoadConfig;
SafeShowMainFormModal;
FreeForm(frmMain);
end.