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];
  }

##</code><code>##

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];
    }

##</code><code>##

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