SRL Archive - RS3 Outdated / Broken Scripts

Bone Home Bank Burier ( Out Of Date )

Information:

Bone Home will bank bury normal bones.
All you have to do is set up your player next to the bank you'd like to use,
have some bones in your bank visible when it is scrolled all the way up,
and it would be best to have 1k+ bones.
Make sure you type the bone limit equal to or less than your bone amount.
Made with Scar 3.15b and Revision 20.
Please Post Progress Reports, Bugs, Suggestions, And Errors.


Versions:

Version 1.0 = First Release

Version 2.0 = Second Release
Changed some visual things.
Changed some thing in the set up procedure.
And fixed some bugs, so the script will actually work now!

Version 2.5 = Third Release
Fixed some bugs.
Changed some random stuff.
Added XP gained and levels gained to progress report.

Version 3.0 = Fourth Release
Added limits.
Fixed lots of bugs.
Changed set up procedure a lot.
And changed code so it's easier to understand.

Version 3.1 = Fifth Release
Fixed some bugs.
Updated for new RuneScape.

Version 3.2 = Coming Soon!
Fixed some bugs.


Features:

DTMs
Anti Ban
S.M.A.R.T.
Progress Reports


Special Thanks To:

Benjaa, For Helping With Bury / Banking Procedures, Making The DTMs, And Helping With A Lot With Other Stuff :p.
Iron Man, For Helping With XP / Levels Gained In Progress Report And Helping With A Lot Of Other Stuff Too :p.

Best Progress Report:

|============Bone Home v3.2============|
| Buried About 56 Loads Of Bones.
| Which Is About 1547 Bones.
| Gained About 6890 Prayer XP.
| Gained About 1 Prayer Levels.
| Ran For 1 Hours, 38 Minutes and 41 Seconds.
|====================================|

Upload it!
I want to check it out.
I'm thinkin of making a bone burier myself

The script is messed up right now =(. I've tried Bitmaps, DTMs, FindObjCustom, they're not working. So I'm going to try FindObjTPA and if that doesn't work, that would suck.

Bank opening troubles? You Could use my bankopener ;) and they can fill in which bank :D

It's the bone finding that's messed up. But on one of my computers it takes out the third bank slot instead of the first.

have you tried dtm's with tolerance and area?

thats what i always use, and it works fine

Umm never heard of that

procedure WithdrawBones;
//by bEnJaa
var
  Bones, x, y : integer;
begin
  if (not LoggedIn) then exit;
  Bones := DTMFromString('78DA63B466666038C7C80002CC0C1070E6E85' +
       '1067E20CD08E533EA03654EA3AAB97DED1AAA1A33A0CC15543517' +
       '4F9F42556307943989AA66EF96CDA86A9C8032E751D5ECDFBA15A' +
       'EE63F100000501A152A');
  OpenBankFast('veb');
  Wait(200+Random(100));
  if (BankScreen) then
  begin
    FixBank;
    if (FindDTM(Bones, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 4, 4, false);
      Wait(Random(100));
      ChooseOption('ll');
      Wait(200+Random(100));
    end;
  end;
end;

That is just an outline :)
But that DTM should work everytime.

nB. Make sure bones are in top of bank.

Thanks for posting that, i'll add some of it to my script.

EDIT: This is so annoying!!! Every single DTM I make of bones, no matter how big it is, it always clicks on the music tab! But then i used yours and it worked… Can you please make a DTM of the bones in the inventory too?

