{Start next to a bank with DragonBones in bank, Make sure nothing close to the color of dragonbones is visible when the bank is opened.}


program BuryBones;
{.include SRL/SRL.scar}

const
Bones = 11316663;
Bank = 2314598;

var
x,y, quick,All : integer;
acc : Extended;

Function InBank : Boolean;
Var
  a, b : Integer;
Begin
  If(FindColorSpiralTolerance(a,b,2070783,0,0,516, 337,3))
  Then
      result:= true;
End;

procedure AccessBank;
  Begin
quick := BitmapFromString(44, 14, 'meJzlklkKACAIBbv/pQ2CoEWftm' +
        'gfzVeIyTwrpctQwVL0I8BBnbbtQBX2FphADUOzNAE3L93CkY2JQIQ' +
        'rDnMx3sG+B/Zw7oA7qUeVB4nsy2Rt2brU6cfPDviBwvYwf7PnZJTV' +
        '6iQ=');
Begin
repeat
 If(FindColorSpiralTolerance(x,y,Bank,0,0,516, 337,3)) then
 MMouse(x,y,0,0);
 Begin
 If(IsUpText('Bank')) then
 Mouse(x,y,0,0,false);
 end;
 if(FindDeformedBitmapToleranceIn(quick, X, Y, 0, 0, 515, 336, 30, 0, false, acc)) then
    Begin
    Mouse(x,y,0,0,True);
    WriteLn('Accessing Bank');
    end;
Until(InBank)
FreeBitmap(quick);
FreeSRLBitmaps;
end;
end;

Procedure GetBones;
Begin

All := BitmapFromString(15, 11, 'meJxjYCAZ/IcBTEE0NiYDl2KCCi' +
        'hUjAYGyhkDrhgA57r1Cw==');

Begin
If(FindColorSpiral(x,y,Bones,0,0,516, 337)) then
MMouse(x,y,0,0)
end;
Begin
If(IsUpText('Drag')) then
Mouse(x,y,0,0,false);
end;
Begin
if(FindDeformedBitmapToleranceIn(All, X, Y, 0, 0, 515, 336, 30, 0, false, acc)) then
    Begin
    Mouse(x,y,0,0,True);
    WriteLn('Getting Bones');
    end;
end;
end;

Procedure CloseBankCustom;
Begin
If(InBank) then
begin
repeat
Mouse(488, 26,0,0,true);
Wait(1000);
until(Not(InBank))
end;
end;

Procedure BuryBones;
Begin
repeat
If(FindColorSpiralTolerance(x,y,Bones,549, 206,733, 460,3)) then
Mouse(x,y,0,0,true);
until(Not(FindColorSpiralTolerance(x,y,Bones,549, 206,733, 460,3)))
end;

begin
SetupSRL;
Repeat
AccessBank;
GetBones;
CloseBankCustom;
BuryBones;
Until(false);
end.