Here
SCAR Code:
function LoadPathToAlter: TPointArray;
begin
SetLength(Result, 13);
Result[1] := Point(3270, 3166);
Result[2] := Point(3265, 3179);
Result[3] := Point(3265, 3179);
Result[4] := Point(3267, 3195);
Result[5] := Point(3274, 3208);
Result[6] := Point(3278, 3222);
Result[7] := Point(3283, 3237);
Result[8] := Point(3296, 3244);
Result[9] := Point(3303, 3254);
Result[10] := Point(3313, 3253);
Result[11] := Point(3310, 3258);
Result[12] := Point(3311, 3254);
end;
Procedure WalkToAlter;
Var
I: Integer;
Path: TPointArray;
Begin
Path := LoadPathToAlter;
for i := 0 to High(Path) do
Begin
WalkToTile(Path[i], 3, 0);
end;
Wait(500+Random(300));
end;
hope that helps