… | |
… | |
65 | "$path/gridmap.regn.png", |
65 | "$path/gridmap.regn.png", |
66 | ], |
66 | ], |
67 | 1 => sub { |
67 | 1 => sub { |
68 | my ($src) = @_; |
68 | my ($src) = @_; |
69 | |
69 | |
70 | my $map = cf::from_json $src->[0]; |
70 | my $map = cf::decode_json $src->[0]; |
71 | |
71 | |
72 | my $size = $map->{tile_w} * $map->{tile_h} * $map->{grid_w} * $map->{grid_h} |
72 | my $size = $map->{tile_w} * $map->{tile_h} * $map->{grid_w} * $map->{grid_h} |
73 | or cf::cleanup "$path/gridmap.meta: empty gridmap?"; |
73 | or cf::cleanup "$path/gridmap.meta: empty gridmap?"; |
74 | |
74 | |
75 | ($map->{arc_data}, $map->{arc_plt}) = load_indexed "$path/gridmap.arch", $size; |
75 | ($map->{arc_data}, $map->{arc_plt}) = load_indexed "$path/gridmap.arch", $size; |