Simba Code:
program lunarislandwalkaltar;
{$DEFINE SMART}
{.include SRL/srl.simba}
{.include SPS/sps.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Username
Pass := ''; // Password
Pin := '';
Active := True; // Set to true if you want to use Player 0
end;
end;
//Everything up to this point is perfect
Function WalkThePath : Boolean; //This is the start of your function, if you don't know what one is check the tutorial section
Var
myPath : TPointArray;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['0_2', '0_3', '1_2']);
myPath := [Point(209, 966), Point(209, 974), Point(223, 974),
Point(233, 974), Point(245, 972), Point(257, 976), Point(259, 984),
Point(259, 994), Point(261, 1002), Point(261, 1008), Point(261, 1018),
Point(261, 1026), Point(259, 1034), Point(261, 1044), Point(261, 1056),
Point(261, 1062), Point(261, 1070), Point(261, 1078), Point(269, 1084),
Point(275, 1090), Point(285, 1098), Point(289, 1108), Point(297, 1110),
Point(303, 1120), Point(309, 1124), Point(321, 1128), Point(327, 1130),
Point(333, 1128), Point(341, 1132), Point(341, 1136), Point(343, 1144),
Point(345, 1154), Point(345, 1162), Point(349, 1172), Point(347, 1182),
Point(347, 1196), Point(355, 1192), Point(365, 1188), Point(373, 1186),
Point(383, 1180), Point(395, 1176), Point(405, 1178), Point(417, 1178),
Point(427, 1176), Point(427, 1176), Point(435, 1172), Point(435, 1172)];
Result := SPS_WalkPath(MyPath);
end;
begin
{$IFDEF SMART}
Smart_Server := 0;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ENDIF}
SetupSRL();
ClearDebug();
DeclarePlayers();
LoginPlayer();
WalkThePath; //This makes it do your path walking...
end.