SRL Archive - RS3 Outdated / Broken Scripts

All you need to do is stand next to a bank booth and set how many loads you'd like it to do and press run!!! I will get a proggie up soon.

{=================================================================}
{                  Bury It - Bank Bone Burier                     }
{                  --------------------------                     }
{                                                                 }
{             AUTHOR      : Cut Em2 It                            }
{             NAME        : Bury It - Bank Bone Burier            }
{             USAGE       : Start near any bank with bone's in    }
{                                 visible area of bank            }
{             DESCRIPTION : Bury's bone's from bank.              }
{             SRL USED    : 4.00 Rev #7                           }
{--------------------------Instructions---------------------------}
{  1) Setup Line 21.                                              }
{  2) Drag Crosshair over to Runescape Screen.                    }
{  3) Run the script.                                             }
{  4) For emergency stop, press F3 to terminate the script.       }
{----------------------------Credits------------------------------}
{  Derek-    = For his idea for the loop.                         }
{  IP-Drowner = For MultiPlayer, Progress Report, AutoResponder    }
{=================================================================}

Thanks,
Cut em2 it

Great script, but one problem. You'll get an error if you run your script because no procedure called Progress does not exist. Try using this:

{=================================================================}
{                  Bury It - Bank Bone Burier                     }
{                  --------------------------                     }
{                                                                 }
{             AUTHOR      : Cut Em2 It                            }
{             NAME        : Bury It - Bank Bone Burier            }
{             USAGE       : Start near any bank with bone's in    }
{                             slot's 1.                           }
{             DESCRIPTION : Bury's bone's from bank.              }
{             SRL USED    : 4.00 Rev #7                           }
{--------------------------Instructions---------------------------}
{  1) Setup Line 21.                                              }
{  2) Drag Crosshair over to Runescape Screen.                    }
{  3) Run the script.                                             }
{  4) For emergency stop, press F3 to terminate the script.       }
{=================================================================}

program BuryIt;
{.include SRL/SRL.scar}

var
  LoadsDone, BonesBuried, x, y: integer;

const
  LoadsToBury=10; //How many loads of bones to bury.
  
procedure Progress;
begin
  Writeln('<====Bury It Bank Bone Burier====>');
  Writeln('<========Progress Report=========>');
  Writeln('<-------------------------------->');
  Writeln('  Has Buried: ' + IntToStr(BonesBuried) +' bones.          >');
  Writeln('  Has been running for: '+ TimeRunning);
  Writeln('<================================>');
end;

procedure GetBones;
begin
  FindObjCustom(x, y, ['Use'], [671057], 4);
  Mouse(x, y, 1, 1, false);
  ChooseOption('Use-quickly');
  if(BankScreen) then
  begin
    //Mouse(551, 368, 1, 1, false); Should NOT USE COORDINATES.
    Withdraw(1,1,28); //Much better and safer.
    Wait(1000 + Random(672))
    repeat         //Will try and continue to close the bank until...
      CloseBank;   //...the CloseBank function return's true.
    Until(CloseBank = True);
  end;
end;

procedure BuryBones; //Thanks for idea of for to do loop from Derek-
var
  i: integer;
begin
  if(InvCount>=1) then //If inventory has 1 or above item's it will do the
    begin              //...below.
      for i := 1 to 28 do
        begin
          MouseItem(i, true);
          Wait(600+random(100));
          BonesBuried:=BonesBuried+1;
        end;
    end;
end;

begin
BonesBuried:=0; //This will set the value's to 0
LoadsDone:=0;   //This will set the value's to 0
ActivateClient; //Will switch to the window the client it in.
  repeat
    GetBones;
    BuryBones;
    LoadsDone:=LoadsDone+1;
  Until (LoadsDone>=LoadsToBury) or (IsFKeyDown(3));
    Progress;
end.

I have also fixed other error's too. Learn from your mistake's!

Thanks, I'll change that.

BTW, any other features you would want? Perhaps a dropper option?

Use a DTM to find the bones…

From: Santa_Clause
Use a DTM to find the bones…

I almost did that but, should I make a failsafe that searches for the DTM of bones?

From: Santa_Clause
Use a DTM to find the bones…

Why would you need that?

@Cut Em2 It -
Please credit me, and also, you should add anti-randoms.

ur kidding? credit you for fixing some error's got to be joking.

From: nicbaz
ur kidding? credit you for fixing some error's got to be joking.

What? I made the progress report, at least add //Thanks to IP-Drowner after the semi-colon.

k wateva

when you help someone you should do it for fun not for credit if the person wants to give you credit they will

From: mark9510
when you help someone you should do it for fun not for credit if the person wants to give you credit they will

Well it is not polite just to post someone else's stuff and calling it your own, this word is known as plagiarism. Plus everybody should, when fixing some stuff, include a credit's thing in their script as a thanks.

