| … | |
… | |
| 457 | |
457 | |
| 458 | last; |
458 | last; |
| 459 | } |
459 | } |
| 460 | } |
460 | } |
| 461 | |
461 | |
|
|
462 | # remove base classes (by naming scheme, should use something like "baseclass xxx" to inherit |
|
|
463 | @ARC = grep $_->{_name} !~ /^(?:type|class)_/, @ARC; |
|
|
464 | |
| 462 | open my $fh, ">:utf8", "$DATADIR/archetypes~" |
465 | open my $fh, ">:utf8", "$DATADIR/archetypes~" |
| 463 | or die "$DATADIR/archetypes~: $!"; |
466 | or die "$DATADIR/archetypes~: $!"; |
| 464 | print $fh Crossfire::archlist_to_string [sort { $a->{_name} cmp $b->{_name} } @ARC]; |
467 | print $fh Crossfire::archlist_to_string [sort { $a->{_name} cmp $b->{_name} } @ARC]; |
| 465 | } |
468 | } |
| 466 | |
469 | |
