You need to put:
SCAR Code:
Var TPA : Array Of TPoint;
at the top of your script, where your variables are declared.
EDIT: Make it global not local:
SCAR Code:
program WindowsMineSweeperBeater;
var
x, y, n, number, digit:integer;
function FindColorTolerance(var x, y: Integer; color, xs, ys, xe, ye, tol: Integer): Boolean;
begin
Result := findcolortolerance(x, y, color, xs, ys, xe, ye, tol);
end;
function FindColorsTolerance(var points: TPointArray; Color, xs, ys, xe, ye, Tolerance: Integer):Boolean;
var
tpa:integer;
begin
result:=findcolorstolerance(tpa, Color, xs, ys, xe, ye, Tolerance : integer);
end;
begin
FindColorsTolerance(tpa, 16236680, 0, 0, 346, 348, 10);
end.
should really be:
SCAR Code:
program WindowsMineSweeperBeater;
var
x, y, n, number, digit:integer;
tpa:TPointArray;
function FindColorTolerance2(var x, y: Integer; color, xs, ys, xe, ye, tol: Integer): Boolean;
begin
Result := findcolortolerance(x, y, color, xs, ys, xe, ye, tol);
end;
function FindColorsTolerance2(var points: TPointArray; Color, xs, ys, xe, ye, Tolerance: Integer):Boolean;
begin
result:=findcolorstolerance(points, Color, xs, ys, xe, ye, Tolerance : integer);
end;
begin
FindColorsTolerance2(tpa, 16236680, 0, 0, 346, 348, 10);
end.
I sorted out a lot of other things, for example - TPA is an array of tpoint it is not an integer.
Furthermore, please enlighten us to why you are doing this? These are already in SCAR there is no need to do that.