SRL Archive - Help

Please Help ..... Again


Gucci

2012-02-15 20:57:32

I am getting this error:
[Error] (132:3): Invalid number of parameters at line 131
Compiling failed.


Here is the part where it happens

procedure Bank;
var
x, y: integer;
FlaxToBank: TPointArray;

begin

if SPS_WalkPath(FlaxToBank) then

DepositBox -----> this is a TPA function was getting error here but removed the ';'
Mouse(x, y, 0, 0, True); -----> this is line 131
Mouse(312, 278, 0, 0, True)
end;

Thanks for help and guidance.

YoHoJo

2012-02-15 21:04:57

Is this your script?
Also, show us the DepositBox procedure/function.

Gucci

2012-02-15 21:07:48

Yes this is mine

function DepositBox(x, y: Integer): Boolean;
var
CTS, I: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.44, 1.08);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 8161424, MSX1, MSY1, MSX2, MSY2, 6);
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 15, 15);

For I := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA, x, y);
MMouse(x, y, 2, 2);
If(IsUpTextMultiCustom(['ank, eposit, ox'])) then
begin
Result := True;
GetMousePos(x, y);
Break;
end;
end;
end;

YoHoJo

2012-02-15 21:09:58

Um.
Change
function DepositBox(x, y: Integer): Boolean;
to just
function DepositBox: Boolean;

And that should fix it I guess.

Gucci

2012-02-15 21:11:17

omg thanks repped ++++