Log in

View Full Version : Help Please!!!



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

stupedspam
01-10-2008, 09:43 PM
That isn't a script you use. It is called an include, and is used to shorten scripts by having repeated data in a central script that you can call on through an include.

Hope this helps,
~Stupedspam

pizzownage
01-10-2008, 10:04 PM
so where do i find the thing to "setup SRL" cuz i can not find that....

i know im a noob sorry

pizzownage