SRL Archive - RS3 Outdated / Broken Scripts

Outdated. Will update later.

Function FindOre:Boolean;
Var
X, Y:Integer;
Begin
SetAngle(False);
If Not Invfull Then Begin
MakeCompass('40');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('80');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('120');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('160');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('200');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('240');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('280');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('320');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('360');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

end;


Function ClickPortal:Boolean;
Var
X, Y:Integer;
Begin
ClickNorth(False);
SetAngle(True);
Wait(500+randomrange(100,300));
If FindObjEx(X, Y, ['ortal'], [12819148, 10734506, 11189143, 12299464, 10919621, 11657914, 13084604, 14015418, 12561875, 12313033, 13150376, 13290913, 13681613, 10790856, 15255248, 12161715, 15253946, 12168648], 8, 50, 130, 60, 402, 278) Then
begin
MMouse(X, Y, 3, 3);
Mouse(X, Y, 0, 0, True);
Wait(2000+randomrange(50,100));
Result := True;
End

End;
  

Now this is just silly. Go to the beginner tutorials and look up repeat functions. These will shorten your code by a lot.

From: Deathscytex

Function FindOre:Boolean;
Var
X, Y:Integer;
Begin
SetAngle(False);
If Not Invfull Then Begin
MakeCompass('40');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('80');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('120');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('160');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('200');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('240');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('280');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('320');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

If Not Invfull Then Begin
MakeCompass('360');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;

end;


Function ClickPortal:Boolean;
Var
X, Y:Integer;
Begin
ClickNorth(False);
SetAngle(True);
Wait(500+randomrange(100,300));
If FindObjEx(X, Y, ['ortal'], [12819148, 10734506, 11189143, 12299464, 10919621, 11657914, 13084604, 14015418, 12561875, 12313033, 13150376, 13290913, 13681613, 10790856, 15255248, 12161715, 15253946, 12168648], 8, 50, 130, 60, 402, 278) Then
begin
MMouse(X, Y, 3, 3);
Mouse(X, Y, 0, 0, True);
Wait(2000+randomrange(50,100));
Result := True;
End

End;
  

Now this is just silly. Go to the beginner tutorials and look up repeat functions. These will shorten your code by a lot.

I'll fix that up later.

It shouldn't affect the functionality of the script though, so I don't see why it would matter so much.

coding style matters as long as someone wishes to understand/use/modify your script later :P

its getting stuck at trying to find portals
edit it only happens like 1 out of 10
good job though i couldn't do something like this

From: nickivey
its getting stuck at trying to find portals
edit it only happens like 1 out of 10
good job though i couldn't do something like this

The same exact thing is happening to me also.

sweet about to test! i made a request on this a couple days ago so im excited :)

it won't let me go were the essence is (Teleport won't work)

From: getlikem3
The same exact thing is happening to me also.

This is quite hard as the portal colours are constantly changing. I'll see what I can do though.

From: Magicman2k22
it won't let me go were the essence is (Teleport won't work)

What do you mean? Does it fail to go through the door?

nice job dude I have been waiting around for an ess miner for like 2 months lol. Great work I was unaware of the changing portal colors but I'm sure you'll tackle it. I plan to use this once you get it fixed so if there is any sort of testing or determining all of the different colors of portals let me know what to do and I can gather what you need.

From: omegaangelz
nice job dude I have been waiting around for an ess miner for like 2 months lol. Great work I was unaware of the changing portal colors but I'm sure you'll tackle it. I plan to use this once you get it fixed so if there is any sort of testing or determining all of the different colors of portals let me know what to do and I can gather what you need.

Thanks for your support. Yes, I did write this script in less than a day so it is very buggy.

I will, most certainly work on the portal finding whenever I can. :)

[Error] (664:1): Closing parenthesis expected at line 663
Compiling failed.

From: ordeath
[Error] (664:1): Closing parenthesis expected at line 663
Compiling failed.

Fixing that now. Will update OP.

EDIT: Updated. Complies fine now.

From: Yanhua
Fixing that now. Will update OP.

EDIT: Updated. Complies fine now.

thx

Thank you so much for the update maybe I will start gold farming for my main with this!

From: BigMaczRGood
Thank you so much for the update maybe I will start gold farming for my main with this!

…..Please use your words wisely here. We do not support gold-farming. We are perfectly fine with people botting or doing whatever, but "GoldFarming" is taboo.

From: PatDuffy
…..Please use your words wisely here. We do not support gold-farming. We are perfectly fine with people botting or doing whatever, but "GoldFarming" is taboo.

I think he meant that he was going to make an army and dump all the gold on his main, not making a Chinese person sit in a basement and make accounts/bot then sell for cash :p

Edit: As for the script:

Yanhua I don't know why but I like you, and I want to help you get where you want to be. That's going to take a bit of patience on your part though, you seem a bit too eager to use random knowledge instead of collecting it for a purpose.

By this I mean, after suggesting you learn TPA's/ACA/Autocoloring you went out and did that but in a very primitive sense. To be honest it is hard to tell if you understand it or you just found it worked thanks to the ACA. With 90% of your code you could shorten it into <50 lines. By that I mean all your autocolor functions could simply be,

function AutoColorFunc(Color, Tol: Integer): Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, Color, MSX1, MSY1, MSX2, MSY2, Tol);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    Result := arC[i];
    Writeln('AutoColor = ' + IntToStr(arC[i]));
    Break;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

