// Bone Bury - by PorTal
// Put Bones in first bank slot
// Fill in how many bones you have for BCheck
// Sit in bank and let this go
// If monster found then it runs south east
// so make sure your in a bank like al kahrid
// that you can run southeast.

// credits to odie5533 and psycho for randoms, osi and


program BoneBury;
{.include osi.txt}
{.include par.txt}

var Check,Counter,Counter2:integer;

const
BCheck=500;           //Number of Bones
BoneColor=14277086;    //bone colour 14277086
BankSymbol=3060683;
LampSkill='hitpoints';

///////////////////////////////////////////////////////////////////////////////
Procedure FindFight; // From Stupid's Guildminer
begin
if(FindColorSpiral(x,y,65280,180,90,320,230))then begin wait(1000) end;
if(FindColorSpiral(x,y,65280,180,90,320,230))then
  begin
      Mouse(696,118,5,5,true)
      wait(15000+random(1000))
      if(FindColorSpiral(x,y,BankSymbol,565,5,725,160))then
      begin
           Mouse(x,y,1,1,true);
      end;
  end;
end;

procedure FindMiscRandoms; //from odie5533
var ax,ay:integer;
begin
 if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
  begin
   GetScreenshot('Dead',1);
   LogOut('You are dead!');
   Check:=BCheck;
  end;
 if(FindColor(ax,ay,11503238,10,350,479,433))then
  begin
   GetScreenshot('Mime',1);
   LogOut('Mime Found');
   Check:=BCheck;
  end;
end;

procedure RandomChecker;   //thanks odie, pplsuqbawlz, and
begin
   wait(100)
   FindFight;
   Check4Randoms;
   Check4Lamp(LampSkill);
   FindMiscRandoms;
end;
///////////////////////////////////////////////////////////////////////////////
// Banking from odie
Procedure Bank;
begin
OpenBank;
Withdraw(1,1,0);
CloseBank;
end;

Procedure Bury;
begin
counter:=0;
counter2:=0;
repeat
RandomChecker;
      counter:=counter+1;
      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;

begin
SetupOSi;
repeat
Bank;
wait(1000+random(100))
Bury;
Check:=check+28;
until(Check>=BCheck)
Logout('All Finished');
end.