… | |
… | |
2839 | or cf::cleanup "$path: version mismatch, cannot proceed."; |
2839 | or cf::cleanup "$path: version mismatch, cannot proceed."; |
2840 | |
2840 | |
2841 | # patch in the exptable |
2841 | # patch in the exptable |
2842 | $facedata->{resource}{"res/exp_table"} = { |
2842 | $facedata->{resource}{"res/exp_table"} = { |
2843 | type => FT_RSRC, |
2843 | type => FT_RSRC, |
2844 | data => $enc->encode ([map cf::level_to_min_exp $_, 0 .. cf::settings->max_level]), |
2844 | data => $enc->encode ([map cf::level_to_min_exp $_, 1 .. cf::settings->max_level]), |
2845 | }; |
2845 | }; |
2846 | cf::cede_to_tick; |
2846 | cf::cede_to_tick; |
2847 | |
2847 | |
2848 | { |
2848 | { |
2849 | my $faces = $facedata->{faceinfo}; |
2849 | my $faces = $facedata->{faceinfo}; |
… | |
… | |
2902 | name => $name, |
2902 | name => $name, |
2903 | %{ $info->{meta} || {} }, |
2903 | %{ $info->{meta} || {} }, |
2904 | }); |
2904 | }); |
2905 | |
2905 | |
2906 | $data = pack "(w/a*)*", $meta, $info->{data}; |
2906 | $data = pack "(w/a*)*", $meta, $info->{data}; |
|
|
2907 | } else { |
|
|
2908 | $data = $info->{data}; |
2907 | } |
2909 | } |
2908 | |
2910 | |
2909 | cf::face::set_data $idx, 0, $data, Digest::MD5::md5 $data; |
2911 | cf::face::set_data $idx, 0, $data, Digest::MD5::md5 $data; |
2910 | cf::face::set_type $idx, $info->{type}; |
2912 | cf::face::set_type $idx, $info->{type}; |
2911 | |
2913 | |