| … | |
… | |
| 58 | qw(move_type move_block move_allow move_on move_off move_slow); |
58 | qw(move_type move_block move_allow move_on move_off move_slow); |
| 59 | |
59 | |
| 60 | # same as in server save routine, to (hopefully) be compatible |
60 | # same as in server save routine, to (hopefully) be compatible |
| 61 | # to the other editors. |
61 | # to the other editors. |
| 62 | our @FIELD_ORDER_MAP = (qw( |
62 | our @FIELD_ORDER_MAP = (qw( |
|
|
63 | file_format_version |
| 63 | name attach swap_time reset_timeout fixed_resettime difficulty region |
64 | name attach swap_time reset_timeout fixed_resettime difficulty region |
| 64 | shopitems shopgreed shopmin shopmax shoprace |
65 | shopitems shopgreed shopmin shopmax shoprace |
| 65 | darkness width height enter_x enter_y msg maplore |
66 | darkness width height enter_x enter_y msg maplore |
| 66 | unique template |
67 | unique template |
| 67 | outdoor temp pressure humid windspeed winddir sky nosmooth |
68 | outdoor temp pressure humid windspeed winddir sky nosmooth |
| … | |
… | |
| 225 | ice => 68, |
226 | ice => 68, |
| 226 | stone => 70, |
227 | stone => 70, |
| 227 | stone => 80, |
228 | stone => 80, |
| 228 | cloth => 136, |
229 | cloth => 136, |
| 229 | ironwood => 144, |
230 | ironwood => 144, |
|
|
231 | adamantium => 258, |
| 230 | glacium => 260, |
232 | glacium => 260, |
| 231 | blood => 544, |
233 | blood => 544, |
| 232 | ; |
234 | ; |
| 233 | |
235 | |
| 234 | # object as in "Object xxx", i.e. archetypes |
236 | # object as in "Object xxx", i.e. archetypes |
| … | |
… | |
| 566 | |
568 | |
| 567 | my $inv = delete $a{inventory}; |
569 | my $inv = delete $a{inventory}; |
| 568 | 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 |
| 569 | my $anim = delete $a{anim}; |
571 | my $anim = delete $a{anim}; |
| 570 | |
572 | |
|
|
573 | if ($a{_atype} eq 'object') { |
|
|
574 | $str .= join "\n", "anim", @$anim, "mina\n" |
|
|
575 | if $anim; |
|
|
576 | } |
|
|
577 | |
| 571 | my @kv; |
578 | my @kv; |
| 572 | |
579 | |
| 573 | for ($a{_name} eq "map" |
580 | for ($a{_name} eq "map" |
| 574 | ? @Crossfire::FIELD_ORDER_MAP |
581 | ? @Crossfire::FIELD_ORDER_MAP |
| 575 | : @Crossfire::FIELD_ORDER) { |
582 | : @Crossfire::FIELD_ORDER) { |
| … | |
… | |
| 619 | } |
626 | } |
| 620 | } |
627 | } |
| 621 | |
628 | |
| 622 | if ($inv) { |
629 | if ($inv) { |
| 623 | $append->($_) for @$inv; |
630 | $append->($_) for @$inv; |
| 624 | } |
|
|
| 625 | |
|
|
| 626 | if ($a{_atype} eq 'object') { |
|
|
| 627 | $str .= join "\n", "anim", @$anim, "mina\n" |
|
|
| 628 | if $anim; |
|
|
| 629 | } |
631 | } |
| 630 | |
632 | |
| 631 | $str .= "end\n"; |
633 | $str .= "end\n"; |
| 632 | |
634 | |
| 633 | if ($a{_atype} eq 'object') { |
635 | if ($a{_atype} eq 'object') { |
