@Aymargeddon::ISA = qw(Game);
sub new{
- my ($class,$game,$user,$db,$lang) = @_;
+ my ($class,$game,$user,$db,$lang) = @_; #TODO: $lang not used here?
my $self = Game->new($game,$user,$db);
my $self = shift;
unless (exists $self->{-map}){
+ # TODO: HOME dupplication correct?
$self->{-map} = $self->read_map("TERRAIN,HOME,OCCUPANT,TEMPLE,PLAGUE,HOME");
}
return $self->{-map};