bbri06
2009-12-28 22:41:53
The function using it is
.. and yes I've restarted scar :)
If someone could figure out what the problem is or just put that in a script and see if it crashes scar for them, that would be great.
Function NextTreeGroup: boolean;
var
TreeGroups: TPointArray;
begin
SymbolAccuracy := 0.6;
writeln('set symbol accuracy');
if(FindSymbols(TreeGroups, 'rare trees'))then
begin
writeln('found symbols works');
if(Length(TreeGroups) <= 1)then
begin
result := false;
Exit;
end else
begin
writeln('length works');
if(Distance(TreeGroups[0].x, TreeGroups[0].y, MMCx, MMCy) > Distance(TreeGroups[1].x, TreeGroups[1].y, MMCx, MMCy))then
begin
writeln('distance works');
Mouse(TreeGroups[0].x, TreeGroups[0].y, 2, 2, true);
FFlag(0);
end;
if(Distance(TreeGroups[0].x, TreeGroups[0].y, MMCx, MMCy) < Distance(TreeGroups[1].x, TreeGroups[1].y, MMCx, MMCy))then
begin
writeln('distance works');
Mouse(TreeGroups[1].x, TreeGroups[1].y, 2, 2, true);
FFlag(0);
end;
result := true;
end;
end else
begin
writeln('didnt find symbols');
result := false;
end;
end;
.. and yes I've restarted scar :)
If someone could figure out what the problem is or just put that in a script and see if it crashes scar for them, that would be great.