| … | |
… | |
| 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) { |
