Getting the error on the red line here:
Simba Code:
procedure SetTrap;
Var
i : Integer;
T : TPoint;
TPA : TPointArray;
ATPA : T2DPointArray;
begin
[COLOR="Red"] FindColorsTolerance(ATPA[i], treeColor, MSX1, MSY1, MSX2, MSY2, 3);[/COLOR]
TPA := MergeATPA(ATPA);
ATPA := SplitTPA(TPA, 6);
SortATPASize(ATPA, True);
T := MiddleTPA(ATPA[0]);
MMouse(T.x, T.y, 2, 2);
wait(RandomRange(300,400));
if(isUpText('oung tree')) then
begin
Mouse(T.x, T.y, 0, 0, mouse_right);
Inc(trapsSet);
players[CurrentPlayer].Loc := 'CheckTrap';
end;
end;
Uploaded full script below if that's any help.
Thanks,
TsterT