SRL Archive - RS3 Outdated / Broken Scripts

Description
Your basic bank-n-bury script.

How to Use
1) Fill out the setup.

///////////////////////////////////Start setting up the script here. Refer to the comments if you don't know what you're doing.
///////////////////////////////////
/////       Start Setup     ///////
///////////////////////////////////
///////////////////////////////////Start setting up the script here. Refer to the comments if you don't know what you're doing.

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

Players[0].Name := 'Your_Username'; //Your Runescape username here.
Players[0].Pass := 'Your_Password'; //Your Runescape password here.
Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
Players[0].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.
end;

///////////////////////////////////Don't modify the script ANY FURTHER unless you know what you're doing. You could break stuff!
///////////////////////////////////
/////       Stop Setup      ///////
///////////////////////////////////
///////////////////////////////////Don't modify the script ANY FURTHER unless you know what you're doing. You could break stuff!

2) Place your character next to a bank booth in Varrock West Bank.
3) Place your bones in the first slot of your bank.
4) Bind your bones to action bar slot 1.
5) Maximize your action bar, make sure you're in action mode.
6) Press F9!

Requirements
1) Nothing! :D

Additional Info
-> This script doesn't have to be used with bones! You can substitute things such as different bones, ashes, or any other such consumable item!

Current Bugs
-> Nope.

Future Updates
(Please make suggestions!)
-> Progress reports.
-> Fixes for a few potential infinite loops.
-> Making current procedures/functions more efficient.

Update Log

[B]v1.2[/B]
- Fixed the issue with accidentally going into chat mode.
[B]v1.1[/B]
- Fixed some timing errors.
[B]v1.0[/B]
- Initial release.

Title: iBuryBones
Attachment: AutoSlayer Pro v0.1.simba
What?

program AutoSlayerPro;
{$DEFINE SMART}
{$i SRL/SRL.simba}
{$i SPS/SPS.simba}
//{$i KeepBotting/slayer.simba} These includes will come later. 

From: Justin
Title: iBuryBones
Attachment: AutoSlayer Pro v0.1.simba
What?

program AutoSlayerPro;
{$DEFINE SMART}
{$i SRL/SRL.simba}
{$i SPS/SPS.simba}
//{$i KeepBotting/slayer.simba} These includes will come later. 

Well, there goes my secret project :( hang on, I'll upload the real script lol.

Why do I do these things…?

EDIT: k done

Gratz on release, looked over a it a bit, a few points to consider:

WriteLn('Checking to see if successfully entered.');
wait(1500+random(100));
WriteLn('Successfully entered!');    

It doesn't actually check anything so what's the point? if you wanted to check, use

if bankscreen then
  result := True;

obv turn igetbank into a function aswell

repeat
TypeSendEx('1', False);
Wait(RandomRange(350, 525));
until InvCount = 0;  

Is an infinite loop, what if u get a spin ticket or w/e. You also need to check that the chat isn't active and the eoc bar is up.
So i'd recommend doing something along the lines of:

procedure iBuryBones;
var 
  b: Integer;
begin
  if not IsActionBarOpen then ToggleActionBar(True);
  if PlayerChatActive then
  begin
    PressKey(13);
    Wait(150+random(200));
    PressKey(13);
  end;  
  Marktime(b);                 
  repeat
    TypeSendEx('1', False);
    Wait(RandomRange(350, 525));
    FindSpinTicket();
  until InvCount = 0 or TimeFromMark(b) > 30000;
end;   

You also don't have any checks what so ever for actually having bones. You should add checks in bank for making sure they have bones to withdraw before you do so and you need to makesure you have withdraw bones.

Also theres nothing wrong with doing a little work on standards, check out this.

Anyway once again gz on release.

From: The Killer
Gratz on release, looked over a it a bit, a few points to consider:

WriteLn('Checking to see if successfully entered.');
wait(1500+random(100));
WriteLn('Successfully entered!');    

It doesn't actually check anything so what's the point? if you wanted to check, use

if bankscreen then
  result := True;

obv turn igetbank into a function aswell

repeat
TypeSendEx('1', False);
Wait(RandomRange(350, 525));
until InvCount = 0;  

Is an infinite loop, what if u get a spin ticket or w/e. You also need to check that the chat isn't active and the eoc bar is up.
So i'd recommend doing something along the lines of:

procedure iBuryBones;
var 
  b: Integer;
begin
  if not IsActionBarOpen then ToggleActionBar(True);
  if PlayerChatActive then
  begin
    PressKey(13);
    Wait(150+random(200));
    PressKey(13);
  end;  
  Marktime(b);                 
  repeat
    TypeSendEx('1', False);
    Wait(RandomRange(350, 525));
    FindSpinTicket();
  until InvCount = 0 or TimeFromMark(b) > 30000;
end;   

I see your point on the first bit, I wrote that procedure (should be a function) about a year ago and it needs improvement.

What is PlayerChatActive?

I just wrote this, is it okay?

procedure iWaitActionBar;
begin
MouseBox(503, 267, 512, 271, mouse_Move);
if WaitUpText('inimise', 5000) then
exit;
end;

Just makes sure the action bar is up before it starts burying.

Reason is, when you close the BankScreen there's a short delay before the action bar pops back up and you go into action mode.

I tried to do the if is not ActionBarOpen then ToggleActionBar thing but I think that would be bad because when exiting the BankScreen, the action bar toggles itself open. It just takes a bit, and the script might mess that up.

From: KeepBotting
I see your point on the first bit, I wrote that procedure (should be a function) about a year ago and it needs improvement.

What is PlayerChatActive?

I just wrote this, is it okay?

procedure iWaitActionBar;
begin
MouseBox(503, 267, 512, 271, mouse_Move);
if WaitUpText('inimise', 5000) then
exit;
end;

Just makes sure the action bar is up before it starts burying.

Reason is, when you close the BankScreen there's a short delay before the action bar pops back up and you go into action mode.

I tried to do the if is not ActionBarOpen then ToggleActionBar thing but I think that would be bad because when exiting the BankScreen, the action bar toggles itself open. It just takes a bit, and the script might mess that up.

hmm, I use it on my superheater, works fine for me. though yes you do need a wait. And it works better than what you wrote as it checks for colours instead of static clicking and looking at uptext.
PlayerChatActive basically searches for the "press enter to chat" iirc. Should stop your issue of having it press 0 before its ready with the combination of both.

From: The Killer
hmm, I use it on my superheater, works fine for me. though yes you do need a wait. And it works better than what you wrote as it checks for colours instead of static clicking and looking at uptext.
PlayerChatActive basically searches for the "press enter to chat" iirc. Should stop your issue of having it press 0 before its ready with the combination of both.

Alright thanks, I'll add that.

Gz on the release.

From: BMWxi
Gz on the release.

Thanks :D

Nice release:) Keep it up

From: Sjoekeloe
Nice release:) Keep it up

Shank you.

I mean thank you.

Nice release KB might use this on my secondary soon

From: Gucci
Nice release KB might use this on my secondary soon

Thanks ;) probably going to implement a progress report in 1.3.

So, any feedback? o_O

First time using Simba and not exactly a scripter or anything but works well. Thanks for upload!

From: belowzero12
First time using Simba and not exactly a scripter or anything but works well. Thanks for upload!

Quite welcome :D

Nice script :) works good

Just one bug, this script dont do the progress

cant get script to work

From: schmidt1818
cant get script to work

Outdated because of RS3.