Didn't compile and you had it copied and pasted twice in the one script the exact same thing ?? wtf..

What?

Failed when compiling
Line 95: [Error] (14776:1): period ('.') expected in script C:\Documents and Settings\Administrator\Desktop\BuryIt(3).scar

From: twixster
Failed when compiling
Line 95: [Error] (14776:1): period ('.') expected in script C:\Documents and Settings\Administrator\Desktop\BuryIt(3).scar

Which version of SRL are you using? Did you modify any SRL files/folders? Did you modify this script in any way?

Scar 3.12c and no i did not altar anything to affect this part of the script.
does it work for you?

From: twixster
Scar 3.12c and no i did not altar anything to affect this part of the script.
does it work for you?

Did you download it? Because if you did, just copy and paste the SCAR script from the first post then paste it into SCAR.

Also, remember to put your bones in the first bank slot (Column 1, Row 1) and be sure to be using the latest SRL and the latest REVISION (SRL 4 Revision #7).

I have teh new version!!! Here it is. Has anti-ban, anti-randoms, and DDTMs to find bones (W00t)

I edited the version Cut Em2 It gave you. He should upload it any time soon.

It includes:
- Multi Player
- Auto Responding
- More Anti Ban functions (Some are mine)
- Anti Randoms.

Yes I will.

SRL Compiled in 3235 msec
NextPlayer
[Runtime Error] : Out Of Range in line 428 in script C:\Program Files\SCAR 3.12c\includes\SRL/SRL/Core/Login.scar

Newest version won't start.
Previous version right before compiled but could not find the bones in bank.

From: twixter
[Runtime Error] : Out Of Range in line 428 in script C:\Program Files\SCAR 3.12c\includes\SRL/SRL/Core/Login.scar

Sorry, i was just testing what the NextPlayerOrder function did. Change line 290:

NextPlayerOrder(True);

to

NextPlayer(False);

Sorry, maybe Cut Em2 It should re-edit the script them post it.

From: cut em2 it
Yes I will.

Ahh, so you were on. Even when i last messaged you.

P.S: How do you like the new improvement?

Successfully compiled
Line 164: [Hint] (14845:10): Variable 'Result' never used in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\BuryITV1.50.scar
SRL Compiled in 2922 msec
[Runtime Error] : Out Of Range in line 299 in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\BuryITV1.50.scar



compiles this time but than get runetime error

I think you need to do the declare players? It doesn't work without doing that.

From: twixster
Successfully compiled
Line 164: [Hint] (14845:10): Variable 'Result' never used in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\BuryITV1.50.scar
SRL Compiled in 2922 msec
[Runtime Error] : Out Of Range in line 299 in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\BuryITV1.50.scar



compiles this time but than get runetime error

Did you add more players to your script? If so, then did you set line 43 correctly?

@Cut Em2 It
That wouldn't be the problem because of the Out Of Range error.
By the way, Cut Em2 It: Did you modify the script in anyway other than changin NextPlayerOrder(True) to NextPlayer(False)?

no

Alright twixster. The problem is that you have put more players into your script and you did not set how many you have correctly.

Also, i think (Because i am no good with DDTM's) that it could not find your bones in your bank was because of the DDTM Cut Em2 It has added. So, just place your bones in the first column and first row and use this script for now. I know it works because it worked for me and it ran for 25 minutes and 47 seconds.

Twixter, my advice if you want to use the DDTMs is to set runescape to v-bright.

From: cut em2 it
Twixter, my advice if you want to use the DDTMs is to set runescape to v-bright.

When the hell were you on? Did you set your status to hide?, probably!

Anyways, just use the script i attached but just put your bones in your first column and first row of your bank. And it can use on any brightness level!

User specified a new RS window
Failed when compiling
Line 202: [Error] (14883:22): Syntax error in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\BuryITV1.51.scar

thats the newest of compiling issues
this was on the one that ip-drow just attached to his post

From: twixster
User specified a new RS window
Failed when compiling
Line 202: [Error] (14883:22): Syntax error in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\BuryITV1.51.scar

thats the newest of compiling issues
this was on the one that ip-drow just attached to his post

What the hell? I thought i uploaded the new one, but instead i didn't save it. God damn it!!!

Oh well, there are no errors now. Just been tested, ran for 12 minutes and 32 seconds.

Now please use this script. It now includes more Auto Responding phrases and all errors are fixed. Included Twixster into the credits for reporting most bugs/errors.

Has been tested and works correctly along with all auto respond talking. Has been running for 23 minutes and 57 seconds. Gained 1 prayer level.

Enjoy!

Successfully compiled
Line 253: [Hint] (14934:10): Variable 'Result' never used in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\BuryItV1.60.scar
SRL Compiled in 1812 msec
NextPlayer
[Runtime Error] : Out Of Range in line 392 in script C:\Program Files\SCAR 3.12c\includes\SRL/SRL/Core/Login.scar


I got this error when i compiled without editing your most recent version you hosted.I messed around with the login after that and still come with this error.
I feel like i'm bothering you not helping,lol.
Good work so far though,i doubt its just me who would encounter these problems since i am obviously up to date with all the srl includes and such,but i just cant understand why it works so perfectly for you.
Thanks again.

edit: Merry Christmas btw!

From: twixster
Successfully compiled
Line 253: [Hint] (14934:10): Variable 'Result' never used in script C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\BuryItV1.60.scar
SRL Compiled in 1812 msec
NextPlayer
[Runtime Error] : Out Of Range in line 392 in script C:\Program Files\SCAR 3.12c\includes\SRL/SRL/Core/Login.scar


I got this error when i compiled without editing your most recent version you hosted.I messed around with the login after that and still come with this error.
I feel like i'm bothering you not helping,lol.
Good work so far though,i doubt its just me who would encounter these problems since i am obviously up to date with all the srl includes and such,but i just cant understand why it works so perfectly for you.
Thanks again.

edit: Merry Christmas btw!

Merry Christmas to you too Twxster and thank you for being so nice :) I am sorry you have to put up with this but this is the first script i have made which includes and AutoResponder and some own Anti Random/Ban functions/procedures. Ok, let me have a look. That error was called in one of your includes, but i am not entirely sure how it to automatically login now via SRL.

I personally don't need multiple charactors
if you could just leave it one guy or just assume the char is logged in when it starts thats fine with me.I plan on watching it or just leaving it on till it dies

From: twixster
I personally don't need multiple charactors
if you could just leave it one guy or just assume the char is logged in when it starts thats fine with me.I plan on watching it or just leaving it on till it dies

Then just set every player to Active:=False; other than the top guy.

I already tried that,still doesnt work

From: twixster
I already tried that,still doesnt work

Yeah, it wouldn't work but i know what the problem is. It is within the login procedure i have used and it obviously does not work. Try this one, and if it does not work just leave your player logged in.

Please be aware that this script will wait 2 seconds before
logging in. It is necessary for client window change times.
This message will go away in 4 seconds.
[Runtime Error] : Out Of Range in line 264 in script C:\Documents and Settings\Administrator\Desktop\BuryItV1.61.scar

Compiles perfectly, than click invo,than level page and hovers over my prayer lvl (36) before giving me that error

From: twixster
Please be aware that this script will wait 2 seconds before
logging in. It is necessary for client window change times.
This message will go away in 4 seconds.
[Runtime Error] : Out Of Range in line 264 in script C:\Documents and Settings\Administrator\Desktop\BuryItV1.61.scar

Compiles perfectly, than click invo,than level page and hovers over my prayer lvl (36) before giving me that error

Did you set your nickname correctly? Remember it has to be 3-4 digits long with no CAPITAL LETTERS.

yes i did set my nickname correctly and i have tried about a dozen times now lol……this is turning out to be very tricky script lol

Call DeclarePlayers in your mainloop ;)

