Code:
Procedure RunFromTaverley;
begin
StatsGuise('Running from Taverley.');
myPath := [Point(3306, 2832), Point(3330, 2865), Point(3328, 2891), Point(3326, 2915), Point(3347, 2931), Point(3382, 2939), Point(3410, 2957), Point(3410, 2982), Point(3410, 3013), Point(3419, 3047), Point(3446, 3068), Point(3480, 3085), Point(3512, 3105), Point(3523, 3143), Point(3522, 3179), Point(3518, 3213), Point(3508, 3243)];
SPS_Setup(RUNESCAPE_SURFACE,['8_7', '8_8']);
SPS_WalkPath(mypath);
FFlag(1);
end;
Procedure CheckStartLocation;
var
x, y, MiningIconDTM: Integer;
begin
MiningIconDTM := DTMFromString('mwQAAAHic42RgYKhnYmCoBuJGIK4B4joouxWKW4B4BlDdNCCeB8RzgXgSFIPEZgLxHCCOM+ZjOHDgAF4sCVRHCDMSgeEAAGM/HYE=');
begin
wait(RandomRange(300, 600));
if(findDTM(MiningIconDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
begin
StatsGuise('We''re in the right place.');
end else
begin
StatsGuise('Teleporting to Taverley.');
WriteLn('Teleing to Taverley, will walk to mines from there.');
OpenLodestoneScreen;
LodestoneTeleport('Taverley');
Wait(RandomRange(14000, 15000));
RunFromTaverley;
end;
FreeDTM(MiningIconDtm);
end;
end;