#!/usr/local/bin/perl
require "BrunchingHTML.pl";
setup_brunching_vars(
"author" => "fs",
"section" => "toys",
"title" => "The Wrestling Move Generator",
"s_title" => "wrestlingmoves",
"revision" => 1,
);
@interjection = (
'Ha!',
'Oh, yeah!',
'Loser!',
'Yeah, boy!',
'Hell yeah!',
'Better give up while you still can!',
'Damn straight!',
'Kick ass!',
'Bam!',
);
@invitation = (
'Taste my',
'Feel the wrath of the',
'You can\'t get away from my',
'The last thing you\'ll feel will be the',
'Eat',
'How \'bout a little',
'Nobody can stop the',
'There\'s a new definition of pain: The',
'There\'s no escaping my',
);
@firstdesc = (
'Stone-Cold',
'Double',
'Reverse',
'Overhead',
'Spinning',
'Running',
'Cross',
'Flying',
'Sweet',
'Scorpion'
);
@seconddesc = (
'Death',
'Leg',
'Dragon',
'Mandible',
'Chin',
'Money',
'Doomsday',
'Power',
'Side',
'Arm',
'Head',
'Spine',
'Torture',
'Face',
'Elbow',
'Heel',
'Tombstone'
);
@sport = (
'Stunner',
'Device',
'Music',
'Slam',
'Plunge',
'Shot',
'Dive',
'Piledriver',
'Splash',
'Drop',
'Bomb',
'Lock',
'Kick',
'Claw',
'Sleeper',
'Fist'
);
srand;
$rand = rand 4;
if ($rand <= 1) {
$output =
splice(@interjection, rand @interjection, 1) . " "
. splice(@invitation, rand @invitation, 1) . "
"
. splice(@firstdesc, rand @firstdesc, 1) . " "
. splice(@seconddesc, rand @seconddesc, 1) . " "
. splice(@sport, rand @sport, 1) . "!\n";
} elsif ($rand <= 2) {
$output =
splice(@invitation, rand @invitation, 1) . "
"
. splice(@firstdesc, rand @firstdesc, 1) . " "
. splice(@seconddesc, rand @seconddesc, 1) . " "
. splice(@sport, rand @sport, 1) . "!
"
. splice(@interjection, rand @interjection, 1) . "\n";
} elsif ($rand <= 3) {
$output =
splice(@invitation, rand @invitation, 1) . "
"
. splice(@seconddesc, rand @seconddesc, 1) . " "
. splice(@sport, rand @sport, 1) . "!
"
. splice(@interjection, rand @interjection, 1) . "\n";
} else {
$output =
splice(@invitation, rand @invitation, 1) . "
"
. splice(@firstdesc, rand @firstdesc, 1) . " "
. splice(@firstdesc, rand @firstdesc, 1) . " "
. splice(@seconddesc, rand @seconddesc, 1) . " "
. splice(@sport, rand @sport, 1) . "!
"
. splice(@interjection, rand @interjection, 1) . "\n";
}
print &brunching_header;
print <
EOFILE
print &brunching_footer;
exit;