SCAR Code:
program New;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}
Var ax, ay, Bankx, Banky, Logz, Loadz, Exp :integer;
Procedure FindRandomz;
begin
FindEnt(1452064);
FindHead;
FindNormalRandoms;
FindLamp('Woodcutting');
if (FindFight) then
begin
RunAwayDirection('N');
Wait(10000+random(2000));
RunBack;
end;
end;
Procedure Walk2trees;
begin
SetRun(True);
if(FindSymbol(x, y, 'Water')) then
begin
Mouse(x, y, 1, 1, True);
Wait(1000);
Flag;
end;
if(FindSymbol(x, y, 'Water') = False) then
begin
Mouse(666, 55, 1, 1, True);
Wait(1000);
Flag;
FindSymbol(x, y, 'Water');
Mouse(x, y, 1, 1, True);
Wait(1000);
Flag;
end;
FindSymbol(x, y, 'Store');
Mouse(x, y, 1, 1, True);
Flag;
Mouse(646, 50, 1, 1, True);
Flag;
Mouse(646, 50, 1, 1, True);
Flag;
end;
Procedure Chop;
begin
ax := 0;
ay := 0;
repeat
If(FindColorTolerance(x, y, 1452064, ax + 5 + random(5), ay + 5 + random(5), 513, 333, 10)) then
MMouse(x, y, 1, 1);
Wait(100);
If(FindColorTolerance(x, y, 1452064, ax + 5 + random(5), ay + 5 + random(5), 513, 333, 10) = False) then
begin
ax := 0;
ay := 0;
KeyDown(VK_left);
Wait(500);
KeyUp(VK_left);
end;
Wait(100);
If(IsUpText('Tree') = False) then
GetMousePos(ax, ay);
Wait(100);
until(IsUpText('Tree'))
Mouse(x, y, 1, 1, True);
FindRandomz;
end;
Procedure NextTreeYet;
begin
ay := 0;
ax := CountItemColor(65536)
while (CountItemColor(65536) = ax)do
begin
wait(500);
ay := ay + 1
If (ay >= 20) then Chop;
end;
FindRandomz;
end;
Procedure Walk2Bank;
begin
PerfectNorth;
if(FindSymbol(x, y, 'Store')) then
Mouse(x, y, 1, 1, True);
repeat
If(FindSymbol(x, y, 'Store') = False) then
Mouse(649, 107, 1, 1, True);
Flag;
Until(FindSymbol(x, y, 'Store'));
Mouse (x, y, 1, 1, True);
Flag;
FindSymbol(x, y, 'Water');
Mouse(x, y, 1, 1, True);
Flag;
Mouse(644, 122, 1, 1, True);
Flag;
FindSymbol(x, y, 'bank');
Mouse(x, y, 1, 1, True);
Flag;
end;
Procedure Bank;
begin
Bankx := 249
Banky := 175
repeat
MMouse(Bankx, Banky, 1, 1);
Banky := Banky + 10;
Wait(100);
If (Banky > 363) then
begin
Bankx := Bankx + 50;
Banky := 175;
end;
Until(IsUpText('Bank booth') = True);
Mouse(Bankx, Banky, 1, 1, False);
Wait(1000+Random(500));
ClickOption('Use-quickly', 1);
Wait(3000+random(500));
FindColorTolerance(x, y, 3232619, 566, 219, 732, 460, 5);
Mouse(x, y, 1, 1, False);
PopUp('Store All');
Wait(200+random(500));
CloseBank;
end;
Procedure Proggyreport;
begin
Logz := Loadz * 28
Exp := Logz * 25
Writeln('|---------------------------------------------|');
Writeln('|Worked For : ' + TimeRunning)
Writeln('|Chopped and Banked '+IntToStr(Loadz) + ' Loads');
Writeln('|Chopped and Banked '+ IntToStr(Logz) + ' Logs');
Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
Writeln('|---------------------------------------------|');
end;
begin
SetUpSRL;
ActivateClient;
Wait(3000);
FindAxeHeadColor;
repeat
PerfectNorth;
Walk2Trees;
While(InvFull = False) do
begin
Chop;
NextTreeYet;
end;
Walk2Bank;
Bank;
Loadz := Loadz + 1;
ProggyReport;
until(false);
end.