# # This file is part of Games-Risk # # This software is Copyright (c) 2008 by Jerome Quelin. # # This is free software, licensed under: # # The GNU General Public License, Version 3, June 2007 # use 5.010; use strict; use warnings; package Games::Risk::Map::Risk; { $Games::Risk::Map::Risk::VERSION = '3.112820'; } # ABSTRACT: Risk board map use Moose; use Games::Risk::I18n qw{ T }; extends 'Games::Risk::Map'; # -- map builders sub name { "risk" } sub title { T("Risk") } sub author { "Yura Mamyrin" } # -- raw map information sub _raw_continents { return ( # id, name, bonus, color # 0, T('Europe'), 5, blue [1, T("North America"), 5, "yellow"], [2, T("South America"), 2, "red"], [3, T("Europe"), 5, "blue"], [4, T("Africa"), 3, "orange"], [5, T("Asia"), 7, "green"], [6, T("Australia"), 2, "magenta"], ); } sub _raw_countries { return ( # greyscale, name, continent id, x, y, [connections] # 1, T('Alaska'), 1, 43, 67, [ 1,2,3,38 ] [1, T("Alaska"), 1, 43, 67, [2, 3, 38]], [2, T("North West Territory"), 1, 106, 69, [1, 3, 7, 6]], [3, T("Alberta"), 1, 106, 105, [1, 2, 7, 4]], [4, T("Western United States"), 1, 109, 149, [3, 7, 5, 9]], [5, T("Central America"), 1, 118, 205, [4, 9, 10]], [6, T("Greenland"), 1, 258, 35, [2, 7, 8, 14]], [7, T("Ontario"), 1, 152, 107, [2, 3, 4, 6, 8, 9]], [8, T("Quebec"), 1, 206, 110, [6, 7, 9]], [9, T("Eastern United States"), 1, 160, 159, [4, 5, 7, 8]], [10, T("Venezuela"), 2, 164, 237, [5, 11, 12]], [11, T("Peru"), 2, 177, 301, [10, 12, 13]], [12, T("Brazil"), 2, 216, 284, [10, 11, 13, 21]], [13, T("Argentina"), 2, 186, 347, [11, 12]], [14, T("Iceland"), 3, 286, 89, [6, 17, 15]], [15, T("Scandinavia"), 3, 346, 72, [16, 18, 14, 17]], [16, T("Ukraine"), 3, 400, 105, [15, 28, 30, 31, 18, 20]], [17, T("Great Britain"), 3, 289, 118, [14, 18, 19, 15]], [18, T("Northern Europe"), 3, 336, 129, [15, 16, 17, 19, 20]], [19, T("Western Europe"), 3, 300, 163, [17, 18, 20, 21]], [20, T("Southern Europe"), 3, 348, 165, [16, 18, 19, 21, 22, 31]], [21, T("North Africa"), 4, 313, 246, [12, 19, 20, 22, 23, 24]], [22, T("Egypt"), 4, 361, 216, [20, 21, 24, 31]], [23, T("Congo"), 4, 363, 304, [21, 24, 25]], [24, T("East Africa"), 4, 395, 274, [21, 22, 23, 25, 26]], [25, T("South Africa"), 4, 369, 369, [23, 24, 26]], [26, T("Madagascar"), 4, 427, 366, [24, 25]], [27, T("Siberia"), 5, 500, 58, [28, 29, 34, 35, 36]], [28, T("Ural"), 5, 470, 97, [16, 27, 29, 30]], [29, T("China"), 5, 550, 182, [27, 28, 30, 32, 33, 36]], [30, T("Afghanistan"), 5, 457, 150, [16, 28, 29, 31, 32]], [31, T("Middle East"), 5, 410, 194, [16, 22, 30, 32, 20]], [32, T("India"), 5, 496, 222, [29, 30, 31, 33]], [33, T("Siam"), 5, 556, 242, [29, 32, 39]], [34, T("Yakutsk"), 5, 565, 62, [27, 35, 38]], [35, T("Irkutsk"), 5, 554, 107, [27, 34, 36, 38]], [36, T("Mongolia"), 5, 563, 143, [29, 35, 37, 38, 27]], [37, T("Japan"), 5, 632, 139, [36, 38]], [38, T("Kamchatka"), 5, 629, 62, [1, 34 .. 37]], [39, T("Indonesia"), 6, 585, 297, [33, 41, 40]], [40, T("New Guinea"), 6, 651, 294, [39, 41, 42]], [41, T("Western Australia"), 6, 595, 375, [39, 40, 42]], [42, T("Eastern Australia"), 6, 637, 353, [40, 41]], ); } sub _raw_cards { return ( # type, id_country # artillery, 2 # wildcard ["infantry", 1], ["artillery", 2], ["infantry", 3], ["infantry", 4], ["cavalry", 5], ["cavalry", 6], ["cavalry", 7], ["artillery", 8], ["artillery", 9], ["artillery", 10], ["cavalry", 11], ["artillery", 12], ["infantry", 13], ["infantry", 14], ["artillery", 15], ["artillery", 16], ["cavalry", 17], ["cavalry", 18], ["infantry", 19], ["cavalry", 20], ["infantry", 21], ["infantry", 22], ["cavalry", 23], ["artillery", 24], ["artillery", 25], ["infantry", 26], ["artillery", 27], ["cavalry", 28], ["cavalry", 29], ["infantry", 30], ["artillery", 31], ["infantry", 32], ["artillery", 33], ["cavalry", 34], ["infantry", 35], ["artillery", 36], ["infantry", 37], ["cavalry", 38], ["cavalry", 39], ["cavalry", 40], ["artillery", 41], ["infantry", 42], ["joker", undef], ["joker", undef], ); } 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,T("Conquer the continents of ASIA and SOUTH AMERICA.") # 0, 0,0,3,6,*,T("Conquer the continents of EUROPE and AUSTRALIA and a third continent of your choice.") # 0,18,2,0,0,0,T("Occupy 18 countries of your choice and occupy each with at least 2 armies.") # 0,24,1,0,0,0,T("Occupy 24 countries of your choice and occupy each with at least 1 army.") # 1,24,1,0,0,0,T("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.") [ 0, 0, 0, 5, 2, 0, T("Conquer the continents of Asia and South America."),], [ 0, 0, 0, 3, 6, "*", T("Conquer the continents of Europe and Australia and a third continent of your choice."),], [0, 0, 0, 5, 4, 0, T("Conquer the continents of Asia and Africa.")], [ 0, 0, 0, 3, 2, "*", T("Conquer the continents of Europe and South America and a third continent of your choice."),], [ 0, 0, 0, 1, 6, 0, T("Conquer the continents of North America and Australia."),], [ 0, 0, 0, 1, 4, 0, T("Conquer the continents of North America and Africa."),], [ 0, 18, 2, 0, 0, 0, T("Occupy 18 countries of your choice and occupy each with at least 2 armies."),], [ 0, 24, 1, 0, 0, 0, T("Occupy 24 countries of your choice and occupy each with at least 1 army."),], [ 1, 24, 1, 0, 0, 0, T("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."),], [ 2, 24, 1, 0, 0, 0, T("Destroy all of Player2's Troops. If they are yours or they have already been destroyed by another player then your mission is: Occupy 24 countries."),], [ 3, 24, 1, 0, 0, 0, T("Destroy all of Player3's Troops. If they are yours or they have already been destroyed by another player then your mission is: Occupy 24 countries."),], [ 4, 24, 1, 0, 0, 0, T("Destroy all of Player4's Troops. If they are yours or they have already been destroyed by another player then your mission is: Occupy 24 countries."),], [ 5, 24, 1, 0, 0, 0, T("Destroy all of Player5's Troops. If they are yours or they have already been destroyed by another player then your mission is: Occupy 24 countries."),], [ 6, 24, 1, 0, 0, 0, T("Destroy all of Player6's Troops. If they are yours or they have already been destroyed by another player then your mission is: Occupy 24 countries."),], ); } no Moose; __PACKAGE__->meta->make_immutable; 1; =pod =head1 NAME Games::Risk::Map::Risk - Risk board map =head1 VERSION version 3.112820 =head1 DESCRIPTION Risk Board Map by Yura Mamyrin. =head1 AUTHOR Jerome Quelin =head1 COPYRIGHT AND LICENSE This software is Copyright (c) 2008 by Jerome Quelin. This is free software, licensed under: The GNU General Public License, Version 3, June 2007 =cut __END__