sub random_alignment {
my $type = shift;
if ($type eq 'parts') {
return $parts[rand @parts];
}
elsif ($type eq 'good_vs_evil') {
return $good_vs_evil[rand @good_vs_evil];
}
elsif ($type eq 'lawful_vs_chaotic') {
return $lawful_vs_chaotic[rand @lawful_vs_chaotic];
}
####
sub random_alignment
{
my $type = shift;
if ($type eq 'parts') {
return $parts[rand @parts];
}
if ($type eq 'good_vs_evil') {
return $good_vs_evil[rand @good_vs_evil];
}
if ($type eq 'lawful_vs_chaotic') {
return $lawful_vs_chaotic[rand @lawful_vs_chaotic];
}
##
##
sub random_alignment
{
my $type = shift;
$type eq "parts" and return $parts[rand @parts];
$type eq "good_vs_evil" and return $good_vs_evil[rand @good_vs_evil];
$type eq "lawful_vs_chaotic" and return $lawful_vs_chaotic[rand @lawful_vs_chaotic];