Program VarrockIronMiner;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SPS/sps-osr.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Your Runescape username goes right here.
Players[0].Pass := ''; //Your Runescape password goes right here.
Players[0].Active := True;
Players[0].Pin := ''; //Bank PIN
Players[0].Nick := ''; //In-Game-Name
end;
procedure MineIron;
var x, y: integer;
begin
if FindObj(x, y, 'in', 2964321, 10) then
begin
Mouse(x, y, 0, 0, true);
ChooseOption('ine');
wait(1500+random(1000));
end;
end;
procedure WalkToBank;
begin
if (InvFull) then
begin
SetupSRL;
SPS_Setup(runescape_surface07, ['12_7']);
ToBank := [Point(187, 386), Point(195, 322),
Point(194, 257), Point(176, 193),
Point(161, 166), Point(118, 167),
Point(61, 166), Point(43, 166),
Point(44, 194), Point(44, 200)];
SPS_WalkPath(ToBank);
end;
procedure BankIron;
begin
WriteLn('Looking for bank.');
if FindBank('veb') then
begin
WriteLn('We have found the bank.');
if OpenBank('veb', False, True) then
begin
WriteLn('Banking...');
DepositAll;
CloseBank;
end;
end;
end;
procedure WalkToMine;
begin
WriteIn('Walking back to East Mine.');
begin
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE07, ['12_7']);
ToMine := [Point(43, 165), Point(109, 165),
Point(165, 165), Point(182, 204),
Point(196, 259), Point(196, 323),
Point(198, 385), Point(173, 400),
Point(173, 408)];
SPS_WalkPath(ToMine);
end;
procedure AntiBan;
begin
if (not(LoggedIn))then
Exit;
case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(1500+Random(150));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(25+random(100));
MakeCompass('S');
wait(30+random(110));
MakeCompass('N');
end;
end;
end.