| … | |
… | |
| 321 | my ($x0, $y0, $w, $h) = @$_; |
321 | my ($x0, $y0, $w, $h) = @$_; |
| 322 | warn "xxx $x0 $y0 $w $h\n";#d# |
322 | warn "xxx $x0 $y0 $w $h\n";#d# |
| 323 | for my $x ($x0 .. $x0 + $w) { |
323 | for my $x ($x0 .. $x0 + $w) { |
| 324 | for my $y ($y0 .. $y0 + $h) { |
324 | for my $y ($y0 .. $y0 + $h) { |
| 325 | |
325 | |
| 326 | warn "cell $x $y\n";#d# |
|
|
| 327 | my $cell = $map->[$x][$y] |
326 | my $cell = $map->[$x][$y] |
| 328 | or next; |
327 | or next; |
| 329 | |
328 | |
| 330 | $cell->[0] = -1; $cell->[2] = 0; $cell->[3] = 0; |
329 | $cell->[0] = -1; $cell->[2] = 0; $cell->[3] = 0; |
| 331 | } |
330 | } |
