Harry
2008-05-17 09:34:15
Hihi. 'Tis been fun.

~Hy.

~Hy.
2008-05-17 09:34:15

2008-05-17 09:39:17
2008-05-17 09:39:31
2008-05-17 09:41:09
2008-05-17 09:41:46
2008-05-17 09:43:00
From: Hy71194
n3ss3s is highest. He had his postcount reset.
2008-05-17 10:02:00
2008-05-17 10:04:11
From: Sp0rky
Ridiculous levels of spam. Congrats. A new high or a new low? ;)
2008-05-17 10:05:56
2008-05-17 10:07:48
program hy;
const
HowMany = 5000;
var
i: Integer;
procedure PostRandomStuff;
var
c: Integer;
s: string;
begin
//301 character posts
for c := 0 to 300 do
begin
//Add a random char from the alphabete a-z (97-122)
//Remember that Random(2) = 0 or 1
s := s + Chr(Random(122 - 97) + 97 + 1);
//Let's make the average word 6 chars long
if ( Random(6) = 4 ) then
s := s + ' ';
end;
//output the word
WriteLn(s);
//let's separate the posts
WriteLn('*****************************');
//let's wait 1 sec in 1 out of 6 seconds to not cause laag
case Random(6) of
5: Wait(1);
end;
end;
begin
for i := 0 to (HowMany - 1) do
PostRandomStuff;
end.
2008-05-17 10:07:55
From: Hy71194
It tis not wrong section…
2008-05-17 10:08:02
From: Hy71194
It tis not wrong section…
2008-05-17 10:11:00
2008-05-17 10:19:51
2008-05-17 10:20:47
2008-05-17 10:30:07
From: Hermpie
Gratzz!!!!
up to 10k!!!
2008-05-17 10:39:50
2008-05-17 10:56:17
From: Sp0rky
/cry cry cry =P
Yes it is.
http://www.srl-forums.com/forum/celebrations-forum-f283.html
You just want all the public to know >_> Attention whore.
From: Lorax
omfg
program hy;
const
HowMany = 5000;
var
i: Integer;
procedure PostRandomStuff;
var
c: Integer;
s: string;
begin
//301 character posts
for c := 0 to 300 do
begin
//Add a random char from the alphabete a-z (97-122)
//Remember that Random(2) = 0 or 1
s := s + Chr(Random(122 - 97) + 97 + 1);
//Let's make the average word 6 chars long
if ( Random(6) = 4 ) then
s := s + ' ';
end;
//output the word
WriteLn(s);
//let's separate the posts
WriteLn('*****************************');
//let's wait 1 sec in 1 out of 6 seconds to not cause laag
case Random(6) of
5: Wait(1);
end;
end;
begin
for i := 0 to (HowMany - 1) do
PostRandomStuff;
end.
2008-05-17 10:57:48
From: the scar noob
Plz stop the bitching:p lol
But it's true, only the half of them are non-spam I think:p
However, nice!:D
-Tsn.
2008-05-17 11:34:01
2008-05-17 11:41:52
2008-05-17 12:07:59
2008-05-17 12:19:21
From: the scar noob
Plz stop the bitching:p lol
2008-05-17 13:02:19
2008-05-17 13:09:33
2008-05-17 13:24:20
2008-05-17 13:34:42
2008-05-17 13:37:13
2008-05-17 13:44:11
2008-05-17 14:31:31
From: n3ss3s
I got it reseted at 4665 x)
2008-05-17 14:56:00
2008-05-17 17:04:10
2008-05-18 09:58:31
From: infested999
Even this thread is spam :P
2008-05-18 10:21:01
2008-05-18 10:36:01