package BDSM::Area::Farm;

use strict;
use warnings;
use include;

use BDSM::Util;

use BDSM::Transform;

# Returns a farm of specified height and width.
sub generate {
  shift;  # We know who we are.
  my ($height, $width) = @_;
  my $map = bdsm_map($height, $width, ".");
  border($map);

  my $x = 5;
  fill($map, [1, $x], [$height - 1, $x], "#");
  $map->{Map}[10][$x]{_} = "H";
  $map->{Map}[10][2]{_} = "M";

  return $map;
}

42;
