PDA

View Full Version : Ali Morrison Rune Buyer



Woody
12-27-2006, 05:29 PM
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.

Da Der Der
12-27-2006, 05:33 PM
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

0z0ne
12-27-2006, 11:19 PM
looks detectable

Wool
12-28-2006, 12:33 AM
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

Pentti
12-28-2006, 08:35 AM
Make this to use SRL and use SRL's Mouse procedure, Never use ClickMouse....

Woody
12-28-2006, 04:38 PM
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.

whales
12-28-2006, 06:25 PM
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.

Woody
12-28-2006, 09:16 PM
Thank You whales :)

Pentti
12-29-2006, 09:38 AM
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.

Woody
12-29-2006, 05:31 PM
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

Wool
12-29-2006, 06:26 PM
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

the scar noob
12-29-2006, 08:17 PM
can you also make it buying laws, plz plz plz plz plz !!! :p i'm begging

Sparrows
12-30-2006, 02:11 AM
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.

Woody
12-30-2006, 02:52 AM
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.

Sparrows
12-30-2006, 10:04 PM
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 :)

Woody
12-30-2006, 10:37 PM
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?

Sparrows
12-31-2006, 07:30 AM
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.

Woody
12-31-2006, 07:29 PM
I think i shall try that sparrows should only take some tweaking to get it to work correctly.

legendaryhero90
01-04-2007, 11:06 AM
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