FindTree(TreeType : String; Tol : Integer): Boolean

[Cazax]

I was bored so i made a function:

function FindTree(var x,y : Integer; TreeType : String; Tol : Integer): boolean;
var
TreeColor : Integer;
TPA : TPointArray;
TPAA : T2DPointArray;
Name : string;
i,TTime : integer;
begin
case lowercase(TreeType) of
'oak': TreeColor := 4615266; Name := 'ak';
'willow': TreeColor := 4748399; Name := 'illow';
'tree': TreeColor := 1520939; Name := 'ree';
'yew': TreeColor := 3038299; Name := 'ree';
else
Writeln('Invalid option');
Result := False;
end;
MarkTIme(TTime);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, TreeColor, MSX1, MSY1, MSX2, MSY2, Tol);
if length(TPA) > 0 then
begin
TPAA := TPAtoATPAEx(TPA, 25, 25);
Writeln('Finding '+TreeType+' took: '+inttostr(TimeFromMark(TTime)));
for i:=0 to high(TPAA) do
begin
MiddleTPAEx(TPAA[i], x, y);
MMouse(x, y, 3, 3);
wait(50+random(50))
if isuptext(Name) then
GetMousePos(x, y);
Result := True;
end;
end else
Result := False;
end;

Will find the nearest tree aviable.

e.g:

if FindTree(x, y, 'Yew', 15) then Writeln('YaY');

[P1nky]

its good :) just need more colors

[ShowerThoughts]

Good job!

[Cazax]

Good job!

hehe thanks

its good :) just need more colors

Maybe it need more colors, becouse all trees has a dark face, thanks anyways.

P.S: Can someone take pics of ents, gases, and send it to me ? im working on it.

[Bobarkinator]

Why do people keep making functions like these when FindObjTPA already does it?

[Cazax]

Why do people keep making functions like these when FindObjTPA already does it?

I posted it for feedback, for their opinion, not especially for using it.

[Richard]

I think its good.

But what you could do is add in maple. As I found them good xp when I didn't quite have 60 wc.

[P1nky]

maples are good but i noticed it has more randoms :P ents,nests and so on

[nielsie95]

Try cts 2 with these options:

modifiers: (0.075, 0.075)
color: 3368537
tol: 30

instead of adding colors ;)

another tip; replace TPAtoATPAEx(TPA, 25, 25) with SplitTPAEx(tpa, 6, 6) (maybe even more than 6)..

[EvilChicken!]

Niels, may I ask you what tool you used to find the modifiers?
And, telling us what tree that color is for wouldn't be bad either.. ^_^

Edit: Wow, thanks!

[nielsie95]

I calculated those myself, but if I'd had to calculate them now, I'd use ACA v2. That color will find all trees. In my treefinder I'm looking for all the possible trees and then try to "see" what kind it is by the size.

[Naum]

Maybe use an array, WillowCol e.t.c.

[bullzeye95]

I calculated those myself, but if I'd had to calculate them now, I'd use ACA v2. That color will find all trees. In my treefinder I'm looking for all the possible trees and then try to "see" what kind it is by the size.

I don't think it's possible to determine with size alone, since a far away oak could look as big as a close tree. Other things would need to be added, such as TPA length, (possibly) density, etc.

[nielsie95]

You're right :)
That's why I try to "see" what kind it is by the size :p
But I think size can help though.