Code:
program SPSTut;
{$i srl/srl.simba}
{$i sps/sps.simba}
Var
myPath:TPointArray;
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['11_6','10_6','10_7','11_7','12_6']);//SPS Areas
myPath := [Point(4555, 2681), Point(4553, 2667),
Point(4550, 2654), Point(4546, 2647),
Point(4541, 2641), Point(4533, 2635),
Point(4516, 2631), Point(4502, 2626),
Point(4477, 2623), Point(4468, 2625),
Point(4452, 2635), Point(4447, 2647),
Point(4444, 2657), Point(4441, 2668),
Point(4441, 2675), Point(4442, 2686),
Point(4451, 2711), Point(4463, 2719),
Point(4487, 2736), Point(4498, 2750)];
SPS_WalkPath(myPath);
end.