pizzownage
01-10-2008, 09:22 PM
dont know if this is the right section, but.....
i need some help with the setup of SRL.
so this is the whole script....
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- » User Saving/Loading Routines --//
//-----------------------------------------------------------------//
// * function getSRLData(dName: String): String; // * by Dankness
// * function setBoolean(T: String): Boolean; // * by Dankness
// * procedure SaveSRLConfig; // * by Dankness
// * procedure LoadSRLConfig; // * by Dankness
{ var zFile: String;
Description: Variable used to store file content for the setup include. }
var
zFile: string;
{************************************************* ******************************
function getSRLData(dName: String): String;
By: Dankness
Description: Reads Data from CFG File based on procedure by RSN.
************************************************** *****************************}
function getSRLData(dName: string): string;
var
tString: string;
begin
Result := '';
tString := dName + '=';
if (Pos(tString, zFile) = 0) then
Exit;
Result := zFile;
Delete(Result, 1, Pos(tString, zFile));
Result := Copy(Result, Length(tString), Pos(Chr(13), Result) -
Length(tString));
end;
{************************************************* ******************************
function setBoolean(T: String): Boolean;
By: Dankness
Description: Changes String to Boolean
************************************************** *****************************}
function setBoolean(T: string): Boolean;
begin
try
StrToBool(t);
except
Result := False;
end;
end;
{************************************************* ******************************
procedure SaveSRLConfig;
By: Dankness
Description: Creates SRL Configfile
************************************************** *****************************}
procedure SaveSRLConfig;
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=Chars' + Chr(13));
WriteFileString(aFile, 'Benmouse=True' + Chr(13));
WriteFileString(aFile, 'Mousespeed=15' + Chr(13));
WriteFileString(aFile, 'Lampskill=Mining' + Chr(13));
WriteFileString(aFile, 'UseSandwichSolver=True' + Chr(13));
WriteFileString(aFile, 'UseBoxSolver=True' + Chr(13));
WriteFileString(aFile, 'UseCerterSolver=False' + Chr(13));
WriteFileString(aFile, 'LogOutTime=False' + Chr(13));
WriteFileString(aFile, 'Check HP=True' + Chr(13));
WriteFileString(aFile, 'Screenshots=False' + Chr(13));
WriteFileString(aFile, 'DebugRadialRoad=True' + Chr(13));
WriteFileString(aFile, 'SRLID=' + Chr(13));
WriteFileString(aFile, 'SRLPassword=' + Chr(13));
CloseFile(aFile);
end;
{************************************************* ******************************
procedure LoadSRLConfig;
By: Dankness
Description: Loads Settings from Config Data file for Form
************************************************** *****************************}
procedure LoadSRLConfig;
var
aFile: Integer;
begin
aFile := OpenFile(AppPath + 'SRL.CFG', False);
if (aFile < 0) then
begin
SaveSRLConfig;
aFile := OpenFile(AppPath + 'SRL.CFG', False);
end;
ReadFileString(aFile, zFile, FileSize(aFile));
Filename := getSRLData('Filename');
MouseSpeed := StrToInt(getSRLData('Mousespeed'));
LampSkill := getSRLData('Lampskill');
UseSandwichSolver := setBoolean(getSRLData('UseSandwichSolver'));
UseBoxSolver := setBoolean(getSRLData('UseBoxSolver'));
UseCerterSolver := setBoolean(getSRLData('UseCerterSolver'));
CheckHPFirst := setBoolean(getSRLData('Check HP'));
Screenshots := setBoolean(getSRLData('Screenshots'));
DebugRadialRoad := setBoolean(getSRLData('DebugRadialRoad'));
SRLID := getSRLData('SRLID');
SRLPassword := getSRLData('SRLPassword');
CloseFile(aFile);
end;
but, i need to know what to enter for this part.....
Filename := getSRLData('Filename');
MouseSpeed := StrToInt(getSRLData('Mousespeed'));
LampSkill := getSRLData('Lampskill');
UseSandwichSolver := setBoolean(getSRLData('UseSandwichSolver'));
UseBoxSolver := setBoolean(getSRLData('UseBoxSolver'));
UseCerterSolver := setBoolean(getSRLData('UseCerterSolver'));
CheckHPFirst := setBoolean(getSRLData('Check HP'));
Screenshots := setBoolean(getSRLData('Screenshots'));
DebugRadialRoad := setBoolean(getSRLData('DebugRadialRoad'));
SRLID := getSRLData('SRLID');
SRLPassword := getSRLData('SRLPassword');
because i keep getting this error that says.....
Failed when compiling
Line 102: [Error] (102:1): Unknown identifier 'Filename' in script C:\Program Files\SCAR 3.13\includes\SRL\SRL\core\Setup.scar
PLEASE HELP
thanks in advance
pizzownage.
i know this is super nooby, but idk
i need some help with the setup of SRL.
so this is the whole script....
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- » User Saving/Loading Routines --//
//-----------------------------------------------------------------//
// * function getSRLData(dName: String): String; // * by Dankness
// * function setBoolean(T: String): Boolean; // * by Dankness
// * procedure SaveSRLConfig; // * by Dankness
// * procedure LoadSRLConfig; // * by Dankness
{ var zFile: String;
Description: Variable used to store file content for the setup include. }
var
zFile: string;
{************************************************* ******************************
function getSRLData(dName: String): String;
By: Dankness
Description: Reads Data from CFG File based on procedure by RSN.
************************************************** *****************************}
function getSRLData(dName: string): string;
var
tString: string;
begin
Result := '';
tString := dName + '=';
if (Pos(tString, zFile) = 0) then
Exit;
Result := zFile;
Delete(Result, 1, Pos(tString, zFile));
Result := Copy(Result, Length(tString), Pos(Chr(13), Result) -
Length(tString));
end;
{************************************************* ******************************
function setBoolean(T: String): Boolean;
By: Dankness
Description: Changes String to Boolean
************************************************** *****************************}
function setBoolean(T: string): Boolean;
begin
try
StrToBool(t);
except
Result := False;
end;
end;
{************************************************* ******************************
procedure SaveSRLConfig;
By: Dankness
Description: Creates SRL Configfile
************************************************** *****************************}
procedure SaveSRLConfig;
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=Chars' + Chr(13));
WriteFileString(aFile, 'Benmouse=True' + Chr(13));
WriteFileString(aFile, 'Mousespeed=15' + Chr(13));
WriteFileString(aFile, 'Lampskill=Mining' + Chr(13));
WriteFileString(aFile, 'UseSandwichSolver=True' + Chr(13));
WriteFileString(aFile, 'UseBoxSolver=True' + Chr(13));
WriteFileString(aFile, 'UseCerterSolver=False' + Chr(13));
WriteFileString(aFile, 'LogOutTime=False' + Chr(13));
WriteFileString(aFile, 'Check HP=True' + Chr(13));
WriteFileString(aFile, 'Screenshots=False' + Chr(13));
WriteFileString(aFile, 'DebugRadialRoad=True' + Chr(13));
WriteFileString(aFile, 'SRLID=' + Chr(13));
WriteFileString(aFile, 'SRLPassword=' + Chr(13));
CloseFile(aFile);
end;
{************************************************* ******************************
procedure LoadSRLConfig;
By: Dankness
Description: Loads Settings from Config Data file for Form
************************************************** *****************************}
procedure LoadSRLConfig;
var
aFile: Integer;
begin
aFile := OpenFile(AppPath + 'SRL.CFG', False);
if (aFile < 0) then
begin
SaveSRLConfig;
aFile := OpenFile(AppPath + 'SRL.CFG', False);
end;
ReadFileString(aFile, zFile, FileSize(aFile));
Filename := getSRLData('Filename');
MouseSpeed := StrToInt(getSRLData('Mousespeed'));
LampSkill := getSRLData('Lampskill');
UseSandwichSolver := setBoolean(getSRLData('UseSandwichSolver'));
UseBoxSolver := setBoolean(getSRLData('UseBoxSolver'));
UseCerterSolver := setBoolean(getSRLData('UseCerterSolver'));
CheckHPFirst := setBoolean(getSRLData('Check HP'));
Screenshots := setBoolean(getSRLData('Screenshots'));
DebugRadialRoad := setBoolean(getSRLData('DebugRadialRoad'));
SRLID := getSRLData('SRLID');
SRLPassword := getSRLData('SRLPassword');
CloseFile(aFile);
end;
but, i need to know what to enter for this part.....
Filename := getSRLData('Filename');
MouseSpeed := StrToInt(getSRLData('Mousespeed'));
LampSkill := getSRLData('Lampskill');
UseSandwichSolver := setBoolean(getSRLData('UseSandwichSolver'));
UseBoxSolver := setBoolean(getSRLData('UseBoxSolver'));
UseCerterSolver := setBoolean(getSRLData('UseCerterSolver'));
CheckHPFirst := setBoolean(getSRLData('Check HP'));
Screenshots := setBoolean(getSRLData('Screenshots'));
DebugRadialRoad := setBoolean(getSRLData('DebugRadialRoad'));
SRLID := getSRLData('SRLID');
SRLPassword := getSRLData('SRLPassword');
because i keep getting this error that says.....
Failed when compiling
Line 102: [Error] (102:1): Unknown identifier 'Filename' in script C:\Program Files\SCAR 3.13\includes\SRL\SRL\core\Setup.scar
PLEASE HELP
thanks in advance
pizzownage.
i know this is super nooby, but idk