MMmmm
Yours:
SCAR Code:
function EntFinder: Boolean;
var
EntX, EntY : Integer;
begin
if InvFull or not LoggedIn then Exit;
GetMousePos(EntX, EntY);
Result := FindEnt(EntX, EntY, false);
if (Result) then
begin
Writeln('Found Ent!');
MouseFlag(MMcx, MMcy, 5, 5);
Wait(2000 + Random(2500));
WalkToWillows;
ChopWillows;
end;
end;
Mine:
SCAR Code:
function EntFinderBH: boolean;
var
EntX, EnyY: integer;
begin
if (InvFull) or not (LoggedIn) or not IsUpText('Willow') then
Exit;
GetMousePos(EntX, EnyY);
Result := FindEnt(EntX, EnyY, false);
if (Result) then
begin
MouseFlag(MMcx, MMcy, 5, 5);
EntsAvoided := EntsAvoided + 1;
end;
end;
MMM they dont look simular? Please credit procedures, dont make that mistake as i did long ago :P
EDIT*
Oh even sadder:
Mine from GE yew cutter:
SCAR Code:
function EntFinderBHText: boolean;
var
BHX, BHY: integer;
begin
if (InvFull) or (not LoggedIn) then
Exit;
Result := FindColorTolerance(BHX, BHY, 388075, 80, 6, 127, 20, 30);
if (Result) then
begin
MouseFlag(MMcx, MMcy, 5, 5);
EntsAvoided := EntsAvoided + 1;
end;
end;
Yours:
SCAR Code:
function TextEntFinder: boolean;
var
EX, EY: integer;
begin
if InvFull or not LoggedIn then
Exit;
Result := FindColorTolerance(EX, EY, 388075, 80, 6, 127, 20, 30);
if (Result) then
begin
Writeln('Found Ent!');
MouseFlag(MMcx, MMcy, 5, 5);
Wait(2000 + Random(2500));
EntSpotted := EntSpotted + 1;
WalkToWillows;
ChopWillows;
end;
end;