… | |
… | |
202 | |
202 | |
203 | my $arc = read_arch "$dir/$file"; |
203 | my $arc = read_arch "$dir/$file"; |
204 | for my $o (values %$arc) { |
204 | for my $o (values %$arc) { |
205 | push @ARC, $o; |
205 | push @ARC, $o; |
206 | |
206 | |
|
|
207 | $o->{editor_folder} = $dir; |
|
|
208 | |
207 | my $visibility = delete $o->{visibility}; |
209 | my $visibility = delete $o->{visibility}; |
208 | my $magicmap = delete $o->{magicmap}; |
210 | my $magicmap = delete $o->{magicmap}; |
209 | |
211 | |
210 | # find upper left corner :/ |
212 | # find upper left corner :/ |
211 | # omg, this is sooo broken |
213 | # omg, this is sooo broken |
… | |
… | |
312 | } |
314 | } |
313 | |
315 | |
314 | { |
316 | { |
315 | open my $fh, ">:utf8", "$DATADIR/archetypes~" |
317 | open my $fh, ">:utf8", "$DATADIR/archetypes~" |
316 | or die "$DATADIR/archetypes~: $!"; |
318 | or die "$DATADIR/archetypes~: $!"; |
|
|
319 | substr $_->{editor_folder}, 0, length $path, "" for @ARC; |
317 | print $fh Crossfire::archlist_to_string \@ARC; |
320 | print $fh Crossfire::archlist_to_string \@ARC; |
318 | } |
321 | } |
319 | |
322 | |
320 | { |
323 | { |
321 | while (my ($k, $v) = each %FACEINFO) { |
324 | while (my ($k, $v) = each %FACEINFO) { |