SCAR Code:
program VarrockOakChopper;
{.include srl/srl.scar}
const
LoadsPerPlayer=(10);
rockcolor=(7561323);
Oakcolor=(2567728);
WallColor=(7764863);
TreeColor=(2973782);
Procedure DeclarePlayers;
begin
SetupPlayers;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
LoadPlayerArray;
end;
Procedure Walktorock;
var
x,y:integer ;
begin
if FindColor(x, y, rockcolor, MMX1, MMY2, MMX1, MMX2) then
ClickMouse(x,y,True);
if true then;
if FindColor(x, y, OakColor, MMX1, MMY2, MMX1, MMX2); then
ClickMouse(x,y, True);
end;
Procedure Cutoak;
var
x,y, MyMark: integer;
begin
repeat
if Findobj(x,y,'oak', TreeColor,20) then
begin
Mouse(x,y, 3, 3, True);
Exit;
if timefrommark(mymark) > (2*60*100) then
logout;
exit;
end;
until(False)
end;
Procedure WalkToBank;
var
x,y:integer;
begin
FindColor(x, y, Wallcolor, MMX1, MMY1, MMX2, MMY2);
ClickMouse(x,y,True);
FindColor(x, y, rockcolor, MMX1, MMY1, MMX2, MMY2);
ClickMouse(x,y,True);
FindSymbol(x,y,'BankSymbol');
ClickMouse(x,y,True);
end;
Procedure Dposit;
Var
x,y:integer;
begin
OpenBank;
InvBox(1);
Clickmouse(x,y, False)
if Chooseoption('all') then
end;
Procedure FindLoc;
var
x,y:integer;
begin
FindColor(x, y, RoadColor, MMX1, MMY1, MMX2, MMY2);
ClickMouse(x,y,True);
end;
begin
SetupSRL;
DeclarePlayers;
if Loggedin then Logout;
LoginPlayer;
SetRun(True);
HighestAngle;
Repeat
Walktorock;
Cutoak;
if invFull then
WalkToBank;
Dposit;
until(Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0)
end.