Code:
Program MyWoodcutterPro
{$DEFINE SMART}
{$i srl/srl.Simba}
{$i sps/sps.simba}
var
towillows: tpointarray;
status: string;
procedure paths;
begin
towillows:= [Point(436, 273), Point(435, 276), Point(434, 268), Point(431, 263), Point(431, 259), Point(421, 254), Point(410, 255), Point(392, 252), Point(383, 242), Point(383, 237), Point(378, 211), Point(375, 197), Point(368, 194), Point(357, 176), Point(357, 171), Point(354, 159), Point(351, 149), Point(337, 146), Point(327, 154), Point(318, 160), Point(308, 168), Point(295, 178), Point(280, 187), Point(265, 192), Point(248, 193), Point(230, 204), Point(219, 223), Point(216, 238), Point(215, 247), Point(206, 258), Point(198, 266), Point(182, 277), Point(165, 283), Point(152, 302), Point(149, 316), Point(148, 334), Point(144, 346), Point(137, 366), Point(126, 378), Point(117, 387), Point(104, 396), Point(91, 411), Point(87, 421), Point(85, 442), Point(83, 449), Point(85, 467), Point(87, 485), Point(89, 501), Point(91, 520), Point(90, 536), Point(89, 549), Point(91, 566), Point(90, 579)]
end;
procedure testingpath;
begin
if sps_walkpath(towillows) then
status := 'walking to the willows'
else begin
status := 'we did not make it there';
writeln(status + ' + time running:' +timerunning);
end;
writeln(status + ' + time running: ' +timerunning);
end;
begin
srl_sixhourfix := true;
smart_fixspeed := true;
setupsrl;
paths;
sps_setup(runescape_other, ['willowtrees']);
clicknorth(srl_angle_high);
testpath;
repeat
until(false)
end.