No idea how stable it is, Currently has no anti bans, breaking, or failsafes of any kind.
drynor.png needs to be placed inside of Includes\RSWalker\maps
Code:
program drynorWillowChopper;
{$define SMART} //If not using SMART, then comment this line out
{$I SRL/OSR.simba}
{$I RSWalker/Walker.simba}
const
LOGIN_NAME = '';
LOGIN_PASS = '';
RS_WORLD = -1;
IS_MEMBER = False;
var
leWalker: TRSWalker;
procedure declarePlayers();
begin
with Players.New()^ do
begin
LoginName := LOGIN_NAME;
Password := LOGIN_PASS;
IsActive := True;
IsMember := IS_MEMBER;
World := RS_WORLD;
end;
Players.SetCurrent(0);
end;
function isChopping(): Boolean;
var
invCount: Integer;
begin
invCount := Inventory.Count;
wait(randomRange(7000, 15000));
Result := (Inventory.Count <> invCount);
end;
procedure startup();
begin
SRL.Setup([]);
leWalker.Init('world[4_5].png', -1);
declarePlayers();
if (not SRL.isLoggedIn) then
begin
Players.LoginCurrent();
MainScreen.setAngle(True);
end;
end;
procedure walkToWillows();
var
path: TPointArray;
begin
path := [[338, 406], [317, 444]];
leWalker.WalkPath(path);
end;
procedure chopWillows();
var
TPA, willowTree: TPointArray;
ATPA: T2DPointArray;
begin
if (SRL.FindColors(TPA, CTS2(1918270, 9, 0.05, 1.11), MainScreen.GetBounds) > 0) then
begin
ATPA := TPA.Cluster(12);
ATPA.FilterSize(1, 95);
ATPA.SortByIndex(MainScreen.GetMiddle);
for willowTree in ATPA do
begin
Mouse.Move(willowTree[Random(Length(willowTree))]);
if MainScreen.IsUpText(['Chop down W', 'hop down W', 'p down W']) then
begin
Mouse.Click(mouse_left);
Break;
end;
end;
repeat
wait(randomRange(500, 1500));
until(not isChopping);
end;
end;
procedure walkToBank();
var
path: TPointArray;
begin
path := [[317, 444], [338, 406]];
leWalker.WalkPath(path);
end;
procedure doBank();
begin
BankScreen.Open(blDrynor);
wait(randomRange(250, 400));
BankScreen.DepositAll;
BankScreen.Close;
end;
begin
clearDebug();
startup();
repeat
walkToWillows();
repeat
chopWillows();
until(Inventory.IsFull);
walkToBank();
doBank();
until(false);
end.