… | |
… | |
3530 | # patch in the exptable |
3530 | # patch in the exptable |
3531 | my $exp_table = $enc->encode ([map cf::level_to_min_exp $_, 1 .. cf::settings->max_level]); |
3531 | my $exp_table = $enc->encode ([map cf::level_to_min_exp $_, 1 .. cf::settings->max_level]); |
3532 | $facedata->{resource}{"res/exp_table"} = { |
3532 | $facedata->{resource}{"res/exp_table"} = { |
3533 | type => FT_RSRC, |
3533 | type => FT_RSRC, |
3534 | data => $exp_table, |
3534 | data => $exp_table, |
3535 | hash => (Digest::MD5::md5 $exp_table), |
3535 | hash => (cf::face::mangle_chksum Digest::MD5::md5 $exp_table), |
3536 | }; |
3536 | }; |
3537 | cf::cede_to_tick; |
3537 | cf::cede_to_tick; |
3538 | |
3538 | |
3539 | { |
3539 | { |
3540 | my $faces = $facedata->{faceinfo}; |
3540 | my $faces = $facedata->{faceinfo}; |