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.