view release on metacpan or  search on metacpan

bin/cfmap-cavehify  view on Meta::CPAN

   cave18 => 1+2+4+8,
   cave19 => 1+2+4+8,
   cave20 => 1+2+4+8,
   cave21 => 0,
   cave22 => 1+2+4+8,
   cave23 => 1+2+4+8,
   cave24 => 1+2+4+8,
   cave25 => 1+2+4+8,
);

sub xy($$) {
   my ($x, $y) = @_;

   $x >= 0 && $x < $map->{width}
      && $y >= 0 && $y < $map->{height}
      ? $cols->[$_[0]][$_[1]]
      : undef
}

# on-map, not "blocked", has floor
sub nonblocked($$) {