change
To:
SCAR Code:
MyPoint := Point(MyTPA[i].x, MyTPA[i].y);
and it should work.
Also, keep in mind, it take's time for Scar to declare variables so if they aren't needed you should try and avoid them.
SCAR Code:
program New;
{.include SRL/SRL.scar}
var
MyTPA : TPointArray;
x,y,i : Integer;
begin
FindColorsSpiralTolerance(284,202,MyTPA, 2436919, 0, 0, 547, 464, 10);//Insert main screen coordinates and tree color here
if Length(MyTPA) = 0 then FindColorsSpiralTolerance(284,202,MyTPA, 6515307, 0, 0, 547, 464, 10);//Insert main screen coordinates and second tree color here
for i:= 0 to High(MyTPA)do
begin
MMouse(MyTPA[i].x, MyTPA[i].y,3,3);
if(IsUpTextMultiCustom(['tair','case']))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,False);
ChooseOption('limb');
Wait(500+random(250));
Exit;
end;
Wait(350+random(350));
end;
end.
^^Just shortened it a bit.