… | |
… | |
2009 | |
2009 | |
2010 | $cf::MAP{$path} = $map |
2010 | $cf::MAP{$path} = $map |
2011 | } |
2011 | } |
2012 | } |
2012 | } |
2013 | |
2013 | |
2014 | sub pre_load { } |
2014 | sub pre_load { } |
2015 | sub post_load { } |
2015 | #sub post_load { } # XS |
2016 | |
2016 | |
2017 | sub load { |
2017 | sub load { |
2018 | my ($self) = @_; |
2018 | my ($self) = @_; |
2019 | |
2019 | |
2020 | local $self->{deny_reset} = 1; # loading can take a long time |
2020 | local $self->{deny_reset} = 1; # loading can take a long time |
… | |
… | |
3283 | |
3283 | |
3284 | $facedata->{version} == 2 |
3284 | $facedata->{version} == 2 |
3285 | or cf::cleanup "$path: version mismatch, cannot proceed."; |
3285 | or cf::cleanup "$path: version mismatch, cannot proceed."; |
3286 | |
3286 | |
3287 | # patch in the exptable |
3287 | # patch in the exptable |
|
|
3288 | my $exp_table = $enc->encode ([map cf::level_to_min_exp $_, 1 .. cf::settings->max_level]); |
3288 | $facedata->{resource}{"res/exp_table"} = { |
3289 | $facedata->{resource}{"res/exp_table"} = { |
3289 | type => FT_RSRC, |
3290 | type => FT_RSRC, |
3290 | data => $enc->encode ([map cf::level_to_min_exp $_, 1 .. cf::settings->max_level]), |
3291 | data => $exp_table, |
|
|
3292 | hash => (Digest::MD5::md5 $exp_table), |
3291 | }; |
3293 | }; |
3292 | cf::cede_to_tick; |
3294 | cf::cede_to_tick; |
3293 | |
3295 | |
3294 | { |
3296 | { |
3295 | my $faces = $facedata->{faceinfo}; |
3297 | my $faces = $facedata->{faceinfo}; |