SCAR Code:
// Use at your own risk, has NO ANTIRANDOMS... yet.
// Please tell me what can be improved etc on the forums.
// Power Woodcutter made by Orange. Thanks to
// Deathbyvirus for teaching me about arrays. :)
// This is the first version. It's a bit dodgey.
// Works best with lowest graphic settings and
// second lowest level of brightness.
program PowerWoodcutter;
{.include SRL/SRL.scar}
var
x,y: Integer; //This program was designed to power
i: Integer; //woodcut ONE type of tree, specifically
item:integer; //oaks, but if you want to change what tree
OakColourTPA: TPointArray; //you cut then go to line 58
OakColourATPA: T2DPointArray;
OakPoint: TPoint;
const
OakColour = 3634023; // <-- Best to use your own Colour.
procedure DropLogs;
begin
for item:=2 to 28 do
dropitem(item);
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(80) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: SleepAndMoveMouse(1235+random(860));
6: MMouse(random(300), random(250), 10, 10);
7: begin
GameTab(1 + Random(12));
wait(1200+random(1000));
GameTab(4);
end;
end;
end;
begin
SetUpSRL;
repeat
FindColorsSpiralTolerance(MSCX, MSCY, OakColourTPA, OakColour, MSX1, MSY1, MSX2, MSY2, 2);
OakColourATPA := SplitTPAEx(OakColourTPA, 5, 5);
SortATPASize(OakColourATPA, True);
for i := 0 to High(OakColourATPA) do
begin
OakPoint := MiddleTPA(OakColourATPA[i]);
MMouse(OakPoint.x, OakPoint.y, 0, 0);
Wait(75 + Random(25));
if IsUpText('Oak') then
begin
if InvFull then DropLogs;
Mouse(OakPoint.x, OakPoint.y, 0, 0, True);
Wait(1250+ Random(125));
AntiBan;
Exit;
end else
Continue;
end;
until(False);
end.
that should work.