SRL Archive - Other Scripts

I wrote this script to automatically make me a 20 page humanpets herd for thumbing points hope it helps

P.S: the code is not very classy but the script works well

program makeaherd;
{.include SRL/SRL.scar}
var
posts, x, y, click: integer;

procedure aposts;

begin
click := BitmapFromString(15, 13, 'beNqLnGEdOejQfyRAjGKsbOI' +
       'V47ILUzEeuzDdjF8x8b6gUDEeD1ITAQC91xzj');

posts:=1;

repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True);
end;
wait(500);
sendkeys('a' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 101 );
end;

procedure bposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True);
end;
wait(500);
sendkeys('b' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 201 );
end;

procedure cposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True);
end;
wait(500);
sendkeys('c' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 301 );
end;

begin
setupsrl;
aposts;
bposts;
cposts;
end.

edit, just adding my final code this scipt will automatically make you a classy 200 page thumbing herd

program makeaherd;
{.include SRL/SRL.scar}
var
posts, x, y, click: integer;

procedure aposts;

begin
click := BitmapFromString(15, 13, 'beNqLnGEdOejQfyRAjGKsbOI' +
       'V47ILUzEeuzDdjF8x8b6gUDEeD1ITAQC91xzj');

posts:=1;

repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('a' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 101 );
end;

procedure bposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('b' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 201 );
end;

procedure cposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('c' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 301 );
end;

procedure dposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('d' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 401 );
end;

procedure eposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('e' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 501 );
end;

procedure fposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('f' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 601 );
end;

procedure gposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('g' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 701 );
end;

procedure hposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('h' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 801 );
end;

procedure iposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('i' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 901 );
end;

procedure jposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('j' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1001 );
end;

procedure kposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('k' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1101 );
end;

procedure lposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('l' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1201 );
end;

procedure mposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('m' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1301 );
end;

procedure nposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('n' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1401 );
end;

procedure oposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('o' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1501 );
end;

procedure pposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('p' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1601 );
end;

procedure qposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('q' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1701 );
end;

procedure rposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('r' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1801 );
end;

procedure sposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('s' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 1901 );
end;

procedure tposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('t' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2001 );
end;

procedure uposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('u' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2101 );
end;

procedure vposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('v' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2201 );
end;

procedure wposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('w' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2301 );
end;

procedure xposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('x' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2401 );
end;

procedure yposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('y' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2501 );
end;

procedure zposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('z' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2601 );
end;

procedure aaposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('aa' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2701 );
end;

procedure abposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('ab' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2801 );
end;

procedure acposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('ac' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 2901 );
end;

procedure adposts;
begin
repeat
wait(500);
if findbitmap(click, x, y)then
begin
mouse(x, y - 15, 0, 0, True); // - 10 is how many pixels up change if you want
end;
wait(500);
sendkeys('ad' + IntToStr(posts) );
wait(500);
if findbitmap(click, x, y)then
wait(500);
movemousesmooth(x, y);
wait(500);
clickmouse(x, y, true);
wait(250);
posts:=posts+1;
until( posts = 3001 );
end;

begin
setupsrl;
aposts;
bposts;
cposts;
dposts;
eposts;
fposts;
gposts;
hposts;
iposts;
jposts;
kposts;
lposts;
mposts;
nposts;
oposts;
pposts;
qposts;
rposts;
sposts;
tposts;
uposts;
vposts;
wposts;
xposts;
yposts;
zposts;
aaposts;
abposts;
acposts;
adposts;
end.

this for runescape?

From: jakeyboy29
this for runescape?

no its for humanpets : )

Hmm Well.

