SRL Archive - First Scripts

Putnam's Auto Annoyer


Putnam

2008-03-21 23:40:23

This Script is an advanced Auto-talker, and it is an Auto-Annoyer.
It is designed to get you banned, so USE AT YOUR OWN RISK!

IMPORTANT!!!
if you want it to follow people, donload the (G) version.

Instructions
**************
1.) Open runescape, login the character you want banned.
2.) drag crosshair to RS window
3.) Play, and Wait to get banned! ;) :f:

Credits
**************
Thanks Dude Richard and Smithsps for helpin


Versions=
v2 auto annoyer
v3 Auto JOKER

Richard

2008-03-22 08:07:06

Lol quit a fun little script, but what I would do is do a random case so it says one of those things in any order, I would do it like this:

//******************************
// Putnam's Auto Annoyer v2.0 [SRL4] [#14]
//******************************
//Instructions:
//Press Play then immediately click on the bar where
//you talk on the RS Screen
//******************************
//WARNING: this this is designed to
// get you banned. USE AT YOUR OWN RISK!
// 1.)It annoys people
// 2.)It swears
// My second script (of course an autotalker)

// V2.1 will include times words were repeated in proggie `
// need help with it


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

procedure Annoyer;
begin
Wait(10000);
Case Random(13) of
1: TypeSend('balls');
2: TypeSend('kitten balls');
3: TypeSend('(0(kzes');
4: TypeSend('faq you blackie');
5: TypeSend('dumb noobs');
6: TypeSend('need money');
7: TypeSend('youtube is awesome go there');
8: TypeSend('Free Accounts!');
9: TypeSend('zezima isnt 1st anymore!');
10: TypeSend('12356789998765432');
11: TypeSend('glow3: Will $o0k balls for 3k!!!!');
12: TypeSend('cyan: my password is...');
13: TypeSend('lets sing the noob song! You are all noobs...');
end;
end;
procedure Proggie;
begin
cleardebug;
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln('||Putnams Auto Annoyer! ||');
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln('||Post this on the thread plz||');
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln(' Worked For ' + TimeRunning);
end;

begin // Main Loop
SetupSrl;
repeat
Annoyer;
Proggie;
until(false);
end.

And instead of having to make the user click the runescape client you can do activate client after setupsrl in your main loop but tell the user to drag the crosshair onto the client.

smithsps

2008-03-22 14:06:07

You could use arrays.

So it would be like:

var
Annoy : array of string;

procedure Declare;
begin //edit below if you want to say something else.
SetArrayLength(Annoy, 13);// 13 is the amount of phrases you have.
Annoy[0]:='balls...';
Annoy[1]:='kitten balls';
Annoy[2]:='(0(kzes';
Annoy[3]:='faq you blackie';
Annoy[4]:='dumb noobs';
Annoy[5]:='need money';
Annoy[6]:='youtube is awesome go there';
Annoy[7]:='Free Accounts!';
Annoy[8]:='zezima isnt 1st anymore!';
Annoy[9]:='12356789998765432';
Annoy[10]:='glow3: Will $o0k balls for 3k!!!!';
Annoy[11]:='cyan: my password is...';
Annoy[12]:='lets sing the noob song! You are all noobs...';
end;
Instead of using consts.

and once you have arrays you could make procedure Annoyer like this:
procedure Annoyer;
begin
Wait(10000);
CP := Random(13);//Make CP = a number bettween 0-12
TypeSend(Annoy[CP]);// If CP = 1 that would type: 'kitten balls'
end;

——————–
To make a proggy with how many times you talked:
You would need:
TT : integer; //Times Talked
and at the end of procedure Annoyer you would put:
TT := TT + 1;

so procedure Annoyer would be:
procedure Annoyer;
begin
Wait(10000);
CP := Random(13);//Make CP = a number bettween 0-12
TypeSend(Annoy[CP]);
TT := TT + 1;
end;


and at the Proggy could be like:
procedure Proggie;
begin
cleardebug;
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln('||Putnams Auto Annoyer! ||');
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln('||Post this on the thread plz||');
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln(' Worked For ' + TimeRunning);
Writeln(' Talked : ' + IntToStr(TT));//It would say how many times it talked.
end;

IntToStr(TT); 
//Is important because it converts TT to a string so writeln can write it.

—————
SO your final script could look like:
program AutoAnnoyer;
{.include srl/srl.scar}

var
Annoy : array of string;
CP : integer; //Current Phrase
TT : integer; //Times Talked

procedure Declare;
begin //edit below if you want to say something else.
SetArrayLength(Annoy, 13);// 13 is the amount of phrases you have.
Annoy[0]:='balls...';
Annoy[1]:='kitten balls';
Annoy[2]:='(0(kzes';
Annoy[3]:='faq you blackie';
Annoy[4]:='dumb noobs';
Annoy[5]:='need money';
Annoy[6]:='youtube is awesome go there';
Annoy[7]:='Free Accounts!';
Annoy[8]:='zezima isnt 1st anymore!';
Annoy[9]:='12356789998765432';
Annoy[10]:='glow3: Will $o0k balls for 3k!!!!';
Annoy[11]:='cyan: my password is...';
Annoy[12]:='lets sing the noob song! You are all noobs...';
end;



procedure Annoyer;
begin
Wait(10000);
CP := Random(13);//Make CP = a number bettween 0-12
TypeSend(Annoy[CP]);
TT := TT + 1;
end;

procedure Proggie;
begin
cleardebug;
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln('||Putnams Auto Annoyer! ||');
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln('||Post this on the thread plz||');
Writeln('||*!*!*!*!*!*!*!*!*!*!*!*!*!*||');
Writeln(' Worked For ' + TimeRunning);
Writeln(' Talked : ' + IntToStr(TT));
end;

begin // Main Loop
SetupSrl;
Declare;
repeat
Annoyer;
Proggie;
until(false);
end.

Tip: look around and try to get rid of "until(false);" other wise it will
continue for ever and you will have to stop it manually.

Post or PM me if you have questions.

Putnam

2008-03-23 12:35:42

Thanks Dude Richard, and Smithsps.
ill update it and hope to add more to it


harmelryan, dont spam

haha i used my lvl 3 in lumby and people started singing the noobsong, then said REPORT PUTZ 11!

Nava2

2008-03-23 13:50:43

Well, lets call this.. very efficient :)

Great script to fool around with!

-Nava2

Putnam

2008-03-23 14:05:45

okay im making an auto joker. givin up on stats and following

wowUsuck

2008-03-24 00:03:00

haha funny script.. I changed some of the things for it to say but came out to the same effect XD banned some homos account.. thanks +rep

Putnam

2008-03-24 00:06:54

OKAY now for some extra bannify i added a follower to auto annoyer (G), a lot of sayings, and now im going to add… SendKeys!!!!!! woo

bluejelly

2008-03-24 01:13:58

i sat a guy on for an hour and havnt gotten muted yet hehe or banned but a good idea would be to make it instant so you could just spam the chat window that would be great.

Putnam

2008-03-24 19:09:47

my EXTRA BANNIFY one is. LOL i ran it for 3 mins and got muted, there were like 3 mods hangin around lumby.

check your appeal a ban on the main screen, bet you have some black marks