Egoboo Community Forum

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 = <>;