SRL Archive - OSR Help

Getting the error on the red line here:

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

FindColorsTolerance(ATPA, treeColor, MSX1, MSY1, MSX2, MSY2, 3);

^ That should do it.

Then I get a type mismatch error ^^.

Meh, sorry, replace the ATPA with TPA in the FindColor function. Then take out the TPA := MergeATPA(); line, since you don't need it.

That did it, thanks!

:)