program Walk;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SPS/sps-osr.simba}
var
MyLoc: TPoint;
procedure WalkToladder;
begin
SPS_AnyAngle := True;
MyLoc := sps_getMyPos;
Writeln('SPS returns ' + inttostr(myloc.x) + ',' + inttostr(myloc.y));
SPS_WalkPath([Point(290, 1147), Point(291, 1123), Point(293, 1084), Point(318, 1076), Point(360, 1073)]);
end;
procedure declareplayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Pin := '';
Players[0].Active := True;
end;
begin
declareplayers;
SetupSRL;
LoginPlayer SPS_Setup(RUNESCAPE_OTHER, ['misthalin_underground']);
repeat
Walktoladder;
until not loggedin
end.