SCAR Code:
program BankBury;
{.include SRL/SRL.scar}
const
RunDirection = 'N';
BoneType = 'Normal Bones'; //What do you want to bury?
//Normal Bones Big bones
BankLoc = 'feb'; //List of banks:
//feb = Falador east bank fwb = Falador west bank
//veb = Varrock east bank vwb = Varrock west bank
//akb = al kharid bank db = draynor bank
//eb = edgeville bank
var x, y, BonesDTM, BigBonesDTM : integer;
Done : boolean;
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure LoadDTM;
begin
BonesDTM := DTMFromString('78DA633CC9C8C02003C448E0CAB9730CFC401' +
'A24FA1F0818AF0259B2A86A40B25C503560DE09204B85809A7340' +
'9608013507812C71026AF60359D2F8D500007F080C22');
BigBonesDTM := DTMFromString('78DA639464646098C98002F66DDD0AA619A17' +
'C4665206B21031A604455A30264CD20A04604C89A4B400D3F9035' +
'8B801A39206B0A0135C284D50000B84E0729');
end;
procedure FindRandom;
var i:integer;
begin
if not(LoggedIn) then Exit;
for i:=1 to 3 do
begin
case i of
1: if FindMod then
begin
writeln('Found Moderator.');
Logout;
end;
2: FindNormalRandoms;
3: if FindFight then
begin
RunAway(RunDirection, true, 1, 5500+Random(1000));
end;
end;
end;
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case random(10) of
0 : MMouse(0, 0, 700, 500);
1 : Hoverskill('Prayer', false);
2 : BoredHuman;
3 : RandomMovement;
4 : GameTab(1);
5 : PickupMouse;
6 : GameTab(2);
7 : RandomMovement;
8 : HoverSkill('random', false);
9 : begin
MakeCompass('N');
Wait(10+random(5));
MakeCompass('S');
Wait(10+random(5));
MakeCompass('N');
end;
end;
end;
procedure WithdrawBones;
var i:integer;
begin
case random(2) of
1 : OpenBankFast(BankLoc);
2 : FindObjCustom(x, y, ['ank', 'ooth'], [1792105, 4615547, 2970721], 0);
mouse(x, y, 2, 2, false);
Wait(1000+Random(1000));
if BankScreen then
DepositAll;
SearchBank('Bones');
for i := 1 to 2 do
case i of
1: if (Bonetype = 'Normal Bones') then
if(FindDTM(BonesDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
mouse(x, y, 2, 2, false);
if not ChooseOption('ll') then
TerminateScript;
end else
wait(2000+random(200));
writeln('Normal Bones Withdrawed!');
end else
begin
TerminateScript;
Writeln('Couldnt find bones');
end;
end;
2: if(Bonetype = 'Big Bones') then
if(FindDTM(BigBonesDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
mouse(x, y, 2, 2, false);
ChooseOption('ll');
wait(2000+random(200));
writeln('Big Bones Withdrawed!');
end else
begin
TerminateScript;
Writeln('Couldnt find bones');
end;
end;
end;
if not BankScreen then
TerminateScript;
end;
end;
end;
procedure BuryBones;
var i:integer;
begin
if not(Loggedin) then Exit;
Gametab(4);
MakeCompass('N');
repeat
FindRandom
for i := 1 to 2 do
case i of
1: if (Bonetype = 'Normal Bones') then
begin
if(FindDTM(BonesDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
mouse(x, y, 2, 2, true);
wait(2000+random(50));
end;
until(not FindDTM(BonesDTM, x, y, MIX1, MIY1, MIX2, MIY2) or FindRandom);
wait(1000+random(500));
writeln('Load of Bones Buried')
end;
end;
end;
2: if(Bonetype = 'Big Bones') then
if(FindDTM(BigBonesDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
mouse(x, y, 2, 2, true);
wait(2000+random(50));
end;
until(not FindDTM(BigBonesDTM, x, y, MIX1, MIY1, MIX2, MIY2) or FindRandom);
wait(1000+random(500));
writeln('Load of Bones Buried')
end;
end;
end;
End;
procedure TerminateScript;
begin
FreeDTM(BonesDTM);
FreeDTM(BigBonesDTM);
Logout;
procedure SetupScript;
begin
cleardebug;
writeln('Impiwimpi');
writeln('BankBury');
SetupSRL;
mousespeed := 13;
declareplayers;
activateclient;
wait(500);
end;
begin
SetupScript;
if (not (LoggedIn)) then
begin
LoginPlayer;
SetAngle(true);
Wait(500 + random(30))
SetChat('on', 1);
SetChat('friends', 2);
SetChat('off', 3);
end;
repeat
LoadDTM;
WithdrawBones;
BuryBones;
FindRandom;
AntiBan;
end.