Great script, but one problem. You'll get an error if you run your script because no procedure called Progress does not exist. Try using this:
SCAR Code:
{=================================================================}
{ Bury It - Bank Bone Burier }
{ -------------------------- }
{ }
{ AUTHOR : Cut Em2 It }
{ NAME : Bury It - Bank Bone Burier }
{ USAGE : Start near any bank with bone's in }
{ slot's 1. }
{ DESCRIPTION : Bury's bone's from bank. }
{ SRL USED : 4.00 Rev #7 }
{--------------------------Instructions---------------------------}
{ 1) Setup Line 21. }
{ 2) Drag Crosshair over to Runescape Screen. }
{ 3) Run the script. }
{ 4) For emergency stop, press F3 to terminate the script. }
{=================================================================}
program BuryIt;
{.include SRL/SRL.scar}
var
LoadsDone, BonesBuried, x, y: integer;
const
LoadsToBury=10; //How many loads of bones to bury.
procedure Progress;
begin
Writeln('<====Bury It Bank Bone Burier====>');
Writeln('<========Progress Report=========>');
Writeln('<-------------------------------->');
Writeln(' Has Buried: ' + IntToStr(BonesBuried) +' bones. >');
Writeln(' Has been running for: '+ TimeRunning);
Writeln('<================================>');
end;
procedure GetBones;
begin
FindObjCustom(x, y, ['Use'], [671057], 4);
Mouse(x, y, 1, 1, false);
ChooseOption('Use-quickly');
if(BankScreen) then
begin
//Mouse(551, 368, 1, 1, false); Should NOT USE COORDINATES.
Withdraw(1,1,28); //Much better and safer.
Wait(1000 + Random(672))
repeat //Will try and continue to close the bank until...
CloseBank; //...the CloseBank function return's true.
Until(CloseBank = True);
end;
end;
procedure BuryBones; //Thanks for idea of for to do loop from Derek-
var
i: integer;
begin
if(InvCount>=1) then //If inventory has 1 or above item's it will do the
begin //...below.
for i := 1 to 28 do
begin
MouseItem(i, true);
Wait(600+random(100));
BonesBuried:=BonesBuried+1;
end;
end;
end;
begin
BonesBuried:=0; //This will set the value's to 0
LoadsDone:=0; //This will set the value's to 0
ActivateClient; //Will switch to the window the client it in.
repeat
GetBones;
BuryBones;
LoadsDone:=LoadsDone+1;
Until (LoadsDone>=LoadsToBury) or (IsFKeyDown(3));
Progress;
end.
I have also fixed other error's too. Learn from your mistake's!