NAME

Game::Battleship::Player

VERSION

version 0.0602

SYNOPSIS

            

              
              
use Game::Battleship::Player;
my $aaron = Game::Battleship::Player->new(name => 'Aaron');
my $gene  = Game::Battleship::Player->new(name => 'Gene');
print 'Player 1: ', $aaron->name, "\n",
      'Player 2: ', $gene->name,  "\n";
$aaron->strike($gene, 0, 0);
# Repeat and get a duplicate strike warning.
my $strike = $aaron->strike($gene, 0, 0);
print $aaron->grid($gene), "\nThat was a " .
  ( $strike == 1 ? 'hit!'
  : $strike == 0 ? 'miss.'
                 : 'duplicate?' ), "\n";
my $craft_obj = $aaron->craft($id);
            
          

DESCRIPTION

A Game::Battleship::Player object represents a Battleship player complete with fleet and game surface.

PUBLIC METHODS

new

            

              
              
$player => Game::Battleship::Player->new(
    name  => 'Aaron',
    fleet => \@fleet,
    dimensions => [$x, $y],
);
            
          

• id => $STRING

  Computed

• grid => $STRING

  Computed

• life => $STRING

  Computed

• id => $STRING

  Computed

• name => $STRING

  An optional attribute provided to give the player a name.

  If not provided, the string "player_1" or "player_2" is used.

• fleet => [$CRAFT_1, $CRAFT_2, ... $CRAFT_N]

  Array reference of Game::Battleship::Craft objects.

  If not explicitly provided, the standard fleet (with 5 ships) is created by default.

• dimensions => [$WIDTH, $HEIGHT]

  Array reference with the player's grid height and width values.

  If the grid dimensions are not explicitly specified, the standard ten by ten grid is used.

matrix

            

              
              
$grid = $player->matrix;
$grid = $player->matrix($enemy);
            
          

Return the playing grid as a "flush-left" text matrix like this:

            

              
              
. . . . . . . . . .
. . . . . . . . . .
. . . . . . . . . .
. . . S S S . . . .
. . . . . . C . . .
. . . . . A C . . .
. D . . . A C . . B
. D . . . A . . . B
. . . . . A . . . B
. . . . . A . . . B
            
          

strike

            

              
              
$strike = $player->strike($enemy, $x, $y);
            
          

Strike the enemy at the given coordinate and return a numeric value to indicate success or failure.

The player to strike must be given as a Game::Battleship::Player object and the coordinate must be given as a numeric pair.

On success, an "x" is placed on the striking player's "opponent map grid" (a Game::Battleship::Grid object attribute named for the opponent) at the given coordinate, the opponent's "craft grid" is updated by lower-casing the Game::Battleship::Craft object id at the given coordinate, the opponent Game::Battleship::Craft object hits attribute is incremented, the striking player's score attribute is incremented, and a one (i.e. true) is returned.

If an enemy craft is completely destroyed, a happy warning is emitted.

On failure, an "o" is placed on the striking player's "opponent map grid" at the given coordinate and a zero (i.e. false) is returned.

If a player calls for a strike at a coordinate that was already struck, a warning is emitted and a negative one (-1) is returned.

craft

            

              
              
$craft = $player->craft($id);
$craft = $player->craft(id => $id);
$craft = $player->craft(name => $name);
            
          

Return the player's Game::Battleship::Craft object that matches the given argument(s).

If the last argument is not provided the first argument is assumed to be the id attribute.

PRIVATE METHODS

_is_a_hit

Return true or false if another player's strike is successful. That is, return a one if there is a craft at the given coordinate and zero otherwise.

TO DO

Include a weapon argument in the strike method.

Make the grid method honor the game type and return something appropriate.

SEE ALSO

Game::Battleship, Game::Battleship::Craft, Game::Battleship::Grid

AUTHOR

Gene Boggs <gene@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2020 by Gene Boggs.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.