The totally bestest thread ever (for random stuff)
Moderator: Developers
- ShellShocker
- Rust Eater (Senior Member)
- Posts: 3625
- Joined: Thu Jul 24, 2008 6:37 am
- Location: Australia
- ShellShocker
- Rust Eater (Senior Member)
- Posts: 3625
- Joined: Thu Jul 24, 2008 6:37 am
- Location: Australia
- PurpleSquerkle
- Massive Gelfeet (Developer)
- Posts: 3176
- Joined: Wed Jul 23, 2008 4:54 am
- Location: Oakland, CA
- Contact:
- ShellShocker
- Rust Eater (Senior Member)
- Posts: 3625
- Joined: Thu Jul 24, 2008 6:37 am
- Location: Australia
- penguinflyer5234
- Sheep (Developer)
- Posts: 3025
- Joined: Wed Jul 23, 2008 1:39 am
- Location: Best Southwest
- penguinflyer2222
- Queen Penguin (Senior Member)
- Posts: 6614
- Joined: Wed Jul 23, 2008 1:51 am
I know, I did it on purpose. Here, I'll give you guys the code so you guys can reak havoc on other spam posts. Declaring your spam supremacy.
This version is untested, but it should make a better use of the full range of smileys
EDIT: Forgot to mention this is perl
This version is untested, but it should make a better use of the full range of smileys
EDIT: Forgot to mention this is perl
Code: Select all
# Made by Iron
# Created for sheer spamming pleasure...
# V 1.3
# 11/24/2008
use 5.010;
my $iteration = 0;
my $i = 0;
open my $file, '>>', 'spoiler';
print $file "\[spoiler=\"Follow the spoilers to an awesome answer link!\"\]\n";
while ($iteration <= 1337){
print $file "\[spoiler\]\n";
$iteration++;
print $file "Spoiler #: $iteration \n\n\n";
while($i <= (100)){
use Switch;
my $random = int(rand(20));
switch($random) {
case 0 {print $file ":D"}
case 1 {print $file ":)"}
case 2 {print $file ":("}
case 3 {print $file ":o"}
case 4 {print $file ":shock:"}
case 5 {print $file ":?"}
case 6 {print $file "8)"}
case 7 {print $file ":lol:"}
case 8 {print $file ":x"}
case 9 {print $file ":P"}
case 10 {print $file ":oops:"}
case 11 {print $file ":cry:"}
case 12 {print $file ":evil:"}
case 13 {print $file ":twisted:"}
case 14 {print $file ":roll:"}
case 15 {print $file ":wink:"}
case 16 {print $file ":!:"}
case 17 {print $file ":?:"}
case 18 {print $file ":idea:"}
case 19 {print $file ":arrow: "}
else {print $file ":)"}
}
$i++;
}
$i = 0;
}
$iteration = 0;
print $file "\[spoiler=\"The answer.\"\]";
print $file "47";
print $file "\[/spoiler\]";
while ($iteration <= 1337){
print $file "\[/spoiler\]\n";
$iteration++;
}
print $file "\[/spoiler\]";
close $file;
print "Finished check your file!"
my $loser = <>;
Last edited by Iron on Mon Nov 24, 2008 11:05 pm, edited 1 time in total.
Maxaxle -8
The penguins, -6
PurpleSquerkle, -6/7/8?
Iron, -5
Ben Urban -5
Scytale, +1
Clonkinator, +1
Chainsaw, +2
Zefz, +2
The penguins, -6
PurpleSquerkle, -6/7/8?
Iron, -5
Ben Urban -5
Scytale, +1
Clonkinator, +1
Chainsaw, +2
Zefz, +2
- Ben Urban
- Cobol (Esteemed member)
- Posts: 829
- Joined: Sat Oct 04, 2008 10:49 pm
- Location: Maryland, USA
- Contact:
Leocrattas are very painful when you first meet them. They also tend to come in packs, and they're much faster than you are.Chainsaw wrote:Oh, by the way, I was killed by something called a "Leprechotta" or something...
That thing attacked me like 5-6 times at a row, even though I was extra fast! WTF?!
A meager 17.5k points this time...
Thanks to penguinflyer2222 for the avatar, and to penguinflyer5234 for hosting it.