o yea and also very nice script for first but you should try to learn failsafes and add them such as while your Cutting the tree
SCAR Code:
procedure FindingDaTree;
begin
repeat
if FindObjMulti('Tree', 123, 456, 789, 10) then
begin
GetMousePos(x, y); //
Wait(10 + random(10)); //
MMouse(x, y, 0, 0); // What's the point of all this?
Wait(10 + random(67)); //
Mouse(x, y, 0, 0, True); //
Wait(10 + random(20)); //
KillAntiRandoms;
Wait(10 + random(5));
DaAntiBan;
Clicks := Clicks + 1;
end;
wait(10 + random(5));
until (InvFull) or Clicks = 60;
end;
and also you should check the color of the text in the top right corner right here
SCAR Code:
procedure FindingDaTree;
begin
repeat
if FindObjMulti('Tree', 123, 456, 789, 10) then
begin
if Findcolor(color of tree text x,y,yellow) then
RunawayDirection('N');
wait(7000+random(1000));
runback;
GetMousePos(x, y); //
Wait(10 + random(10)); //
MMouse(x, y, 0, 0); // What's the point of all this?
Wait(10 + random(67)); //
Mouse(x, y, 0, 0, True); //
Wait(10 + random(20)); //
KillAntiRandoms;
Wait(10 + random(5));
DaAntiBan;
Clicks := Clicks + 1;
end;
wait(10 + random(5));
until (InvFull);
end;