begin
  SetupSRL;
  DeclarePlayers; //I think you forgot this one
  BonesBuried:=0;
  LoadsDone:=0;
  AllLoadsDone:=0;

Also random(10) ranges from 0..9 and NOT from 1..10.

procedure AutoRespondName;
begin
  case random(10) of
    //0: nothing happens
    1: TypeSend('wat?');
    2: TypeSend('Yes me-lord?');
    3: TypeSend('wateva im not talkin');
    4: TypeSend('yea');
    5: TypeSend('wat');
    6: TypeSend('wat u want?');
    7: TypeSend('yes');
    8: TypeSend('wat???');
    9: TypeSend('i no speak');
    10: TypeSend('lol, what?'); //It will not get here
  end;
end;

In the AutoRespond function you let c go from 1 to 2, but AutoRespondHi is on 3?

function AutoRespond:boolean;
var c : integer;
begin
  for c:= 1 to 2 do //not to 3?
  begin
    case c of
      1: begin
           if InChat('vl?') or InChat('evel') or InChat('aye') then
           begin
             AutoRespondLvl(dpi,ohs);
             Result:=True;
           end;
         end;
      2: begin
           if InChat(Players[CurrentPlayer].Nick) or InChat(Players[CurrentPlayer].Name) then
           begin
             AutoRespondName;
             Result:=True;
           end;
         end;
      3: begin
           if InChat('hi') or InChat('hello') or InChat('ello') or InChat('ih') or InChat('sup') or InChat('up') or InChat('wazzup') or InChat('wass') then
           begin
             AutoRespondHi;
             Result:=True;
           end;
         end;
    end;
  end;
end;

Thanks nielsie, those add-ons were by IP-Drowner and the declare players was my mistake :D I will get to that as soon as possible.

Have you implemented these changes yet cut em2 it?

No, this is outdated. Closed until I can update the script to good standards.

Thanks,
Cut em2 it