program CatherbyLobbies;
{$DEFINE SMART8} //< Edit this out if using Rs Client
{$i srl/srl.Simba}
{$i sps/sps.simba}
var Catherby: tpointarray;
status: string;
procedure paths;
begin
Catherby := [Point(109, 125), Point(111, 131), Point(110, 134), Point(110, 139), Point(115, 143), Point(122, 143), Point(128, 142), Point(137, 142), Point(146, 142), Point(151, 140), Point(155, 139), Point(164, 139), Point(174, 140), Point(179, 141), Point(184, 140), Point(192, 140), Point(195, 140), Point(201, 141), Point(209, 144), Point(211, 148), Point(213, 154), Point(216, 158), Point(219, 159), Point(228, 159), Point(232, 159), Point(240, 159), Point(245, 161), Point(251, 164), Point(256, 168), Point(258, 169), Point(263, 175), Point(268, 178), Point(273, 182), Point(279, 185), Point(280, 187), Point(292, 191), Point(300, 191), Point(306, 187), Point(310, 182), Point(317, 179), Point(321, 179)]
end;
procedure testpath;
begin
if sps_walkpath(Catherby) then
status := 'walking to the shore'
else begin
status :='failed walking to the shore';
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,['MMap']);
clicknorth(srl_angle_high);
testpath;
repeat
until(false)