… | |
… | |
383 | push @ARC, $o; |
383 | push @ARC, $o; |
384 | for (my $m = $o; $m; $m = $m->{more}) { |
384 | for (my $m = $o; $m; $m = $m->{more}) { |
385 | $ARC{$m->{_name}} = $m; |
385 | $ARC{$m->{_name}} = $m; |
386 | } |
386 | } |
387 | |
387 | |
388 | $o->{editor_folder} = $dir; |
388 | $o->{editor_folder} ||= $dir; |
389 | |
389 | |
390 | my $visibility = delete $o->{visibility}; |
390 | my $visibility = delete $o->{visibility}; |
391 | my $magicmap = delete $o->{magicmap}; |
391 | my $magicmap = delete $o->{magicmap}; |
392 | |
392 | |
393 | # find upper left corner :/ |
393 | # find upper left corner :/ |
… | |
… | |
607 | } |
607 | } |
608 | |
608 | |
609 | sub generate_plurals { |
609 | sub generate_plurals { |
610 | # use Lingua::EN::Inflect (); |
610 | # use Lingua::EN::Inflect (); |
611 | # Lingua::EN::Inflect::classical; |
611 | # Lingua::EN::Inflect::classical; |
612 | # Lingua::EN::Inflect::def_noun 'talisman' => 'talismans'; |
612 | # Lingua::EN::Inflect::def_noun '(.*)staff' => '$1staves'; # policy |
613 | # Lingua::EN::Inflect::def_noun '(.*)boots' => '$1boots'; # hack |
613 | # Lingua::EN::Inflect::def_noun '(.*)boots' => '$1boots'; # hack |
614 | # |
614 | # |
615 | # for my $a (@ARC) { |
615 | # for my $a (@ARC) { |
616 | # my $name = $a->{name} || $a->{_name}; |
616 | # my $name = $a->{name} || $a->{_name}; |
617 | # |
617 | # |
618 | # next unless $a->{name_pl}; |
618 | # next unless $a->{name_pl}; |
619 | # |
619 | # next if $a->{invisible}; |
|
|
620 | # next if $a->{is_floor}; |
|
|
621 | # next if $a->{no_pick}; |
620 | # |
622 | # |
621 | # my $test = Lingua::EN::Inflect::PL_N_eq $name, Lingua::EN::Inflect::PL $name; |
623 | # my $test = Lingua::EN::Inflect::PL_N_eq $name, Lingua::EN::Inflect::PL $name; |
622 | # my $pl = $test =~ /^(?:eq|p:.)$/ |
624 | # my $pl = $test =~ /^(?:eq|p:.)$/ |
623 | # ? $name |
625 | # ? $name |
624 | # : Lingua::EN::Inflect::PL $name; |
626 | # : Lingua::EN::Inflect::PL $name; |
625 | # die "$test $pl" if $pl =~ /bootss/;#d# |
|
|
626 | # |
627 | # |
627 | # if ($pl ne $a->{name_pl}) { |
628 | # if ($pl ne $a->{name_pl}) { |
628 | # warn "$a->{_name}: plural differs, $pl vs $a->{name_pl}\n"; |
629 | # warn "$a->{_name}: plural differs, $pl vs $a->{name_pl}\n"; |
629 | # } |
630 | # } |
630 | # } |
631 | # } |