SRL Archive - Reflection Help

Help !!!


P1nky

2008-08-18 22:24:14

{.Include SRL\SRL\Misc\Smart.Scar}
{.Include SRL\SRL.Scar}
{.Include SRL\SRL\Reflection\Reflection.Scar}
var
which:integer;

function WalkPath(Path: TPointArray; Tol, R_FFlag: Integer): Boolean;
var
Count : Integer;
begin
Count:= 0;
repeat

Result:= WalkToTile(Path[Count], Tol, R_FFlag);
if (not Result) then
Result:= WalkToTile(Path[Count], tol, R_FFlag);

Count:= Count + 1;
until (not Result) or (Count > High(Path));
end;


function LoadPath(Which:String): TPointArray;

begin
Case Lowercase(which) of
'bankz':
begin
SetLength(Result, 5);

Result[0] := Point(3085, 3229);
Result[1] := Point(3086, 3244);
Result[2] := Point(3091, 3247);
Result[3] := Point(3093, 3242);
Result[4] := Point(3092, 3241);
end;
end;
end;

Procedure WalkThePath;
Var
I: Integer;
Path: TPointArray;

begin
WalkPath(LoadPath('bankz'), 2, 3);
end;
Wait(500+Random(300));
end;


begin
ClearDebug;
ClearReport;
Writeln('Waiting For SMART to Start...');
smartSetupex(SmartWorld, True, True, False); // PlaySound(ScriptPath + 'Whats Love.WAV');//HADDAWAY FTW?
Wait(10000);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
Wait(100);
SetupReflection;
activateclient;
setupsrl;
walkthepath;
end;

thats the script i wanted to test.
but i get this error:
Line 14: [Error] (16539:47): Invalid number of parameters in script C:\Program Files\SCAR 3.15\Scripts\tst.scar


i updated the svn checkout thing like tons of times

now i re-dl srl and my scar is messed up gah i hate this… takes too much of my time lmfao:duh:

Bonfield

2008-08-18 22:31:29


program new;
{.Include SRL\SRL\Misc\Smart.Scar}
{.Include SRL\SRL.Scar}
{.Include SRL\SRL\Reflection\Reflection.Scar}
const
SmartWorld = 1;
var
which:integer;

function WalkPath(Path: TPointArray; Tol, R_FFlag: Integer): Boolean;
var
Count : Integer;
begin
Count:= 0;
repeat

Result:= WalkToTile(Path[Count], Tol, R_FFlag);
if (not Result) then
Result:= WalkToTile(Path[Count], tol, R_FFlag);

Count:= Count + 1;
until (not Result) or (Count > High(Path));
end;


function LoadPath(Which:String): TPointArray;

begin
Case Lowercase(which) of
'bankz':
begin
SetLength(Result, 5);

Result[0] := Point(3085, 3229);
Result[1] := Point(3086, 3244);
Result[2] := Point(3091, 3247);
Result[3] := Point(3093, 3242);
Result[4] := Point(3092, 3241);
end;
end;
end;

Procedure WalkThePath;
Var
I: Integer;
Path: TPointArray;

begin
WalkPath(LoadPath('bankz'), 2, 3);
Wait(500+Random(300));
end;


begin
ClearDebug;
ClearReport;
Writeln('Waiting For SMART to Start...');
smartSetupex(SmartWorld, True, True, False); // PlaySound(ScriptPath + 'Whats Love.WAV');//HADDAWAY FTW?
Wait(10000);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
Wait(100);
SetupReflection;
activateclient;
setupsrl;
walkthepath;
end.

Successfully compiled (1402 ms)
Line 45: [Hint] (16597:1): Variable 'I' never used in script
Line 46: [Hint] (16598:1): Variable 'PATH' never used in script
Line 8: [Hint] (16560:1): Variable 'WHICH' never used in script


i didnt really change much just deleted an unneeded end and added smartworld as a const and it compiled what reflection do u have i have rev 76 maybe thats ur problem

P1nky

2008-08-18 23:22:15

Nvm!! lol i accdent forgot to put reflection into srl/srl
i did
srl only

haha
thanks bon stupid ass me, spend 1 hour+ seriously -.-
gosh easy mistakes- take so much time lmao

PROBLEM SOLVED!