… | |
… | |
199 | my ($wall_pfx, $wall_dir, $wall_sfx); |
199 | my ($wall_pfx, $wall_dir, $wall_sfx); |
200 | |
200 | |
201 | if ( |
201 | if ( |
202 | !$is_floor |
202 | !$is_floor |
203 | && !$arc->{alive} |
203 | && !$arc->{alive} |
204 | && $arc->{no_pass} |
204 | && $arc->{move_block} eq "all" |
205 | && $path =~ /^(.*_)([0-9A-F])(\.x11.*\.png)$/ |
205 | && $path =~ /^(.*_)([0-9A-F])(\.x11.*\.png)$/ |
206 | ) { |
206 | ) { |
207 | ($wall_pfx, $wall_dir, $wall_sfx) = ($1, hex $2, $3); |
207 | ($wall_pfx, $wall_dir, $wall_sfx) = ($1, hex $2, $3); |
208 | |
208 | |
209 | unless (grep { !-e sprintf "%s%X%s", $wall_pfx, $_, $wall_sfx } 0..15) { |
209 | unless (grep { !-e sprintf "%s%X%s", $wall_pfx, $_, $wall_sfx } 0..15) { |