and simply fill in the color/tol you got from ACA. Secondly, I would advise using ACA as a standard point of reference, but not to simply copy and paste the code. You can look through many tutorials and scripts that autocolor in different ways, and by combining the knowledge you learn from each of these you will be able to make your own. Aside from that you've kept improving and I like the script. If you ever have questions, feel free to ask me.

Wont open for me. Idk why other scripts work fine. Keep getting this:

Compiled successfully in 951 ms.
SRL Compiled in 16 msec
It has been 3 minutes and Runescape is not yet ready… Terminating.
Make sure your settings are set to fixed screen
Successfully executed.

Can you include stats?

Ya, i am having the same problem as Elitezer0. it compiles correctly and then after about 3 minutes i get the same message.

From: Elitezer0
Wont open for me. Idk why other scripts work fine. Keep getting this:

Compiled successfully in 951 ms.
SRL Compiled in 16 msec
It has been 3 minutes and Runescape is not yet ready… Terminating.
Make sure your settings are set to fixed screen
Successfully executed.

Sigh… Please read what the debug says, your graphic settings are incorrect.

what do you mean debug

The white box below where the code is.

From: Firefighter_Emt18
what do you mean debug

k ya but when i run it it doesn't even load the smart screen. and on my other computer it doeskin load it at all either but instead starts taking over the screen and try's to do everything without the window loaded

From: Firefighter_Emt18
k ya but when i run it it doesn't even load the smart screen. and on my other computer it doeskin load it at all either but instead starts taking over the screen and try's to do everything without the window loaded

You're doing something wrong.

Read some tutorials on how to properly install Simba and configure RS Settings please, post here if you're still having trouble after all that. :)

i have been using simbe for about a month now this is the first problem i have ran into with it.

And it is still doing the same thing

From: Firefighter_Emt18
And it is still doing the same thing

From: Firefighter_Emt18
i have been using simbe for about a month now this is the first problem i have ran into with it.

Please refrain from double posting. The edit button is there for a reason :p

Still doing the same thing? What thing?

when i start the script it compiles then it takes over my mouse and then starts to do everything but the smart window doesnt start up and it just starts typing everything in the script itself

From: Firefighter_Emt18
when i start the script it compiles then it takes over my mouse and then starts to do everything but the smart window doesnt start up and it just starts typing everything in the script itself

Sorry, my bad.

Take out // from in front of {$DEFINE SMART}

k that fixed it thank you i was like i know theres something wrong cause this is the first script i have ever had a problem with but good work and thank you

Hey, erm, when I use this script, it works perfectly fine, but when it goes to bank, it doesn't do anything. It just runs inside and runs back out to mine again with a full inventory. It then goes to the mine and says "Failed to find the color, no result."

From: Green Bay Packers
Hey, erm, when I use this script, it works perfectly fine, but when it goes to bank, it doesn't do anything. It just runs inside and runs back out to mine again with a full inventory. It then goes to the mine and says "Failed to find the color, no result."

I'll look into this later.

Spending most of my time on perfecting the Auto Tabs Pro script at the moment. :spot:

when i go to run it, all it says is script successively compiled in "Such and such" seconds. Any help please?

EDIT: removed // infront of dfine smart at begining

From: Kyle Undefined
Sigh… Please read what the debug says, your graphic settings are incorrect.

Oh wow, i can;t belevie i missed the screen part I'm so sorry to waste your time lol thank you:D

You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! pls fix it.

Nevermind, worked.

where does this mine exactly, it just goes to front of ge and stops…

Edit: is this Members only??

if you creat a script, pls fix it too..

Doesn't work:

Failed to find colors when coming back from aubury's house to bank.
Plz Yanhua update it as soon as you can.

Anyone else getting this error? Sorry if this is a stupid post.


Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

From: user666
Anyone else getting this error? Sorry if this is a stupid post.


Exception in Script: Unable to find file 'SRL\SRL.scar' used from ''

Did you update to SRL-5 ? This would mean that 'srl.scar' is now called 'srl.simba'

Check it out.

plz update the bot i get the same problem as the others 'SRL\SRL.scar' used from. I changed the .scar to .simba and still got an errr. plz update it. thank you :)

Needs to be updated to SRL 5.

Kinda new to botting. And "TRYING" to learn to script. I keep getting an error while starting this script.

Found the Problem. My fault.

I'll give this a go =p

This is outdated.

Can you update this script please?

From: jordi1104
Can you update this script please?

Mining essence is probably the largest goldfarming aspect in RuneScape, if this was updated it would be released to Members only so it wouldn't be abused by all you guys. :)

Its not even complicated to update -.- everything is there, you just have to change a few lines of code..

Seriously read some guides.

From: XxX Toxin XxX
Mining essence is probably the largest goldfarming aspect in RuneScape, if this was updated it would be released to Members only so it wouldn't be abused by all you guys. :)

I'm learning scripting right now so if you are reffering to me as one of the script abusers no I am not.
Also you have made a mistake flax picking is the biggest goldfarming aspect of runescape.

From: jordi1104
I'm learning scripting right now so if you are reffering to me as one of the script abusers no I am not.
Also you have made a mistake flax picking is the biggest goldfarming aspect of runescape.

No rune essence are. It's because it is f2p and has a decent income/h flax is p2p and has for a p2p thing a poor income.