Bank bone burger(burrier)

Code:

program BankBurger;
{.Include SRL/SRL.Scar}

Var
  Loads, Buried: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;

end;

Procedure Deposit2(FromItem,ToItem: integer);
Var
  I: Integer;
  aPoint: TPoint;
Begin
  For I := FromItem To ToItem Do
  If(ExistsItem(I))Then
  Begin
    aPoint := ItemCoords(i);
    Wait(10);
    Mouse(aPoint.x+Random(5)-Random(5), aPoint.y+Random(5)-Random(5), 0, 0, False);
    Chooseoption('All');
  End;
End;

Procedure OpenVarrokBank;
Begin
  Repeat
    If(BankScreen)Or(Not Loggedin)Then Break;
    FindNormalRandoms;
    If(OpenBankFast('vwb'))Then Wait(300+Random(300))Else Wait(100+Random(100));
  Until(BankScreen);
  If(Loggedin)And(BankScreen)Then
  Begin
    FixBank;
    Deposit2(1, 28);
    Withdraw(1, 1, 0);
    Loads := Loads + 1;
    CloseBank;
  End;
End;

procedure HandleBones;
Var
  X, Y, I: Integer;
  aPoint: TPoint;
begin
  If(Not Loggedin)Then Exit;
  GameTab(4);

  For I:= 1 To 28 Do
  If(ExistsItem(I))Then
  Begin
    aPoint := ItemCoords(I);
    If(FindColorTolerance(X, Y, 14079707, aPoint.X-10, aPoint.Y-10, aPoint.X+10, aPoint.Y+10, 5))Then
    Begin
      MouseItem(I, True);
      Buried := Buried + 1;
      If(FindTalk)then Exit;
      Wait(765+Random(321));
    End;
  End;
end;

Begin
  SetupSRL;
  DeclarePlayers;
  Logout;
  LoginPlayer;
  MakeCompass('n');
  HighestAngle;
  Repeat
    OpenVarrokBank;
    HandleBones;
    Disguise('Buried: '+IntToStr(Buried)+' Bones | Loads: '+IntToStr(Loads)+'');
  Until(not Loggedin);
End.

Start in varrok east bank. Just thought i should post this. I buried 2500 bones with this script today. got 4 mollys, 1 maze, 2 exam, 1 mime ^_^

 

Works sweet, thanks !

 

lolz nice

 

Oh and the bones should be in the FIRST bank slot, Use normal WHITE bones!!!!!

 

looks cool. I would make one like this but srl drives me up the wall.

 

does it get the bones to?

 

nope and thats why this is not worth all those lines lol

But its still a very nice program.

 

Nice Gonna use it

 

sweet.

 

make so it get the bones to then it'll ROCK!

 

set bones in ur first bank slot (1,1) and run script.