hey guys im having trouble with my ent finder, well fr0zen old 1 but im updating it so it can work, and i get this error:
SCAR Code:
Line 486: [Error] (13392:83): Type mismatch in script C:\Program Files\SCAR 3.15\Scripts\P1nky W1nky V1.0.scar
this is the line:
SCAR Code:
if FindColorsSpiralTolerance(X, Y, EntsTPA, Ent[i], MSX1, MSY1, MSX2, MSY2, 10) then
THE FUNCTIOn:
SCAR Code:
Function CheckForEnt: Boolean;
var
ent : array [0..2] of integer;
entsTPA: TPointArray;
Counter, I: Integer;
Begin
Ent[0] := 3363674;
Ent[1] := 1979638;
SRLStatsNeedSent;
If Not (LoggedIn) Then Exit;
Counter := 0;
While Counter < 8 Do
Begin
for i := 0 to 2 do
if FindColorsSpiralTolerance(X, Y, EntsTPA, Ent[i], MSX1, MSY1, MSX2, MSY2, 10) then
begin
for I := 0 to 0 do
MMouse(TreeTPA[i].x, TreeTPA[i].y, 3, 3);
writeln('found ENT ');
i := GetColor(86 + Counter, 17);
Counter := Counter + 1;
If SimilarColors(i, 119764, 60) Then
Begin
Result := true;
Writeln('We found an ent!! Trying to avoid now..');
If FindSymbol(x, y, 'fish') Then
Mouse(x, y, 3, 3, true);
Flag;
writeln('found ent so we at the fish symbol for the hell of it');
wait(10000);
If Not FindSymbol(x, y, 'fish') Then
Begin
writeln('waiting atm since ent here lalalala and no fish symbol');
Mouse(391, 242, 10, 10, true);
FTWait(60 + Random(5));
Begin
Writeln('Whew! We avoided the ent.. Carrying on with chopping');
Exit;
End;
End;
End;
Result := false;
End;
End;
end;
AND I WAS JUST WONDERING CAN SOMEONE GIVE ME TEHRE WORKING ENT FINDER since i suck at making ent finding. and btw do i get the colors of the trunk and the leaves or the FINDUPTEXT?
THANKS!