Code:
program SnapeRunner;
//{$DEFINE SMART} //Uncomment for SMART
{.include SRL/SRL.scar}
{.i SRL/SRL/core/SPS/SPS.simba}
const
sUser = '';//Stats username
sPass = '';//Stats Password
Debug = True; //Print Debug Info To Simba Leave on for beta
SMARTstats = True; // set false if you dont want Stats Shown in SMART
Version = 'Beta'; // Scripts Version Name
var
MainPath1, MainPath2, MainPath3r, MainPath2r, MainPath3: TPointArray; // Main Path Between snapegrass and Bank TPointArray
Movestart: TPointArray; // Path From Tele poin in Fallador
Picked, Runs, earns, antibans: Integer;
loc: string;
procedure WalkToStart;
begin
if SPS_WalkPath(movestart) then
Writeln('Walked To Starting Position');
end;
Procedure WalkToWall;
begin
if (loc = 'Bank') then
begin
if SPS_WalkPath(MainPath1) then
loc:='Wall';
Writeln('Walked To Wall');
end;
if (loc = 'Gate') then
begin
if SPS_WalkPath(MainPath2r) then
loc:='Wall';
Writeln('Walked To Wall');
end
end;
Procedure WalkToGate;
begin
begin
if (loc = 'Wall') then
begin
if SPS_WalkPath(MainPath2) then
loc:='Gate';
Writeln('Walked To Gate');
end;
if (loc = 'Snape') then
begin
if SPS_WalkPath(MainPath3r) then
loc:='Gate';
Writeln('Walked To Gate');
end
end;
Procedure WalkToSnape;
begin
if SPS_WalkPath(MainPath3) then
begin
loc:= 'Snape';
Writeln('Walked To SnapeGrass');
end;
end;
Procedure WalkToBank;
begin
if SPS_WalkPath(MainPath1r) then
Writeln('Walked To Bank');
loc:='Bank';
end;
Procedure OverWall;
begin
FindObjectEx(x, y, ['Crumbling', 'all'], [9939631], 25, 50, MSX1, MSY1, MSX2, MSY2);
Mouse(x, y, 2, 2, true);
end;
begin
SetupSRL;
SPS_Areas := ['8_3', '8_4'];
Movestart:=[Point(3484, 1576),Point(3434, 1579),Point(3405, 1603)];
MainPath1:=[Point(3378, 1644),Point(3371, 1678)];
MainPath2:=[Point(3358, 1680),Point(3359, 1697),Point(3359, 1724),
Point(3360, 1733),Point(3360, 1746),Point(3359, 1768),
Point(3360, 1978),Point(3356, 1793),Point(3356, 1809),
Point(3357, 1821)];
MainPath3:=[Point(3359, 1840),Point(3368, 1857),Point(3361, 1809),
Point(3374, 1898),Point(3393, 1916),Point(3404, 1927),
Point(3404, 1956),Point(3403, 1985),Point(3398, 2007),
Point(3367, 2031),Point(3352, 2044),Point(3322, 2044),
Point(3299, 2028),Point(3286, 2011),Point(3268, 1985),
Point(3258, 1960),Point(3255, 1939),Point(3246, 1911)];
MainPath1r:=InvertTPA(MainPath1);
MainPath2r:=InvertTPA(MainPath2);
MainPath3r:=InvertTPA(MainPath3);
WalkToStart;
loc:= 'Bank';
WalkToWall;
OverWall;
WalkToGate;
end.
here you go .. unfinished lol i may have messed it up a bit whil trying to sort it out . also