Bank bone burger(burrier)

[Jukka]

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 ^_^

 

[pepijn_]

Works sweet, thanks !

 

[Iminess]

lolz nice

 

[Jukka]

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

 

[GMK]

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

 

[klintan]

does it get the bones to?

 

[Ivo09]

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

But its still a very nice program.

 

[8ed]

Nice Gonna use it

 

[8ed]

sweet.

 

[klintan]

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

 

[Jukka]

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