Simba Code:
program ll;
{$i sps/sps.simba}
{$I SRL/SRL/Misc/Smart.simba}
{$I SRL/SRL.simba}
{$i SRL/SRL/misc/paintsmart.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '5723';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
Procedure Walktopit;
Var
PitPath:TPointArray;
begin
If Not LoggedIn Then Exit;
If FindNormalRandoms Then Exit;
Writeln('Walking to pit.');
SPS_Setup(RUNESCAPE_SURFACE,['5_10']);
PitPath := [Point(284, 300), Point(252, 283), Point(214, 278),
Point(177, 276), Point(140, 306), Point(82, 310),
Point(35, 296), Point(24, 258)];
SPS_WalkPath(PitPath);
end;
Begin
DeclarePlayers;
SetupLogin;
Walktopit;
end.
This is what I am trying to compile.