SRL Archive - RS3 Outdated / Broken Scripts

Update:
Everything should work now post an errors you receive or if it glitches.


Old Stuff:

Everything has been switched over to Mouse rather than Clickmouse except for the world switching part but that doesn't involve RS so it shouldn't matter.

Im thinking about making it work with the RS client rather than Swiftswitch i also would like to add multi user options through SRL if anyone can help me with that.

Everything should be changed to color clicking now thanks Wool for helping with that. All i need help with now is multi-player support even though i dont really think it needs it.


I have tested it and it worked quite well for me. You must be using Swiftswitch so that it can change worlds for you.

Let me know how it works and I would love if someone could show me how to change it into a color clicker rather that the cord clicker it is right now.

Just reading that last sentence in your post tells me that you should not be using this unless you want banned. Even if it has a little bit of randomness (which it really can't all that much because a rune is like 10 pixels by 10 pixels) this script still shouldn't be used for more than like an hour.

- Da Der Der

looks detectable

Its an OK script but I would not use it becuase you would probably be banned quickly.If you want to find the colors theres 2 simple ones below.

To find colors you could use:

-FindColor(var x,y: Integer; color, xs, ys, xe, ye: Integer): Boolean;

-FindColorTolerance(var x,y: Integer; color, xs, ys, xe, ye: Integer; Tolerance: Integer): Boolean


If you need help plugging it in let me know :D

Make this to use SRL and use SRL's Mouse procedure, Never use ClickMouse….

Ok thank you for feedback, Pentti i dont know how to use SRL in a script other than i can put it as an include.

I will try adding the color info and pm you if i cant figure it out.

Put {.include SRL\SRL.SCAR} at the beggining of your script then go to the SRL wiki and find Core functions find the link that applys to your script and put in the SRL functions that apply to your script.

Thank You whales :)

just take out your "{.include library2.txt}" And onlu leave {.include SRL/SRL.scar} and replace all ClickMouses with Mouse(x,y,ranx,rany,true) for ranx and rany you put how many random pixels mouse moves.

Thank you yet again Pentti i will also switch all the click mouse, still wondering if anyone can help me with setting up login procedure for SRL though

Ok your script is looking better, becuase your using SRL you dont need your login or logout procedure, its included in SRL, heres how to do it.

Set players for your script towards the beggining of it, like this

Procedure DeclarePlayers;
begin
     HowManyPlayers:=1;  //Change to the amount of players you use
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name     :='Username';        //Enter your Username here
     Players[0].Pass     :='Password';          //Enter your Password here
     Players[0].Nick     :='Nickname';           //Enter your Nickname here
     Players[0].Active   := True;
end;

Then in your loop you can take out your login procedure and use SRL's Loginplayer; and you can use Nextplayer(true); if your using more than one player

Ex.

begin
SetUpSRL;   //Will set up SRL
c:=0;
w:=169;
DeclarePlayers;    //Declares players
//You could add LoginPlayer here to start the script logged out
repeat
LoginA;  //Change LoginA to LoginPlayer; 
Talk;
BuyNat;
BuyChaos;
BuyDeath;
c:=c+1;
LogoutA;  //Change LogoutA to Logout; 
NewWorld;
w:=w+10
until(c=WorldHops)
LogoutA;  //Same logout here to
end.

Any questions just PM me :D

can you also make it buying laws, plz plz plz plz plz !!! :p i'm begging

I think this should work… can someone leave feedback for it? Not sure if it would work with out getting you flagged or what not. I added antiban, multiplayer, and some other useful stuff.

Props to woody!

Download link below!

Program RuneBuyer;
{.include SRL\SRL.SCAR}

Var t,p,u :integer;

Const
  Natures  = 5 ;   // Number of purchases x10
  Chaos    = 10 ;  // Number of purchases x10
  Death    = 10 ;  // Number of purchases x10

//Login
Procedure DeclarePlayers;
Begin
  HowManyPlayers := 2;
  NumberOfPlayers (HowManyPlayers);
  CurrentPlayer := 1;

    Players[0].Name :=''; //user name
    Players[0].Pass :=''; //password
    Players[0].Nick :=''; //3 consecutive letters of username
    Players[0].Active := True; //don't touch

    Players[1].Name :='';
    Players[1].Pass :='';
    Players[1].Nick :='';
    Players[1].Active := True;

End;

