SRL Archive - RS3 Outdated / Broken Scripts

This is TYXX's script which was in non-srl i kind of SRL-eized it. I replaced that darn clickmouse with mouse and added antiban and the road finder…


Well here it is

{ Made by tyxx but edited a lil (i srl-eized it) added anti-ban.


{                /-------------\                  /---------
               /               \                /          \
              /                \               /            \
              |        |       |              |       |      |
              |        |       |              |       |      |
              |        |       |              |       |      |
              |________|       |              |______ |      |
                       /       /                   /       /
                      /       /                   /       /
                     /       /                   /       /    SCRIPT
                    /       /    UPER           /       /_____
                   /       /                  |/      |/      |
                  /       /                   |       |       |
                 /       /                    |       |       |
                /       /                     |       |       |
               /       /________              \                /
              |       |        |               \              /
              |       |        |                \------------/
              |       |        |
              |       |        |
               \               /
                \             /
                 \           /
                  \---------/

Start in Bank

}

program faliyewchopper;
{.include srl/srl.scar}


const
username = '';
password = '';
axehead = 6511171;
road1 = 6848131;
road2 = 5794157;
treelogo = 97286;
treecol = 4026472;
banklogo = 4049126;
bankbooth = 4344917;
var
  n,m,d,f,w,e,k,l,v,o,p: integer;

procedure waitforrepeat;
begin
    wait(2000+random(5000));
end;

procedure storelogs;
begin
    findcolor(b,o,4419729,698,343,729,455)
      MMouse(b,o,1,1);
         wait(100+random(100));
       mouse(b,o,1,1,false);
     wait(500+random(500));
    MMouse(b,(o+70),1,1);
       wait(100+random(100));
       mouse(b,(o+70),1,1,true);
        wait(1000+random(500));
     MMouse(459,41,1,1);
    wait(100+random(100));
       mouse(459,41,1,1,true);
      wait(1000+random(1000));
     waitforrepeat;
end;

procedure banking;
begin
    if(findcolor(w,e,bankbooth,0,0,517,341)=true)
    then
    MMouse(w,e,1,1);
    wait(2000+random(100));
    mouse(w,e,1,1,true);
    wait(5000+random(1000));
    if(findcolor(k,l,16711680,208,435,389,457)=true)
    then
    MMouse(303,446,1,1);
    wait(100+random(100));
    Mouse(303,446,1,1,true);
    wait(1000+random(1000));
    MMouse(247,392,1,1);
    wait(100+random(100));
    mouse(247,392,1,1,true);
    wait(4000+random(1000));
    storelogs;
    if(findcolor(k,l,16711680,208,435,389,457)=false)
    then
    banking;
    if(findcolor(w,e,bankbooth,0,0,517,341)=false)
    then
    banking;
end;

procedure tobank;
begin
    if(findcolor(d,f,road1,644,24,717,71)=true)
    then
    MMouse(d,f,1,1);
    wait(100+random(100));
    Mouse(d,f,1,1,true);
    wait(6000+random(1000));
    MMouse((d-10),(f-5),1,1);
    wait(100+random(100));
    mouse((d-10),(f-5),1,1,true);
    wait(8000+random(1000));
    MMouse((d-10),(f-5),1,1);
    wait(100+random(100));
    Mouse((d-10),(f-5),1,1,true);
    wait(10000+random(500));
    if(findcolor(x,y,banklogo,586,42,718,134)=true)
    then
    MMouse(x,(y+5),1,1);
    wait(100+random(100));
    Mouse(x,(y+5),1,1,true);
    wait(8000+random(1000));
    banking;
end;

procedure findaxehead;
begin
end;

procedure chopyew;
begin
    if(findcolorspiral(v,b,treecol,0,0,516,340)=true)
    then
    MMouse(v,b,1,1);
    wait(100+random(100));
    mouse(v,b,1,1,true);
    wait(5000+random(1000));
    if(findcolor(x,y,axehead,577,213,596,288)=false)
    then
    findaxehead;
    if(findcolor(n,m,3885652,707,440,714,446)=true)
    then
    chopyew;
    if(findcolor(n,m,3885652,707,440,714,446)=false)
    then
    tobank;
    if(findcolorspiral(v,b,treecol,0,0,516,340)=false)
    then
    wait(5000+random(2000));
    chopyew;
end;

procedure toyews;
begin
    if(findcolor(x,y,road1,613,123,635,154)=true)
    then
    MMouse(x,y,1,1);
    wait(100+random(100));
    Mouse(x,y,1,1,true);
    wait(9000+random(1000));
    MMouse((x+30),(y+30),1,1);
    wait(100+random(100));
    Mouse((x+30),(y+30),1,1,true);
    wait(9000+random(1000));
    if(findcolor(n,m,road2,628,97,714,148)=true)
    then
    MMouse(n,m,1,1);
    wait(100+random(100));
    mouse(n,m,1,1,true);
    wait(7000+random(1000));
    if(findcolor(n,m,road2,628,97,714,148)=false)
    then
    toyews;
    if(findcolor(d,f,treelogo,547,72,670,145)=true)
    then
    MMouse(d,f,1,1);
    wait(100+random(100));
    mouse(d,f,1,1,true);
    wait(5000+random(1000));
    chopyew;
    if(findcolor(x,y,road1,613,123,635,154)=false)
    then
    chopyew;
end;

procedure bankortree;
begin
    if(findcolor(x,y,treelogo,578,17,722,143)=true)
    then
    chopyew;
    if(findcolor(x,y,treelogo,578,17,722,143)=false)
    then
    toyews;
end;

procedure setrun1;
begin
    MMouse(710,484,1,1);
    wait(100+random(100));
    mouse(710,484,1,1,true);
    wait(100+random(100));
    if(findcolor(k,l,5067346,605,250,640,283)=true)
    then
    MMouse(k,l,1,1);
    wait(100+random(100));
    mouse(k,l,1,1,true);
    wait(100+random(100));
    MMouse(650,186,1,1);
    wait(100+random(100));
    mouse(650,186,1,1,true);
    wait(100+random(100));
    bankortree;
    if(findcolor(k,l,5067346,605,250,640,283)=false)
    then
    MMouse(650,186,1,1);
    wait(100+random(100));
    mouse(650,186,1,1,true);
    wait(100+random(100));
    bankortree;
end;

procedure clickredlog;
begin
    wait(2000+random(2000));
    if(findcolor(o,p,16777215,464,332,614,351)=false)
    then
    clickredlog;
    if(findcolor(o,p,16777215,464,332,614,351)=true)
    then
    MMouse(o,p,1,1);
    wait(100+random(100));
    mouse(o,p,1,1,false);
    wait(100+random(100));
    MMouse((o-10),(p-20),1,1);
    wait(100+random(100));
    mouse((o-10),(p-20),1,1,true);
end;

procedure login;//adapted from my first script!
begin
    writeln('loggin-in')
    if(findcolor(n,m,16777215,392,270,533,310)=false)
    then
    login;
    if(findcolor(n,m,16777215,392,270,533,310)=true)
    then
    MMouse(n,m,1,1);
    wait(100+random(100));
    mouse(n,m,1,1,true);
    wait(100+random(100));
    sendkeys(username+chr(13));
    wait(100+random(100));
    typesend(password);
    if(findcolor(k,l,16777215,229,302,371,340)=true)
    then
    MMouse(k,l,1,1);
    wait(100+random(100));
    mouse(k,l,1,1,true);
    wait(100+random(100));
    clickredlog;
end;

procedure loginfinder;
begin
    if(findcolor(x,y,65535,301,231,426,261)=true)
    then
    login;
    if(findcolor(x,y,65535,301,231,426,261)=false)
    then
    setrun1;
end;

procedure minimize;
begin
    if(findcolor(w,e,16086339,0,0,1000,1000)=true)
    then
    movemousesmooth(w,e);
    wait(100+random(100));
    mouse(w,e,1,1,true);
    wait(1000+random(100));
    loginfinder;
    if(findcolor(w,e,16086339,0,0,1000,1000)=false)
    then
    loginfinder;
end;

begin
    minimize;
    wait(240000);
    repeat
    setrun1;
    until(false);
end.

Post bugs/errors and how i can improve or how i mucked up….



->{Nauman}<-:spongebob:

Still really detectalbe cause your clicking coords. Learn to use Radial Road Walking to make it more undetectable if you still wanna build off his/her script.

Ok thanks anybody have a tut for that?

From: naumanakhlaq
Ok thanks anybody have a tut for that?

Thats what we are here for. Here are a couple I think would be useful.

http://www.villavu.com/forum/showthread.php?t=11159

http://www.villavu.com/forum/showthread.php?t=581

http://www.villavu.com/forum/showthread.php?t=7999

http://www.villavu.com/forum/showthread.php?t=10871

http://www.villavu.com/forum/showthread.php?t=6621

Umm u need to be a lil beter in scripting.

I know just give me pointers on how i can improve and i will have a functioning one in no time.

Whoops lost the account when i get it back can u ip ban the dickhead who took my account. Personally it was my falut…

is this script good?

which versions of SRL and SCAR?

Line 58: [Error] (14404:11): Unknown identifier 'b' in script

another error:
Line 2: [Error] (2:1): 'BEGIN' expected in script

got it to start with SCAR 2.03 and SRL 3.6 but he does not move from the bank lol

dont triple post.

dude, there are so many errors

You should check out my tut (Links in sig) Learning the things to become a SRL member. That will teach you a LOT of things and with hopefully some good explanations that you can understand :)

And if your stuck on some errors that people pointed out (If that was a script problem and not a SRL/SCAR they are using problem.. :p) you could check out my tut on fixing errors :)

Good try, you really should read my tut for Learning the things to become a SRL member, and at least read the radial walking section.

I'm am going to test this out tonight.

it didnt work and begin exepectid and all this otha stuff

Ok thanks guyz I read all the tuts and I am starting from scratch.

Try using different wait times for each wait function like say use one as wait(312+random(624)) and choose another set of numbers different to it it might make it a little less detectable =] i could show u howto use radial road walk if u want to