use 5.010; use strict; use warnings; package Games::Risk::Map::__MODULE_NAME__; # ABSTRACT: __MAP_TITLE__ use Moose; extends 'Games::Risk::Map'; use Locale::Messages qw{ :locale_h bind_textdomain_filter turn_utf_8_on }; use Locale::TextDomain "Games-Risk-Map-__MODULE_NAME__"; use Moose; extends 'Games::Risk::ExtraMaps::Imaginary'; my $domain ="Games-Risk-Map-__MODULE_NAME__"; bindtextdomain $domain, __PACKAGE__->localedir->stringify; bind_textdomain_codeset $domain, "utf-8"; bind_textdomain_filter $domain, sub { turn_utf_8_on($_[0]) }; # -- map builders sub name { "__MAP_NAME__" } sub title { __("__MAP_TITLE__") } sub author { "__MAP_AUTHOR__" } # -- raw map information sub _raw_continents { return ( # id, name, bonus, color # 0, __('Europe'), 5, blue __MAP_CONTINENTS__ ); } sub _raw_countries { return ( # greyscale, name, continent id, x, y, [connections] # 1, __('Alaska'), 1, 43, 67, [ 1,2,3,38 ] __MAP_COUNTRIES__ ); } sub _raw_cards { return ( # type, id_country # artillery, 2 # wildcard __MAP_CARDS__ ); } sub _raw_missions { return ( # id player to destroy, nb coutnry to occupy + min armies, 3 x id of continents to occupy, description # 0, 0,0,5,2,0,__("Conquer the continents of ASIA and SOUTH AMERICA.") # 0, 0,0,3,6,*,__("Conquer the continents of EUROPE and AUSTRALIA and a third continent of your choice.") # 0,18,2,0,0,0,__("Occupy 18 countries of your choice and occupy each with at least 2 armies.") # 0,24,1,0,0,0,__("Occupy 24 countries of your choice and occupy each with at least 1 army.") # 1,24,1,0,0,0,__("Destroy all of PLAYER1's TROOPS. If they are yours or they have already been destroyed by another player then your mission is: Occupy 24 countries.") __MAP_MISSIONS__ ); } no Moose; __PACKAGE__->meta->make_immutable; 1; __END__ =head1 DESCRIPTION __MAP_TITLE__ by __MAP_AUTHOR__.