Death rune buyer with world Switcher!!!

hey guys i decided to make this script because of Jagex new update which alouds us to switch worlds EXTREMLY easily.

{.Script Info:
# ScriptName = Death rune buyer
# Author = Scarscaper4life
# Description = Buys deaths at varrock rune shop and switches worlds
# Version = 1
# Date = 23/3/07
# Comments = Made with SRL 3.6
/Script Info

[================================================== ======================]
[ Name : Death rune buyer ]
[ Writer : Scarscaper4life ]
[ Email : [email protected]
[ Catagory : Buy/Sell ]
[ Description : Buys deaths at varrock rune shop and switches worlds ]
[ Usage : Standard SCAR (Very bright, 32-bit color, ]
[ that sort of thing ]
[ Autocolor : Yes ]
[ SRL Ver. : SRL 3.6 ]
[ Notes : SRL members version ]
[================================================== ======================]

First of all i would like to thank the SRL team for making all these 1337 functions.
I would also like to thanks Wizzup? for his awsome Aubury finding procedures.
Also a big thanks to WT-Fakawi for his teaching and i based my code around his script.

Please post all bugs and errors you may have at this link:


http://www.srl-forums.com/forum/deat...8906#post78906




Instructions:

Start with all players at the Varrock rune shop.
Make sure they have cash on them i recommend 100-300k.
I recommend you have about 6 or more players as you will maximize profits.
Remember to Delclare your Players.

Have fun and remember the 7 Golden rules of SRL autoing.}

also please make sure you have SRL it can be downloaded freely at

www.srl-forums.com

And also please no nooby questions thanks

 

I like this otherwise, but i dont like this world switcher thing u made.. Too much stuff like

Code:

procedure world5;

begin
mouse(96,113,0,0,true);
end;

There should be a easier way to do that too

EDIT: Sorry, i meant better looking

EDIT2: i noticed this:

Code:

ChooseOption(x, y,'uy 10');
if(InChat('have enought coins'))then
begin

Should it be enough? or is it enought?

 

Awsome Script!

 

I will try it out.
A suggestion would be to add all runes at the next version ^^

 

That's pretty ownage, im using it while im at school.

thanks man.

 

OMG NICE!!! I Got offer to u. PM me

 

hi, i was wondering if u could help me out with the death rune buyer thing...It's my first time using a SCAR script thingy... i usualy just download sythe autos...but everytime i click play on the scar after i copy and paste it on scar it says:

Failed when compiling
line 3: [error] (2:1) : unknown identifier 'HowManyPlayers' in script


I dont know how to fill that out or w/e...but plz help me someone.

 

You downloaded and installed SRL.??
Read the stickies!!

 

Hey, wonderful script! I've used it for a few minutes, and 400 deaths already!

Nice job on that!
Does anyone have a report on how long it can go for?

One problem: every once and a while when i start it, it will switch about 5 times... then stop on the world-switch page.
The SCAR text just says "Waited 3 minutes" an infinite amount of times lol

Thanks for the script man!

 

how can I start many accouns and then all in another world and that them all then only death rune to buy? do you have for that a programme?

thnx Nice script!!

 

what are the 7 golden rules of SRL autoing?

 

Code:

RandomWorld := (1 + Random(1))

Begin
  Case RandomWorld of
    1: Mouse(311, 222, 1, 1, True)
    2: Mouse(211, 222, 1, 1, True)
    3: Mouse(731, 132, 1, 1, True)
    4: Mouse(131, 242, 1, 1, True)
  end;
end;

 

Alright this script works well... but not for long!

If any player is standing on aubury, it sometiems trades the other players instead.

Also, if aubury moves, it will try and trade him and miss. When it misses him, it will continue to right click, and choose cancel hundreds of times... It wont stop... and before I knew it, I found myself dangerously close to the wildy.

Try to see if you can fix those bugs.

Thanks
Chris

 

nice scrip mate

 

hi, i have a problem, when you shall fill in the options on your account, (username, pass , nic and loc) what does nic and loc stand for, what shall you put in ?? // w00tan

 

loc=location // dont change it
nic=nickname // If your username is Bobby123
then your nickname is 3-4 letters from your name...

maybe obb
or obby
got it?

Chris

 

Code:

Nice script <3

 

Okay its not working for me please help me out... this is what it says...

Line 180: [Hint] (17841:21): Variable 'I' never used in script
Line 180: [Hint] (17841:21): Variable 'TEMP' never used in script
Line 174: [Hint] (230:43): Variable 'NEWLINE' never used in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Globals.scar
SRL Compiled in 360msec.
[Runtime Error] : Out Of Range in line 66 in script

 

Set the NumberOfPlayers to how many players there are total, not just how many you are using. Then, set their Active's to false.

 

you can use the procedures from my rune buyer script if you want to buy others just put this in in the const

Code:

rune = 'water';// type of rune
runes = 10;// how many it will only buy exact amounts in 10s but if its like
//425 it will buy 430
twotypes = true;//true or false if u want to get 2 seperate types of runes
rune2 = 'fire';//second type of rune if ^ is true
runes2 = 10;// how many of the second rune if its true

add these procedures in (in this order)

Code:

procedure buyfire;
begin
repeat;
 if FindColortolerance(xx,yy,1319334,0,0,700,700,5) then
 begin
 i:= i+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(50));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
end;
until (i>=runes)
end;

procedure buyair;
begin
repeat;
 if MMouse(190,84,1,1) then
 begin
 i:= i+10;
 Mouse(190,84,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
 end;
 until (i>=runes)
end;

procedure buyearth;
begin
repeat;
 if FindColortolerance(xx,yy,870251,0,0,700,700,5) then
 begin
 i:= i+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(40));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
  end;
  until (i>=runes)
end;

procedure buymind;
begin
repeat;
 if FindColortolerance(xx,yy,542022,0,0,700,700,5) then
 begin
 i:= i+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(50));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
 end;
 until (i>=runes)
