################
# Area::Tunnel #
################

package Roguelike::Area::Tunnel;

use strict;
use warnings;
use Roguelike::Game;
use Roguelike::Utility;

use Roguelike::Area::Dungeon;
use Roguelike::Area;

sub generate {
  shift;  # We aren't a class.
  my $map = Roguelike::Area::Dungeon->generate(@_);
  # Transform
  transform($map, " ", "#");
  foreach my $y (0 .. $map->height) {
    foreach my $x (0 .. $map->height) {
      $map->{Map}[$y][$x]{Seen} = 1 if $map->{Map}[$y][$x]{_} eq "#";
    }
  }
  $map->refresh;
  return $map;
}

42;
