SRL Archive - RS3 Outdated / Broken Scripts

This script withdraws bones from your bank, buries them, then repeats. Please do not confuse it with my bone looter and burier, as this script will not loot, and that one will not bank. :)

Locations:

• Varrock West Bank
• Varrock East Bank
• Falador West Bank
• Draynor Bank

Features:

• Runs past 6 hours
• Support for almost all bones.
• EOC Burying

Supported Bones:

• Any bone that is whitish in colour. PM me if you can't get whitish bones to bury.

Instructions:

• Start player in front of any supported bank counter
• Have your inventory empty
• Have your bones in the first slot in your bank

• Have the bone you want to bury in the first slot of your action bar. Set it to 1

• Fill out the User Setup. Make sure that you set it to bury at least 28 fewer that you have in your bank.
• Press Run.

Requirements:

• Bones in your bank

Future Updates:

• None

Enjoy, please post any questions, suggestions, ideas, feedback, proggies, or anything else that you want to

Progress Reports:

=========[] Bone Burier 1.1[]=========
[+] By BMWxi [+]      
================
[] Burying: Normal Bones(4 XP Each)
[] Prayer XP Earned: 1120  Per Hour: 15215
[] Bones Buried:     280   Per Hour: 3803
[] Total Time: 4 Minutes and 25 Seconds
========================================

Gratz on the release ;) looks great,

And i love that you take such pride in F2P stuff

:p congrats on the release. I have a couple spare mills. If this scripts buries dragon bones, I'm set :).

From: DannyRS
Gratz on the release ;) looks great,

And i love that you take such pride in F2P stuff

Thanks, F2P stuff is what I know :D

From: Ubuntu
:p congrats on the release. I have a couple spare mills. If this scripts buries dragon bones, I'm set :).

Thanks!

begin
  if (DragonBoneColor = (10000799, 30)) then
    WriteLn('This script buries dragon bones, you are set!');
  else
    WriteLn('This script will need some modifying before you can bury dragon bones :(  ');
end;

Just wanted to share that your coörds are off at
Line 142: if FindColorTolerance(Bx, By, 9737370, 47, 294, 114, 328, 10) then

I think you forgot to deduct the y-Coörds with 50

From: Sjoekeloe
Just wanted to share that your coörds are off at
Line 142: if FindColorTolerance(Bx, By, 9737370, 47, 294, 114, 328, 10) then

I'm not looking in the inventory, I'm looking in the first action bar slot :p. Thanks though :)

From: BMWxi
I'm not looking in the inventory, I'm looking in the first action bar slot :p. Thanks though :)

Oh , my bad ;)
Keydown didn't work for me, changed it to actionkey ( from user: Google )
Other than that, scripts works great.

From: Sjoekeloe

Keydown didn't work for me, changed it to actionkey ( from user: Google )
Other than that, scripts works great.

Odd, what keyboard layout/OS do you use? I'm just wondering because KeyDown and KeyUp use virtual keys which may be windows specific.

I use windows though, it's weird I know. I got frustrated one time when I was using it to script.

I made one tiny change… I'm not a very experienced scripter but this was not working for me.

I changed the function nobones to

Function NoBones:Boolean;
Var
Bx, By:Integer;
begin
If InvCount>1 Then
begin
Result :=False;
if Debug then
WriteLn('Bones in Inv');
end else
begin
Result :=True;
if Debug then
WriteLn('No Bones in Inv');
end;
end;

From: padlockcode
I made one tiny change… I'm not a very experienced scripter but this was not working for me.

I changed the function nobones to

Hmm, what bones where you burying? I thought I'd set the tolerance for most whitish bones to work fine but maybe not. I'll update the script to look for InvCount as a backup I guess.

From: BMWxi
Hmm, what bones where you burying? I thought I'd set the tolerance for most whitish bones to work fine but maybe not. I'll update the script to look for InvCount as a backup I guess.

BabyDragon Bones


