SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
jhildy - SRL Member Application Form
jhildy

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge


Other Communitys
sythe

How Long have You Played Runescape
a year and a half

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I have recently started to script because i was trying to help some friends out so i visited sythe. i then realized that there was srl out and visited this website. with srl i created a effective rune buyer and banker. i am now learning more than ever from this website.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

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 = 'fire';// 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 = false;//true or false if u want to get 2 seperate types of runes
rune2 = 'fire';//second type of rune if ^ is true
runes2 = 2000;// 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(100+random(20));
flag;
wait(100);
FindBooth;
Wait(200+random(10));
depositall;
wait(100+random(30));
closebank;
end;


begin
SetUpSRL;
DisguiseScar(Mask);
ActivateClient;
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.

——————————————————
<!– END TEMPLATE: formanswers –>

Sorry, but this is too simple.
We are looking for a long lasting script with good coding/standards.
We would also like multiplayer/aniban/antirandoms.
You should also make the mouse movements a bit more random 1,1) isnt too random.
I think you should learn more.

bbbuuuuuttttt…..thx for posting a script :) keep it up. You'll make it eventually….

You could really use a case for this:

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;

Try something like this:

procedure ifs;
begin
  case (rune) of
    'water': Result := BuyWater;
    'earth': Result := BuyEarth;
    'chaos': Result := BuyChaos;
    'death': Result := BuyDeath;
    'fire': Result := BuyFire;
    'air': Result := BuyAir;
    'body': Result := BuyBody;
    'mind': Result := BuyMind;
    else
    begin
      Writeln('You did not pick a valid rune :( Please type the name correctly. Terminating..');
      TerminateScript;
    end;
  end;
end;

doesn't it look so clean and need too? Try using correct standards, much easier to find errors and read through your script that way.

For now its a no sorry.

i acually thought it was pretty good, cept for standards. ive seen people get in on worse scripts. yes.

From: oliver1205
i acually thought it was pretty good, cept for standards. ive seen people get in on worse scripts. yes.

Not flaming you and not trying to be rude, but are you serious? Nobody has Ever gotten in with an app which repeats the exact same things over and over, and thats just about what it does through this whole script. BuyAirs, BuyDeaths…etc. How hard is that?