| … | |
… | |
| 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) { |