also I dont know if your interested but i also changed the 'Bury bones' procedure and added a fail safe… because once it started saying "1111111" in chat for some reason.

Procedure BuryBones;
var
x :integer;
begin
  if not LoggedIn then LoginPlayer;
  if not LoggedIn then Exit;
  if (not AbilityBarUp) then ToggleAbilityBar;
  x:=0;
  begin
    if not (NoBones) then
    begin
      KeyDown(49);
      repeat
      x:=x+1;
      writeln(IntToStr(X));
      if (x>45) then
      begin
         OpenWebPage('http://test-pattern.com/with-sound.htm'); //Its an alarm!
         exit;
         end;


        Wait(randomrange(400,500));
          If InvCount<3 Then
          begin
          wait(randomrange(700,1000));  // Slows down like a human might
          end;

      until (NoBones) or (not AbilityBarUp or (x>45));     // Fail-safes at 45 clicks
      KeyUp(49);
    end
  end;
  Antiban;
  Bones := Bones + 28;
end;  

From: padlockcode
BabyDragon Bones


also I dont know if your interested but i also changed the 'Bury bones' procedure and added a fail safe… because once it started saying "1111111" in chat for some reason.

Code

Was it right when you started it or just randomly in the middle of running that it typed the ones?

Also I added a new version that will stop if the inventory goes empty as well.

it was like at 15 minutes… so I dont know, i think the Anti-Ban somehow clicked the chat? does that cause it to happen?


Working fine otherwise. Gonna run it for 5-6 hours tonight :)

From: padlockcode
it was like at 15 minutes… so I dont know, i think the Anti-Ban somehow clicked the chat? does that cause it to happen?


Working fine otherwise. Gonna run it for 5-6 hours tonight :)

It shouldn't, all I can think of is that there was some lag after exiting the bank so bar didn't pop up as fast as it should have. Tell me if it happens using the version I just posted (If it happens again)

Looks great!
Seems simple too :D
Very nice!

Will be using this soon on my f2p pure after I get the 7th 99 in wc. Are you gonna bring back the bone bury script that finds bones, picks them up and buries them? Might save me some money until I get to the point when I cant stand the slow xp rates :) Hopefully 99 pray f2p is not super costly. Will take me a long time for sure.

From: humeruzz
Looks great!
Seems simple too :D
Very nice!

Thanks, it is super simple :)

From: kevin33
Will be using this soon on my f2p pure after I get the 7th 99 in wc. Are you gonna bring back the bone bury script that finds bones, picks them up and buries them? Might save me some money until I get to the point when I cant stand the slow xp rates :) Hopefully 99 pray f2p is not super costly. Will take me a long time for sure.

I stopped working on that one after Sin reminded me about opportunity cost.

Basically imagine the bone looter gets 2k xp/h for free, and a money-making script gets 200k/h and then the faster bone burying script that gets 15k/h xp.

Method 1:
Run the bone looter and burier for 5 hours at 2k xp/h, giving 10k xp in 5 hours.

Method 2:
Run a money-making script at 200k gp/h for one hour.
Use the 200k to buy 2222 normal bones, which will give 9999 xp once buried. It takes 0.6 hours to bury them (35 minutes), so run the fast burier for 35 minutes.

So with method 2 it takes 1 hour 35 minutes to get 10k xp

1.5 hours vs 5 hours for 10k xp :D

I see your logic in that. Problem is that it is costly :( Should make a better method for f2p. Add 1 guilded altar somewhere maybe. Would make things easier and a little cheaper. Might have to run an extra guy to loot bones somewhere for me while I skill and then transfer and bury them after.

From: kevin33
I see your logic in that. Problem is that it is costly :( Should make a better method for f2p. Add 1 guilded altar somewhere maybe. Would make things easier and a little cheaper. Might have to run an extra guy to loot bones somewhere for me while I skill and then transfer and bury them after.

I don't have banking in any locations for the looter, I'd suggest running Sjoekeloe's chocolate grinder, I think that's a few hundred gp/h :)