| … | |
… | |
| 317 | push @darkness, [$mx, $my + $mh + $dy + 1, $mw, 1 - $dy]; |
317 | push @darkness, [$mx, $my + $mh + $dy + 1, $mw, 1 - $dy]; |
| 318 | } |
318 | } |
| 319 | |
319 | |
| 320 | for (@darkness) { |
320 | for (@darkness) { |
| 321 | my ($x0, $y0, $w, $h) = @$_; |
321 | my ($x0, $y0, $w, $h) = @$_; |
| 322 | warn "xxx $x0 $y0 $w $h\n";#d# |
|
|
| 323 | for my $x ($x0 .. $x0 + $w) { |
322 | for my $x ($x0 .. $x0 + $w) { |
| 324 | for my $y ($y0 .. $y0 + $h) { |
323 | for my $y ($y0 .. $y0 + $h) { |
| 325 | |
324 | |
| 326 | my $cell = $map->[$x][$y] |
325 | my $cell = $map->[$x][$y] |
| 327 | or next; |
326 | or next; |
