##########################################################################
#
-# Copyright (c) 2003 Aymargeddon Development Team
+# Copyright (c) 2003-2012 Aymargeddon Development Team
#
-# This file is part of "Last days of Aymargeddon"
-#
-# Aymargeddon is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by the Free
-# Software Foundation; either version 2 of the License, or (at your option)
-# any later version.
-#
-# Aymargeddon is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
-# more details.
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc., 675
-# Mass Ave, Cambridge, MA 02139, USA.
+# This file is part of "Last days of Aymargeddon" - a massive multi player
+# onine game of strategy
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
+# See the GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+#
###########################################################################
#
@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};