Having trouble with SPS.

[rivx]

I am attempting to make my first script, but for some particular reason I can't get my SPS walking to work. Everything compiles correctly, however when ever I run the script and it reaches the part to use SPS to walk, one of my CPU cores reaches 100%, then after a few seconds the script stops (no errors, just that my SMART does nothing).

Here is the part that doesn't work:

Procedure Something;
var
  myPath:TPointArray;
begin

  SPS_Setup(RUNESCAPE_SURFACE,['3_6','3_7','4_7','4_6']);
  myPath := [Point(1616, 2909), Point(1619, 2893), Point(1613, 2878), Point(1601, 2864), Point(1583, 2853), Point(1568, 2841), Point(1550, 2824), Point(1549, 2802), Point(1552, 2776), Point(1540, 2759), Point(1540, 2741), Point(1536, 2727), Point(1533, 2707), Point(1533, 2683), Point(1539, 2667), Point(1532, 2653), Point(1528, 2631), Point(1531, 2622), Point(1524, 2614), Point(1516, 2601)];
  SPS_WalkPath(myPath);  

end;

I made a test SPS script, just to see if I have the format correct, and that script seems to be working. It does sit there for a few moments and make one of my cores go to 100%, but then it proceeds to walk.

program TestSPS;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}

Procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Pin  :='';
  Players[0].Active:=True;

end;//DeclarePlayers

var
  myPath : TPointArray;
begin
  Smart_Server := 72;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  ClearDebug;
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;

  Wait(15000);
  Writeln('waiting done');
  SPS_Setup(RUNESCAPE_SURFACE, ['11_7','11_6','12_7']);
  myPath := [Point(4681, 3131), Point(4681, 3103), Point(4682, 3072), Point(4681, 3044), Point(4678, 3016), Point(4680, 2990), Point(4677, 2965), Point(4669, 2947), Point(4657, 2936), Point(4636, 2935), Point(4618, 2933), Point(4605, 2933), Point(4589, 2929), Point(4578, 2913), Point(4579, 2887), Point(4582, 2859), Point(4570, 2842), Point(4550, 2840), Point(4534, 2838), Point(4519, 2834), Point(4507, 2817), Point(4502, 2797), Point(4504, 2774), Point(4517, 2761), Point(4528, 2755), Point(4538, 2751), Point(4555, 2748)];
  SPS_WalkPath(myPath);

end.

I would really appreciate if someone showed me what I did incorrectly.

[begginer]

You are using on main loop the walking. Try a new procedure called WalkToDestiantion; and use sps there.