… | |
… | |
568 | |
568 | |
569 | my $inv = delete $a{inventory}; |
569 | my $inv = delete $a{inventory}; |
570 | my $more = delete $a{more}; # arches do not support 'more', but old maps can contain some |
570 | my $more = delete $a{more}; # arches do not support 'more', but old maps can contain some |
571 | my $anim = delete $a{anim}; |
571 | my $anim = delete $a{anim}; |
572 | |
572 | |
|
|
573 | if ($a{_atype} eq 'object') { |
|
|
574 | $str .= join "\n", "anim", @$anim, "mina\n" |
|
|
575 | if $anim; |
|
|
576 | } |
|
|
577 | |
573 | my @kv; |
578 | my @kv; |
574 | |
579 | |
575 | for ($a{_name} eq "map" |
580 | for ($a{_name} eq "map" |
576 | ? @Crossfire::FIELD_ORDER_MAP |
581 | ? @Crossfire::FIELD_ORDER_MAP |
577 | : @Crossfire::FIELD_ORDER) { |
582 | : @Crossfire::FIELD_ORDER) { |
… | |
… | |
621 | } |
626 | } |
622 | } |
627 | } |
623 | |
628 | |
624 | if ($inv) { |
629 | if ($inv) { |
625 | $append->($_) for @$inv; |
630 | $append->($_) for @$inv; |
626 | } |
|
|
627 | |
|
|
628 | if ($a{_atype} eq 'object') { |
|
|
629 | $str .= join "\n", "anim", @$anim, "mina\n" |
|
|
630 | if $anim; |
|
|
631 | } |
631 | } |
632 | |
632 | |
633 | $str .= "end\n"; |
633 | $str .= "end\n"; |
634 | |
634 | |
635 | if ($a{_atype} eq 'object') { |
635 | if ($a{_atype} eq 'object') { |