SRL Archive - Archive

How Long have You Played Runescape?
7 Year(s)


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?



What is your general programming knowledge?
PHP, Java, Python <3, javascript


Are you a member of any other communities?
no


Tell us about yourself…

From: halodude1489
Been playing runescape since I was 14, was part of the whole Aryan botting up until the mass ban and I lost all but one account lol.

Please show us one (or multiple) of your scripts.

{.include SRL/SRL.scar}
//colors used to find guard / knight
var amount,tracking,drop,fail,total,tx,ty,x,y:integer;
const
  guard_color = 1317736;
const
  knight_color = 13242723;
const
  eat=true;
procedure randomness;
begin
 case (Random(100)) of
    0: RandomRClick;
    1: ExamineInv;
    2: PickUpMouse;
    3..100: begin
      Wait(100 + Random(50));
      Exit;
    end;
  end;         
end;

procedure report;
begin
writeln('--------------------Report-----------------');
writeln('Sucessful attempts');
writeln(tracking-fail);
writeln('Total attempts');
writeln(tracking);
writeln(TimeRunning);
total:=0;
end;

procedure clear_food;
begin
  amount:= 4+random(3);
  if(FindColorTolerance(x,y,1206402,687,432,731,461,15))then
  repeat
  begin
    if(FindColorTolerance(x,y,1207175,555,391,731,461,15))then
    begin
        MMouse(x,y,5,5);
        wait(50+random(50));
        clickmouse2(false);
        if(FindText(tx,ty,'Drop','UpChars',400,0,750,480))then
        begin
          wait(150+random(25));
          MMouse(tx,ty,5,5);
          clickmouse2(true);
        end;
      end;
    end;
    wait(800+random(400));
    drop:=drop+1;
    until(drop = amount);
    drop:=0;
  end;

procedure eat_food;
begin
wait(random(1000));
if(FindColorTolerance(x,y,1207175,555,252,726,461,15))then
begin
  MMouse(x,y,10,10);
  clickmouse2(true);
  writeln('eating');
  wait(500+random(500));
  fail:=fail+1;
  end;
end;

procedure pick_pocket;
var color: Integer;
begin
if(FindColorTolerance(x,y,guard_color,0,17,270,330,5) or FindColorTolerance(x,y,guard_color,0,17,600,330,5))then
  begin
  clear_food;
  wait(75);
  MMouse(x,y,4,3);
  wait(10);
  if(isUpText('Watch'))then
    begin
    wait(50+random(70));
    clickmouse2(false);
    if(FindText(tx,ty,'Pickpocket','UpChars',0,0,490,420))then
    begin
      wait(150+random(25));
      MMouse(tx+40,ty,35,4);
      clickmouse2(true);
      if(random(4)=2)then
      begin
      SleepAndMoveMouse(3000+random(400));
      end else
      sleep(3000+random(500));
      begin
      end;

        if(FindColorSpiralTolerance(tx,ty,50027,7,7,503,333,40))then
        begin
          writeln('failed, waiting');
          if(eat = true)then
          begin
            eat_food;
          end;
          wait(1000+random(500));
        end;
        tracking:=tracking+1;
      end;
    end;
  end;
  randomness;
  FindMod;
  FindNonInventoryRandoms;
end;


begin
SetupSRL;
repeat
wait(500+random(500));
pick_pocket;
total:=total+1;
  if(total=20)then
  begin
       report;
  end;
until(tracking=800+random(50));
logout;
end.

This is a Watchmen pickpocket, I used it for a long time and it works very well, I wish the code was cleaner but it is my first attempt at a script and it works very well, Ive run it for 5-6 hours without any problems. It is kind of slow only yielding ~80k xp an hour (with high level thieving) and the more you fail the slower it gets… It auto eats food because the watchmen give you one bread each time you succeed to pick pocket, allowing you to thieve for hours without dying. Also I can't add attachments to this page -_-

It seems really simple to me, there are no TPA's, bitmaps/dtms/ddtms, walking procedures, etc … No from me

Edit: Also you are not that active on the forums, 9 posts in 5 years? We normally look at how active a person is too

Apply again in a month with a more complicated script which might include (D)DTMs, bitmaps, TPAs, walking, failsafes, antirandoms, antiban etc. etc.

No from me.

Nope, too simple. Sorry :)

Very happy to see someone applying with an all color script again. :)

Unfortunately I'm going to have to say no due to simplicity, but I wont vote.

Don't get discouraged, just read some tutorials and figure out how arrays work and I think you'll be all set. (They are really quite simple ;))

Alright I will clean it up and try some more crazy things, maybe even SMART.

I'm going to have to say no for the same reasons above, it's just too simple for an application. I noticed that you used constants for the guard and knight colors, that's never a good idea considering the colors change all the time. I did like that it was completely done in color though, nice job with that feature.

From: Echo_
I'm going to have to say no for the same reasons above, it's just too simple for an application. I noticed that you used constants for the guard and knight colors, that's never a good idea considering the colors change all the time. I did like that it was completely done in color though, nice job with that feature.

All of MSI's Objects have a static color in each record, which is why we search with a tolerance. ;)

Become a more active member in the community too

I have to say No.

like people have said its just to simple.

also whats with the antiban?

1, 2, 3, 4, then rest all for a wait?

From: Echo_
I noticed that you used constants for the guard and knight colors, that's never a good idea considering the colors change all the time.

Makes updating color quicker, only one place to change it

Edit: damn ninjad

From: NCDS
All of MSI's Objects have a static color in each record, which is why we search with a tolerance. ;)

It's understandable with a huge script like MSI,you want to be able to change the color easily upon a game update. Then you can just go to the constants file instead of searching through several other files. But for a small script like this its better to just enter the color id into the function that uses it.

It isn't a huge issue though, I wouldn't have voted no just because of that.