SCAR Code:
program SimpleOakCutter;
{.include SRL\SRL.scar}
var
x, y : Integer;
const //Pic all of these colors
BankGold = 4115428; //MiniMap bank gold color
RockLight = 4805203; //Lightest rock color on MiniMap
Dirt = 5665918; //dirt on main screen
Tree = 10277; //a dark pixle of a tree
BankBoothGlass = 6584189; //color of the Bank booth glass
OakInvLog = 2839929; //Color of an oak log in your invintoy
procedure WalkToTree;
begin
If(Findcolor(x, y, RockLight, 518, 0, 760, 166)) then
begin
mmouse(x, y, 2, 2);
mouse(x, y, 1, 1, true);
Wait(15000+random(3000));
Findcolor(x, y, Dirt, 0, 0, 515, 337);
mmouse(x, y, 2, 2);
mouse(x, y, 1, 1, true);
Wait(7000+random(2000));
else logout;
end;
end;
procedure FindTree;
Begin
If(Findcolor(x, y, Tree, 0, 0, 515, 337)) then
mmouse(x, y, 2, 2);
if IsUptext('oak') then mouse(x, y, 1, 1, true) else
if IsUptext('oak') then mouse(x, y, 1, 1, true) else
if IsUptext('oak') then mouse(x, y, 1, 1, true) else
if IsUptext('oak') then mouse(x, y, 1, 1, true) else
if IsUptext('oak') then mouse(x, y, 1, 1, true) else LogOut;
end;
Procedure GetFullInv;
Begin
if InvFull then exit else FindTree;
end;
Procedure WalkToBank;
Begin
If(Findcolor(x, y, RockLight, 518, 0, 760, 166)) then
mmouse(x, y, 2, 2);
mouse(x, y, 1, 1, true);
Wait(10000+random(2000));
Findcolor(x, y, BankGold, 518, 0, 760, 166);
mmouse(x, y, 2, 2);
mouse(x, y, 1, 1, true);
else LogOut;
end;
Procedure BankLogs;
Begin
If(Findcolor(x, y, BankBoothGlass, 0, 0, 515, 338)) then
mmouse(x, y, 2, 2);
if IsTextUp('Bank booth') = true then
mouse(x, y, 1, 1, True);
Wait(1500+random(300));
Mouse(302, 453, 30, 3, True);
Wait(2500+random(500));
Mouse(263, 395, 3, 40, True;
Wait(2500+random(500));
Mouse(880, 279, 1, 1, False);
Wait(1000+random(500));
Mouse(876, 345, 20, 0, True);
Else
Begin
BankLogs
end;
end;
begin
WalkToTree;
FindTree;
GetFullInv;
WalkToBank;
BankLogs;
end.