//=-=-=-=-=-=-=-=-=-=-=-=-=//
//=-      Bentrims's     -=//
//=-      Bone Buryer    -=//
//=-        V 1.1        -=//
//=-=-=-=-=-=-=-=-=-=-=-=-=//
//=-=-=-=-=-=-=-=-=-=-=-=-=//
//=-    Verison Log      -=//
//=- V.1- Public Release -=//
//=- V.1.1-Few Bugs Fixed-=//
//=-=-=-=-=-=-=-=-=-=-=-=-=//



program BoneBuryer;
{.include Si.scar}

var Bonescount:integer;Counter,Counter2:integer;x,y:integer;MustUpdate:Boolean;

const
//=-=-=-=-=-Setup-=-=-=-=-=//
Bones=87;//How Many Bones in Bank?
//=-=-=-=No Touchy=-=-=-=-=//
BoneColor=11645371;
BankSymbol=3060683;
//=-=-=-=-=-=End=-=-=-=-=-=//


procedure Bury;
begin
counter:=0;
counter2:=0;
repeat
Checkrandoms(1,'ranged','NA',false,false,[rtBox, rtLamp, rtLeveled,rtText]);
counter:=counter+1
Status('Burying Bones')
if (findcolorspiral(x,y,BoneColor,562,214,729,454)) then
begin
           wait(100+random(50))
           Mouse(x,y,5,5,true)
           wait(2000+random(200))
      end else
      begin
           Counter2:=Counter2+1;
           if(counter2>=10) then
           begin
                Mouse(23,14,5,5,false)
                wait(100+random(50))
                MoveMouseSmooth(40,167)
           end
      end
until(counter>=29)
if(FindColorSpiral(x,y,BankSymbol,565,5,725,160))then
begin
     Mouse(x,y,1,1,true);
end;
end;

Procedure bank;
begin
status('Banking');
Checkrandoms(1,'ranged','NA',false,false,[rtBox, rtLamp, rtLeveled,rtText]);
Openbank;
Depositall;
Withdraw(1,1,28)
Closewindow;
Checkrandoms(1,'ranged','NA',false,false,[rtBox, rtLamp, rtLeveled,rtText]);
end;


procedure ProgressReport;
begin
writeln('=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=');
writeln('=-=-=-=-=- Progress Report =-=-=-=-=-=');
writeln('      Bone Buryer               ');
writeln('     Bones Buryed: '+inttostr(bonescount)+'');
writeln('     Pray xp Gained            ');
writeln('     If Used Bones:   '+inttostr(bonescount*(4))+'          ');
writeln('     If Used Big Bones:  '+inttostr(bonescount*15)+'      ');
writeln('=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=');
end;

Begin
LoadInclude('Mozilla FireFox',False)
Checkrandoms(1,'ranged','NA',false,false,[rtBox, rtLamp, rtLeveled,rtText]);
repeat
bury;
bank;
bonescount:=bonescount+28;
ProgressReport;
Until(bonescount=Bones)or(Bonescount>bones)
Logout;
end.