end;


procedure buybody;
begin
repeat;
 if FindColortolerance(xx,yy,13573655,0,0,700,700,5) then
 begin
 i:= i+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(50));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
 end;
 until (i>=runes)
end;

procedure buychaos;
begin
repeat;
 if FindColortolerance(xx,yy,1681119,0,0,700,700,5) then
 begin
 i:= i+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(50));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
  end;
  until (i>=runes)
end;

procedure buywater2;
begin
repeat;
 if FindColortolerance(xx,yy,11016725,0,0,700,700,5) then
 begin
 k:= k+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(400));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
 end;
 until (k>=runes2)
end;

procedure buyfire2;
begin
repeat;
 if FindColortolerance(xx,yy,1319334,0,0,700,700,5) then
 begin
 k:= k+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(50));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
end;
until (k>=runes2)
end;

procedure buyair2;
begin
repeat;
 if MMouse(190,84,1,1) then
 begin
 k:= k+10;
 Mouse(190,84,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
 end;
 until (k>=runes2)
end;

procedure buyearth2;
begin
repeat;
 if FindColortolerance(xx,yy,870251,0,0,700,700,5) then
 begin
 k:= k+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(40));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
  end;
  until (k>=runes2)
end;

procedure buymind2;
begin
repeat;
 if FindColortolerance(xx,yy,542022,0,0,700,700,5) then
 begin
 k:= k+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(50));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
 end;
 until (k>=runes2)
end;

procedure buybody2;
begin
repeat;
 if FindColortolerance(xx,yy,13573655,0,0,700,700,5) then
 begin
 k:= k+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(50));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
 end;
 until (k>=runes2)
end;

procedure buychaos2;
begin
repeat;
 if FindColortolerance(xx,yy,1681119,0,0,700,700,5) then
 begin
 k:= k+10;
 wait(100+random(50));
 MMouse(xx,yy,1,1);
 wait(100+random(50));
 Mouse(xx,yy,1,1,false);
 wait(100+random(50));
 PopUp('Buy 10');
  end;
  until (k>=runes2)
end;

procedure ifs;
begin
if rune = 'water' then
buywater;
if rune = 'earth' then
buyearth;
if rune = 'chaos' then
buychaos;
if rune = 'death' then
buydeath;
if rune = 'fire' then
buyfire;
if rune = 'air' then
buyair;
if rune = 'body' then
buybody;
if rune = 'mind' then
buymind;
end;

procedure ifs2;
begin
if rune2 = 'water' then
buywater2;
if rune2 = 'earth' then
buyearth2;
if rune2 = 'chaos' then
buychaos2;
if rune2 = 'death' then
buydeath2;
if rune2 = 'fire' then
buyfire2;
if rune2 = 'air' then
buyair2;
if rune2 = 'body' then
buybody2;
if rune2 = 'mind' then
buymind2;
end;

and put this in y our main loop(if your a scripter you should know anyway where to put)

Code:

i:=0;
ifs;
if twotypes = true then
begin
k:= 0;
ifs2;
end;

also feel free to edit to fit your script but just give credit if you do decide to use these.