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: