SRL Archive - First Scripts

i dont know how to add download so heres script u might get banned lol
——————————————————————–

program bother@updated;
{.Include SRL\SRL.SCAR}
procedure setup;
begin
  writeln ('preparing to annoy enjoy!!!')
  SetupSRL;
end;
Begin
  Cleardebug;
  ActivateClient;
  Repeat
    SendKeysWait('1m a n00b and 1m Annoying',100,50);
    SendKeys(chr(13));
    Wait(1000);
  Until(False);
  End.

haha u might want to add first wait(1000*60*5); so it waits 5 minutes before starting the spam :P

pretty funny dude ^^
U dont need to add download to that, but add it between

tags (without spaces ofc)

Program Bother;
Begin
 MoveToTray;
 ActivateClient;
 wait(1000*60*5); 
 Repeat
  SendKeysWait('1m a n00b and 1m Annoying',100,50);
  SendKeys(chr(13));
  Wait(1000);
 Until(False);
End.

use TypeSend instead of SendKeysWait
its less bannable plus it automatically presses enter

~shut

^ im pretty sure this is supposed to get u banned:p

why wait 5 minutes? then you'll have JUST logged out, unless that's the whole point of you telling him that :p.

yea ill change thread too annoy/ban =p
:p

Program Bother;
Begin
MoveToTray;
ActivateClient;
Repeat
SendKeysWait('1m a n00b and 1m Annoying',100,50);
SendKeys(chr(13));
Wait(1000);
Until(False);
End.

nice first script we all start somewhere dont we. ;)

first of all make it readable by adding in something called indents or standars.


Program Bother;
Begin
–MoveToTray;
–ActivateClient;
–Repeat
—-SendKeysWait('1m a n00b and 1m Annoying',100,50);
—-SendKeys(chr(13));
—-Wait(1000);
–Until(False);
End.


so in scar that would be like

Program Bother;
Begin
  MoveToTray;
  ActivateClient;
  Repeat
    SendKeysWait('1m a n00b and 1m Annoying',100,50);
    SendKeys(chr(13)); 
   Wait(1000);
  Until(False);
End.

as said before use TypeSend unstead of SendKeys wait. and mabby make it type some other things by useing a case statement.

a case statementet with a random will just return a random numer and case that number off… its easy to give an example then type..

begin
  I:= Random(5);
  case I of
     1:
     2:
     3:
     4:
     5:
  end;  
end;

you could use the same system so it wouldnt allways type the same thing and you could have 5 different things and it would randomly choose one out of all them.

they want to wait 5 minutes so you can log in probably :p

even though you need to have rs open and logged in to work..

now I'm confused D:

but if you want to script most stuff, you could read my tutorial :D

(btw, GRATZ FOR LEARNING! ^^)

Why would you want this? lol

you wouldn't it's just good that he's trying stuff.. >.>!

lol ull see its fun go in too highly populated world on a newb acc and just press play ppl will h8 u =]

haha pretty ridiculous but good place to start learning

lol nice for a first script. It would be annoying.

From: NiCbaZ

Program Bother;
Begin
MoveToTray;
ActivateClient;
Repeat
SendKeysWait('1m a n00b and 1m Annoying',100,50);
SendKeys(chr(13));
Wait(1000);
Until(False);
End.

nice first script we all start somewhere dont we. ;)

first of all make it readable by adding in something called indents or standars.


Program Bother;
Begin
–MoveToTray;
–ActivateClient;
–Repeat
—-SendKeysWait('1m a n00b and 1m Annoying',100,50);
—-SendKeys(chr(13));
—-Wait(1000);
–Until(False);
End.


so in scar that would be like

Program Bother;
Begin
  MoveToTray;
  ActivateClient;
  Repeat
    SendKeysWait('1m a n00b and 1m Annoying',100,50);
    SendKeys(chr(13)); 
   Wait(1000);  // <----------------- 
  Until(False);
End.

as said before use TypeSend unstead of SendKeys wait. and mabby make it type some other things by useing a case statement.

a case statementet with a random will just return a random numer and case that number off… its easy to give an example then type..

begin
  I:= Random(5);
  case I of
     1:
     2:
     3:
     4:
     5:
  end;  
end;

you could use the same system so it wouldnt allways type the same thing and you could have 5 different things and it would randomly choose one out of all them.

No, it would be like this. :P

Program Bother;
Begin
  MoveToTray;
  ActivateClient;
  Repeat
    SendKeysWait('1m a n00b and 1m Annoying',100,50);
    SendKeys(chr(13)); 
    Wait(1000);
  Until(False);
End.

Try coding it to spam:

A<space>q<space>p

and

<space><space><space><space><space>W


This results in an ASCII of a p3n0r

From: junle
Try coding it to spam:

A<space>q<space>p

and

<space><space><space><space><space>W


This results in an ASCII of a p3n0r

Thats way to easy..
here you go lol.

program New;

{.include SRL/SRL.scar}

Var
  A, Q, P, W, S, E: Byte;
  i: Integer;
begin
  SetupSRL;
  ClearDebug;
  If Not LoggedIn Then
    TerminateScript;
  A := GetKeyCode('a');
  Q := GetKeyCode('q');
  P := GetKeyCode('p');
  W := GetKeyCode('w');
  S := GetKeyCode(Chr(32));
  E := GetKeyCode(Chr(12));
  Repeat
    If Not LoggedIn Then
      TerminateScript;
    TypeByte(A);
    TypeByte(S);
    TypeByte(Q);
    TypeByte(S);
    TypeByte(P);
    TypeByte(E);
    For i := 1 To 5 Do
      TypeByte(S);
    TypeByte(W);
    TypeByte(E);
  Until(False);
end.

program New;

{.include SRL/SRL.scar}

Var
  A, Q, P, W, S, E: Byte;
  i: Integer;
begin
  SetupSRL;
  ActivateClient;
  ClearDebug;
  If Not LoggedIn Then
    TerminateScript;
  A := GetKeyCode('a');
  Q := GetKeyCode('q');
  P := GetKeyCode('p');
  W := GetKeyCode('w');
  S := GetKeyCode(Chr(32));
  E := GetKeyCode(Chr(12));
  Repeat
    If Not LoggedIn Then
      TerminateScript;
    TypeByte(A);
    TypeByte(S);
    TypeByte(Q);
    TypeByte(S);
    TypeByte(P);
    TypeByte(E);
    For i := 1 To 5 Do
      TypeByte(S);
    TypeByte(W);
    TypeByte(E);
  Until(False);
end.

doesn't press enter :o

From: 99_


doesn't press enter :o

oops lol, Just fixed it hah

program New;
 
{.include SRL/SRL.scar}
 
Var
  A, Q, P, W, S, E: Byte;
  i: Integer;
begin
  SetupSRL;
  ClearDebug;
  If Not LoggedIn Then
    TerminateScript;
  A := GetKeyCode('a');
  Q := GetKeyCode('q');
  P := GetKeyCode('p');
  W := GetKeyCode('w');
  S := GetKeyCode(Chr(32));
  E := GetKeyCode(Chr(13));
  Repeat
    If Not LoggedIn Then
      TerminateScript;
    TypeByte(A);
    TypeByte(S);
    TypeByte(Q);
    TypeByte(S);
    TypeByte(P);
    TypeByte(E);
    For i := 1 To 5 Do
      TypeByte(S);
    TypeByte(W);
    TypeByte(E);
  Until(False);
end.

Haha, i said add there wait 5 minutes cos i read that the name of the script was "brother" not "bother" :D and tought its made for annyoing your brother who comes to the computer after u and is like "hey why is my pute suddenly spamming 'iam noob' " :P rofl misunderstanding…

program bother@updated@updatedagain;
{.Include SRL\SRL.SCAR}
procedure setup;
begin
  writeln ('preparing to annoy enjoy!!!')
  SetupSRL;
end;
Begin
  Cleardebug;
  ActivateClient;
  Repeat
    SendKeysWait('1m a n00b and 1m Annoying',100,50);
    SendKeys(chr(13));
    Wait(1000 + Random(101));
  Until(False);
  End.

A little more spiffing up won't do much harm. It's a little less detectable

Lol at this script, I might just try it on a n00b account.

nice one!

TypeSend('{^}');
Wait(100 + Random(74));
TypeSend(' \/');

Ice cones PWN!

[PHP]Program Spam;
{.include SRL\SRL.Scar}
Procedure Spam;
Begin
Repeat
TypeSend('Ban me!!!!');
Wait(500);
TypeSend('Allz, go to srl forums, you crappy kids');
Wait(600);
TypeSend('BechNugget, har har har!');
Wait(600);
TypeSend('I macro hahaha');
Wait(600);
TypeSend('I am a jagex mod, spam customer support for free member');
Wait(600);
TypeSend('Buy free runescape accounts at the site');
Wait(600);
TypeSend('Selling accounts, trade me accounts for FREE');
Wait(600);
TypeSend('Good thing im blocking all these dumb adverts');
Wait(600);
TypeSend('Hey children, i give you free member for your address!!');
until (false);
End;

Begin
SetUpSrl;
ActivateClient;
MoveToTray; //FTW@!
Spam;
End.[/PHP]

That breaks all rules i think..