Ok i have bad news, i tried using ACA for edgeville bank and heres what i got (just made it to a script that opens edge bank)
Simba Code:
program new;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
Var
myPath:TpointArray;
var x,y : integer;
z, k, Home:Integer;
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
H, S, L: Extended;
A, B, C: Extended; //X Y Z CHANGE TO A B C
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
SetupSRL;
ObjDTM_Setup;
ClearDebug;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
if not(FindColorsTolerance(arP, 4072234, MSX1, MSY1, MSX2, MSY2, 11)) then
begin
Writeln('Failed to find the color, no object found.');
ColorToleranceSpeed(tmpCTS);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToHSL(arC[i], H, S, L);
if (H >= 71.09) and (H <= 71.55) and (S >= 27.76) and (S <= 28.59) and (L >= 16.45) and (L <= 21.20) then
begin
ColorToXYZ(arC[i], A, B, C);
if (A >= 1.87) and (A <= 2.99) and (B >= 1.57) and (B <= 2.50) and (C >= 3.68) and (C <= 5.97) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('Take')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
if (i = arL + 1) then
begin
Writeln('FindObject could not find object.');
Exit;
end;
GetMousePos(fx, fy);
end;
end.
begin
SetupSRL;
FindObject(x, y);
end.
And it came with the error
[Error] (84:7): Unknown identifier 'Result' at line 83
Compiling failed.
on the line : Result := True;
ssshhhaaa needs help ;'{