SCAR Code:
program New;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Woodcutting.scar}
var
x,y,i,fx,fy:integer;
const
tree1= 6193772; //leave this alone
tree2= 2570032; //leave this alone
tree3= 4087118; //leave this alone
bankfloor= 3158068; //select the color of the floor of the bank on the minimap
Amountofloads= 10; //change to your desired number of loads you want the cutter to preform.
procedure findtree;
begin
if findcolor(x,y,tree1,0,0,600,600) then wait(200+random(300));
solvenontalkingrandoms;
findent(fx,fy,true);
mmouse(x,y,10,10);
end;
procedure confirmtree;
begin
if isuptextmulticustom(['chop','hop','down']) then
begin
wait(200+random(300));
mouse(x,y,0,0,true);
flag;
end else
wait(2000+random(1000));
end;
procedure tobank;
begin
if findsymbol(x,y,'bank') then
begin
wait(100+random(100));
mmouse(x,y,10,10);
wait(100+random(100));
mouse(x,y,0,0,true);
end else
findcolor(x,y,bankfloor,0,0,600,600);
mmouse(x,y,10,10);
wait(100+random(100));
mouse(x,y,0,0,true);
flag;
end;
procedure usebank;
begin
wait(100+random(100));
openbankfast('db');
wait(100+random(100));
depositall;
wait(100+random(100));
closebank;
end;
procedure towillows1;
begin
if findsymbol(x,y,'fish') then
begin
wait(100+random(100));
mmouse(x,y,10,10);
wait(100+random(150));
mouse(x,y,0,0,true);
end else
findsymbol(x,y,'bank');
mouse(x,y,10,10,true);
flag;
repeat
findsymbol(x,y,'fish');
until(findsymbol(x,y,'fish'));
mouse(x,y,10,10,true);
end;
procedure chop;
begin
repeat
findtree;
confirmtree;
until(invfull);
end;
begin
setupsrl;
i:= 1;
repeat
chop;
tobank;
usebank;
towillows1;
i:= i+1;
until(i>=amountofloads);
end.