You use if/thens alot :) but not properly :(

Like in here.

procedure bposts;
begin
  repeat
    wait(500);
    if findbitmap(click, x, y)then
    begin
      mouse(x, y - 15, 0, 0, True);
    end;
    wait(500);
    sendkeys('b' + IntToStr(posts) );
    wait(500);
    if findbitmap(click, x, y)then
    begin
      wait(500);
      movemousesmooth(x, y);
      wait(500);
      clickmouse(x, y, true);
      wait(250);
      posts:=posts+1;
    end;
  until( posts = 201 );
end;

For like some thing with one thing to do, you can do

if findbitmap(click, x, y)then    
  mouse(x, y - 15, 0, 0, True);

but with some thing where it needs to do more than one thing, use begins and ends :)

like

if findbitmap(click, x, y)then
    begin
      wait(500);
      movemousesmooth(x, y);
      wait(500);
      clickmouse(x, y, true);
      wait(250);
      posts:=posts+1;
    end;

Those are just the major errors I saw and heres a version with standards

program makeaherd;
{.include SRL/SRL.scar}
var
  posts, x, y, click: integer;

const
  Your_Colour = 9984315;

procedure aposts;
begin
  click := BitmapFromString(15, 13, 'beNqLnGEdOejQfyRAjGKsbOI' +
       'V47ILUzEeuzDdjF8x8b6gUDEeD1ITAQC91xzj');
  posts:=1;
  repeat
    wait(500);
    if findbitmap(click, x, y)then
    begin
      mouse(x, y - 15, 0, 0, True);
    end;
    wait(500);
    sendkeys('a' + IntToStr(posts) );
    wait(500);
    if findbitmap(click, x, y)then
    begin
      wait(500);
      movemousesmooth(x, y);
      wait(500);
      clickmouse(x, y, true);
      wait(250);
      posts:=posts+1;
    end;
  until( posts = 101 );
end;

procedure bposts;
begin
  repeat
    wait(500);
    if findbitmap(click, x, y)then
    begin
      mouse(x, y - 15, 0, 0, True);
    end;
    wait(500);
    sendkeys('b' + IntToStr(posts) );
    wait(500);
    if findbitmap(click, x, y)then
    begin
      wait(500);
      movemousesmooth(x, y);
      wait(500);
      clickmouse(x, y, true);
      wait(250);
      posts:=posts+1;
    end;
  until( posts = 201 );
end;

procedure cposts;
begin
  repeat
    wait(500);
    if findbitmap(click, x, y)then
    begin
      mouse(x, y - 15, 0, 0, True);
    end;
    wait(500);
    sendkeys('c' + IntToStr(posts) );
    wait(500);
    if findbitmap(click, x, y)then
    begin
      wait(500);
      movemousesmooth(x, y);
      wait(500);
      clickmouse(x, y, true);
      wait(250);
      posts:=posts+1;
    end;
  until( posts = 301 );
end;

begin
  setupsrl;
  aposts;
  bposts;
  cposts;
end.

thanks for the tip about the begin and end; and I really appreciate the standards ^.^

^ lol, noidea, hes old skool. He comes from Kaiteiks. ^

those were the days mate

From: NaumanAkhlaQ
^ lol, noidea, hes old skool. He comes from Kaiteiks. ^

Lol I realized that whn he first came back to SRL like a week ago looking at his longevity :)

I wish I got started scripting then, IT would be amazing to see what it was like back then :) and then to see how far SCAR had come since then, WOW!

If I could share the memory I would,

in the beginning of srl you had to submit a decently nice scarscript and all the members would vote on your application to gain member status I think you might have need a referral as well

From: newguy45
If I could share the memory I would,

in the beginning of srl you had to submit a decently nice scarscript and all the members would vote on your application to gain member status I think you might have need a referral as well

Same today, but no need for the referral

geese the memory flood back,but yes scar has over come some massive marvals

in actuality I was a leacher back during bovinelabs lmao I remember the release of the first two color cordnator ugh im getting old

From: newguy45
in actuality I was a leacher back during bovinelabs lmao I remember the release of the first two color cordnator ugh im getting old

The first two! Wow!

Sorry to be getting your thread offtopic thogguh :p


IS there any help you need scriptig though?

Nah I expanded this script to use 30 procedures going from a to ad, I'm going to start working on another script soon its going to be really difficult

Just talk if you need help :)