Select Code to Download

sub random_alignment {
  my $type = shift;
...
  elsif ($type eq 'lawful_vs_chaotic') {
    return $lawful_vs_chaotic[rand @lawful_vs_chaotic];
  }

sub random_alignment
{
...
  if ($type eq 'lawful_vs_chaotic') {
    return $lawful_vs_chaotic[rand @lawful_vs_chaotic];
    }

sub random_alignment
{
...
  $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 @law
+ful_vs_chaotic];