procedure BonesInvent;
//by bEnJaa
begin
  if (not LoggedIn) then exit;
  Bones := DTMFromString('78DA63B466666038C7C80002CC0C1070E6E85' +
       '1067E20CD08E533EA03654EA3AAB97DED1AAA1A33A0CC15543517' +
       '4F9F42556307943989AA66EF96CDA86A9C8032E751D5ECDFBA15A' +
       'EE63F100000501A152A');
  GameTab(4);
  if (FindDTM(Bones, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    MMouse(x, y, 5, 5);
  end;
end; 

MIX1, MIY1, MIX2, MIY2 are co-ords for inventory box. :)

What do you mean by co-ords? Sorry i'm new to scripting. And what is the difference between MMouse and Mouse?

EDIT:

When i add "If IsUpText('Bones') Then" right after if finddtm in the procedure where it gets the bones, it clicks on the bottom right of the inventory, but when i take it out it works just fine, and if i add it to the bury procedure, it just ignores it, am i doing something wrong?

what is the difference between MMouse and Mouse?

MMouse is "Move Mouse to co-ordinate"
Mouse is "Move Mouse to co-ordinate and click"




An for IsUpText problem…

Procedure GetBones;
Begin
  If Not LoggedIn Then Exit;
  FindRandoms;
  BonesBank := DTMFromString('78DA63B466666038C7C80002CC0C1070E6E85' +
       '1067E20CD08E533EA03654EA3AAB97DED1AAA1A33A0CC15543517' +
       '4F9F42556307943989AA66EF96CDA86A9C8032E751D5ECDFBA15A' +
       'EE63F100000501A152A');
  OpenBankFast(Location);
  Wait(200+Random(100))
  If (BankScreen) Then
  Begin
    FixBank;
    Deposit(1, 28, True);
    If (FindDTM(BonesBank, X, Y, MSX1, MSY1, MSX2, MSY2)) Then
    Begin
      MMouse(X, Y, 4, 4);//this moves the mouse to where it finds the dtm
      Wait(100+Random(100));
      if (IsUpText('ones')) then //this checks if the text IsUp
      begin
        GetMousePos(X, Y);    
        Mouse(X, Y, 0, 0, False);//this doesnt need random, because it already has done it above (MMouse(X, Y, 4, 4))
        Wait(Random(100));
        ChooseOption('ll');//chooses option "All"
        Wait(200+Random(100));
        CloseBank;
        BO := BO + 1;
        FreeDTM(BonesBank);
      End;
    End;
  End;
End;

I've attached all the basic co-ordinates on this thread, its kinda hard to explain though.


A co-ord, or co-ordinate, is the position on the screen from the top right corner on the x and y axis.
These are simple built in ones to save time:

to find something in Inventory, the box is…

MIX1, MIY1, MIX2, MIY2

to find something in MainScreen, the box is…

MSX1, MSY1, MSX2, MSY2

to find something in Chat, the box is…

MCX1, MCY1, MCX2, MCY2

Awesome thanks so much!, now I finally know what those mean :).
But if you tried to attach a picture or something it's appearing as a red x.
And in the procedure you posted, does it need "GetMousePos(X, Y);"?

Yeah, i dont know whats wrong with the picture :(

if you right click on it, go properties, and copy the Address (URL) into another browser you may be able to see it

GetMousePos is not neccessary, but it is good because it clicks exactly where it was first moved to to check the IsUpText. You CAN just do Mouse(x, y, 4, 4, false) again, but it will take another random (4,4) and therefore 'twitch' abit. Try out both ways and you'll see what i mean.:) Its very minor, but i reckon using GetMousePos is more accurate, less bannable and looks better.

Ahh i get what your saying. And that thing you told me to do with the picture works :).
But howcome when i try to add that UpText thing to my Bury procedure i get the error 'Identifyer Expected'?

RANDOM:

What level are you?

But howcome when i try to add that UpText thing to my Bury procedure i get the error 'Identifyer Expected'?

Where? Copy Script in here

RANDOM:

What level are you?

RS or SRL?

Never mind i figured it out ;).
And in RuneScape.

My macroing account (purely scripted) is lvl 56 combat.. atm.
I started it two days ago

Wow nice, my pure macro is lvl 71 and i started a few months ago lol. But i also have 70+ in mining and woodcutting, and 40+ in a few other skills. Oops getting offtopic lol.

Woah the script just completly messed up. It was trying to turn all the chats off but it would right click them then click on the top right of the normal chat box, then it skiped the turn off retaliate thing, and then when it went to check prayer level it keept clicking on the scrollie bar.

If you want to turn all chats off do:

ChatsOff;

For this:

    Repeat
    FindRandoms;
    Status('Looking For Bones...');
    If FindDTM(BonesInv, X, Y, MIX1, MIY1, MIX2, MIY2) Then
    Wait(30 + Random(20));
    Mouse(X, Y, 5, 5, True);
    BB := BB + 1;
    Status('Burying Bones...');
    Wait(350+Random(100));
    Until (Not FindDTM(BonesInv, X, Y, MIX1, MIY1, MIX2, MIY2));

First of all, standards are off ;)
Secondly, thats a endless loop, try a counter method and not logged in.

I suggest you make it multi-player, because with bone burying comes a lot of randoms if I'm not mistaken.

Did you use this?

Procedure DoChats;
Begin
  SetChat('On', 1);
  SetChat('Off', 2);
  SetChat('Off', 3);
  SetChat('Off', 4);
  SetChat('Off', 5);
End;

If you are going to put in an Autoresponder, have SetChat('On', 1);.
If not, then use SetChat('Off', 1);

Oh ok, thanks Iron Man. And i guess I'll add multi player, eventually. :p

And i have it set for it puts all the chats off benjaa, and i probably won't add a auto responder any time soon.

Works perfectly awesome job

I can't figure out if you're spamming or not, the script hasen't been updated for 7 revisions but it still compiles.

EDIT:

Oh wait you didn't post a proggy, stop spamming noob.