You need to move your antiban procedure above your banking procedure since you call antiban in the banking procedure.
Also, you are missing quite a few "end" in your banking procedure.
The below compiled for me.
Simba Code:
program Mining;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Var
WalkToBank:TPointArray;
const
{==========Smart Setup==========}
World = 0; // Input the runescape world number right here for it to select.You may leave it as 0 if you would like it to select a random world.
MEMBERS = True; // Select False if you are not a member. Select True if you are a member.
SIGNED = True; // Select True if you are using single account. Select False if not.
{===============================}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Name123'; //Your Runescape username goes right here.
Players[0].Pass := 'Password123'; //Your Runescape password goes right here.
Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
Players[0].Pin := ''; //Put your Bank PIN here. Leave blank if you don't have a Bank PIN.
end;
procedure MineTin;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'in', 7829629, 10)then //This will have the script find an object of your choice
Mouse(x, y, 0, 0, true);
ChooseOption('ine');
wait(1500+random(1000)); // This will make the script wait for a certain time
until(InvFull);
end;
procedure WalkToTheBank;
begin
if(InvFull)then
begin
FindNormalRandoms;
SetupSRL;
SPS_Setup(RUNESCAPE_SURFACE,['12_7']);
WalktoBank := [Point(4978, 3185),
Point(5001, 3124),
Point(5005, 3092),
Point(5001, 3062),
Point(4990, 3016),
Point(4976, 2984),
Point(4939, 2939),
Point(4899, 2936),
Point(4855, 2943),
Point(4852, 2973)];
SPS_WalkPath(WalkToBank);
end;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(8)of
0:
begin
HoverSkill('Mining', false);
wait(1500+Random(250));
end;
1:PickUpMouse;
2:
begin
MakeCompass('N');
wait(25+random(150));
MakeCompass('S');
wait(75+Random(150));
MakeCompass('N');
end;
end;
end;
procedure Bank;
begin
FindNormalRandoms;
WriteLn('Looking for bank.'); //mWrites in the Debug Box
if FindBank('veb')then // Finds the bank
begin
WriteLn('We have found the bank.');
if OpenBank('veb', False, True) then // Opens the bank
begin
WriteLn('We have found the bank.');
if OpenBank('veb', False, True) then // Opens the bank
begin
WriteLn('Proceeding to Bank');
DepositAll; // Deposits all items in Inventory
CloseBank; //Closes the Bankscreen
WriteLn('Banking completed. Proceeding to Rest.');
RestUntil(100); // Rests character
AntiBan;
end;
end;
end;
end;
begin
Smart_Server := WORLD; //This here sets up the SMART Minimizing Autoing Resource Thing so you can bot.
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False;
SetupSRL; //This here sets up SRL incase you didn't know.
DeclarePlayers; //This here is so the script knows that the player info is filled in with.
LoginPlayer; //This here logs in your player you filled in with.
repeat
MineTin;
WalkToTheBank;
Bank;
until AllPlayersInactive;
end.