//Converse
Procedure Talk;
Begin
  If(FindColor(x, y, 527690, 25, 117, 406, 354))Then
    begin
    Mouse(x,y,1,1,true)
    Wait(1000+random(500));
    end;
  If(FindColor(x, y, 16711680, 132, 435, 501, 506))Then
    begin
    Mouse(x,y,1,1,true)
    MoveMouse(237,446)
    Wait(1000+random(500));
    end;
  If(FindColor(x, y, 16711680, 132, 435, 501, 506))Then
    begin
    Mouse(x,y,1,1,true)
    MoveMouse(237,446)
    Wait(1000+random(500));
    end;
  If(FindColor(x, y, 16711680, 132, 435, 501, 506))Then
    begin
    Mouse(x,y,1,1,true)
    MoveMouse(237,446)
    Wait(1000+random(500));
    end;
  If(FindColor(x, y, 16777215, 117, 461, 432, 468))Then
    begin
    Mouse(x,y,1,1,true)
    MoveMouse(237,446)
    Wait(1000+random(500));
    end;
  If(FindColor(x, y, 16711680, 132, 435, 501, 506))Then
    begin
    Mouse(x,y,1,1,true)
    MoveMouse(237,446)
    Wait(5000+random(500));
    end;
  If(FindColor(x, y, 16777215, 208, 479, 311, 483))Then
    begin
    Mouse(x,y,1,1,true)
    MoveMouse(237,446)
    Wait(1000+random(500));
    end;
End;
  
//Buying Natures
Procedure BuyNatures;
Begin
t:=0
x := MSCX;
y := MSCY;
  begin
    If(FindColorSpiralTolerance(x, y, 1280272, 88, 128, 108, 147, 10))Then
        begin
          Mouse(x,y,1,1,true)
        end;
    repeat
      t:=t+1
      BuyNatures;
    until (t = Natures)
  end;
end;
  
//Buying Chaos
Procedure BuyChaos;
Begin
p:=0
x := MSCX;
y := MSCY;
  begin
    If(FindColorSpiralTolerance(x, y, 1681119, 182, 127, 204, 145, 10))Then
    begin
      Mouse(x,y,1,1,true)
    end;
      repeat
        p:=p+1
        BuyChaos;
      until (p = Chaos)
  end;
end;

//Buying Deaths
Procedure BuyDeath;
Begin
u:=0
x := MSCX;
y := MSCY;
  begin
    If(FindColorSpiralTolerance(x, y, 14737636, 234, 125, 249, 145, 10))Then
    begin
      Mouse(x,y,1,1,true)
    end;
      repeat
        u:=u+1
        BuyDeath;
      until (t = Death)
  end;
end;
   
Procedure StartScript;
Begin
  SetupSRL;
  DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
  DeclarePlayers;
  LoginPlayer;
  HighestAngle;
  PerfectNorth;
End;

Begin
  Repeat
  StartScript;
  AntiBan;
    begin
      repeat
        AntiBan;
        Talk;
        BuyNatures;
        BuyChaos;
        BuyDeath;
      until(not(LoggedIn));
        NextPlayer(true);
    end;
      if(not(Loggedin)) then NextPlayer(false);
  Until(false);
End.

Ok than you guys for the login procedure i knew the declare players was part of it but i wasn't sure how to work it in. I can also add laws to the script and while im at it ill add souls.

Edit: Sparrows i was looking over your script and you forgot the world switching part as far as i can tell.

Edit: Sparrows i was looking over your script and you forgot the world switching part as far as i can tell.

Yea I didn't add want to add it in there I just did it real quick and you said it was meant to work with a different client so I'll leave that project up to you :)

until(not(LoggedIn));
        NextPlayer(true);
    end;
      if(not(Loggedin)) then NextPlayer(false);
  Until(false);
End.

I currently dont have this in the script and im just wondering if it really matters. And since this is the user switching part will the script not switch users without that?

It got to have that in order to have the next player start if you want multiple players autoing, so NO it won't let the next player go. I think if you just want one player you can make it just log in if it gets logged out. Or if you really want you can make it go through a certain amount of worlds then switch players and havethat player go throught a certain amount of worlds and then switch back again…. there's so much you can do. Not sure where to begin on explaining how todo that but it is possible….

Edit: Someone correct me if I'm wrong.

I think i shall try that sparrows should only take some tweaking to get it to work correctly.

From: the scar noob
can you also make it buying laws, plz plz plz plz plz !!! :p i'm begging

are you talking about member's magic shops seling laws?
i dunno about you but i would Never Ever auto on my member accounts