jhilds varrock rune buyer

second release added two types of runes
post imporvements
progress report still messed up wont say 2nd type but i thought id let everyone get the new release
enjoy

Code:

program New;

// first release banker doesnt quite work
//start in arburys rune shop with the rune window opened
//post what needs to be fixed
//jhild.

//second release fixed banker( a little might have minor flaws)
//added masking option and second rune option
{.include SRL\SRL.Scar}
const
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
bank = true;//true to bank false to not
Mask = 'AIM';//what to mask scar as

//////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
TheBank = 'vwb';// dont touch
var
xx,yy,i,k,t,h,xy,yx,q: integer;
typeofrune: string;
procedure buywater;
begin
repeat;
 if FindColortolerance(xx,yy,11016725,0,0,700,700,5) then
 begin
 i:= i+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 (i>=runes)
end;

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 buydeath;
begin
repeat;
 if FindColortolerance(xx,yy,1052692,404,66,447,107,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 buydeath2;
begin
repeat;
 if FindColortolerance(xx,yy,1052692,404,66,447,107,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;

procedure progress;
begin
typeofrune:=(rune)
cleardebug;
writeln('sucessfully bought '+ inttostr(i) + (typeofrune) +'s');
writeln('script by jhild')
end;

procedure logedout;
begin
MMouse(649,486,1,1);
wait(100+random(200));
Mouse(649,486,1,1,true);
wait(100);
MMouse(650,378,1,1);
wait(100);
Mouse(650,378,1,1,true);
end;

procedure FindBooth;
begin
q:=0;
repeat
q:= q+1;
begin
Makecompass('s');
wait(100+random(20));
if findcolortolerance(t,h,4483191,0,0,516,339,3) then
begin
MMouse(t,h,1,1)
wait(100+random(30));
Mouse(t,h,1,1,false);
wait(100+random(40));
Popup('quickly');
wait(200+random(20));
end;
end;
until bankscreen = true or (q = 50);
if bankscreen = false then
begin
writeln('error cant find bank booth, logging out');
Logedout;
end;
end;



procedure bankage;
begin
perfectnorth;
wait(100+random(50));
Setrun(true);
wait(100+random(50));
MMouse(680,20,1,1);
wait(100+random(50));
Mouse(680,20,1,1,true);
wait(10000+random(50));
findcolortolerance(xy,yx,6284281,556,6,762,157,4);
wait(100+random(20));
MMouse(xy,yx,1,1);
wait(100+random(20));
Mouse(xy,yx,1,1,true);
wait(2000+random(400));
FindBooth;
Wait(200+random(10));
depositall;
wait(100+random(30));
closebank;
end;


begin
SetUpSRL;
DisguiseScar(Mask);
MMouse(758,4,1,1);
wait(100);
Mouse(758,4,1,1,true);
i:=0;
ifs;
if twotypes = true then
begin
k:= 0;
ifs2;
end;
MMouse(487,43,1,1);
wait(400);
Mouse(487,43,1,1,true);
if bank = true then
begin
bankage;
end;
logedout;
progress;
end.

 

works for me but could be a tad faster i guess

 

k ill keep that in mind

 

Random mouse movements might help.

Also whe ni started it up buying water runes the scar program was over the water runes so it just clicked the scar program, make it so that it clicks on the runescape screen before trying to buy.

good job anyway

 

Nice script but i dont think I'l use it cuz i dont need rune buyer...

 

Nice script, but try making your own banking proecdure instead of OpenBank. OpenBank doesn't work as well as it could.

 

no offense but

1) why would u want a rune buyer? dont u only need like 1 set..
2) did you make this yourself?

 

yes i did make this myself and
if u need to buy runes in sets of 1000 or something

 

Thx gona try this one.

 

OpenBankGlass works great for me, no lag and gets on usually first click.

 

U used the same procedure over and over again with small changes.. If u think about it, u can do that in alot easier ways too.

 

yea i know and i am learning thats why i asked people to post these things and thanks for that tip ill go try to think of something