File Coverage

blib/lib/Games/Tournament/BlackJack.pm

Criterion	Covered	Total	%
statement	24	43	55.8
branch	0	2	0.0
condition	0	3	0.0
subroutine	8	9	88.8
pod	0	1	0.0
total	32	58	55.1

package Games::Tournament::BlackJack;
# This package is NOT meant to be used with OO syntax.

use 5.006; # a guess, earlier perls may work.
use strict;
use warnings;
use Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(
        run_example_bj_game
);



our $VERSION = '0.01';
$VERSION = eval $VERSION;

# You will probably want to include the following modules
#  when writing a game script, at least until there are
#  better facilities to help you in here.
use Games::Tournament::BlackJack::Shoe;
use Games::Tournament::BlackJack::Game;

# You may also want some player modules
# ExamplePlayer2 is hardcoded to hit on 16 or less, but adjustable.
use Games::Tournament::BlackJack::Player::ExamplePlayer2;

# DealerPlayer plays by dealer rules (hit on soft 17)
use Games::Tournament::BlackJack::Player::DealerPlayer;

our $defaultNumRounds = 100;
our $numRounds = $defaultNumRounds;

# example game configuration, determines the best hard-threshold to use (ExamplePlayer2's strategy)
# Use this code as a template to create other simulations.

sub run_example_bj_game {

  # set number of rounds to play (recommend 100 (very fast) to 100000 (very slow))
  $numRounds = shift || $numRounds || $defaultNumRounds;

  my @players = (
      # investigate best hit threshold for ExamplePlayer2.
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>10),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>11),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>12),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>13),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>14),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>15),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>16),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>17),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>18),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>19),
      new Games::Tournament::BlackJack::Player::ExamplePlayer2('hit_threshold'=>20),
  );


  my $game = new Games::Tournament::BlackJack::Game();
  my $dealer = new Games::Tournament::BlackJack::Player::DealerPlayer();
  $game->addPlayers(@players);

  $game->setDealer($dealer); # this is the actual dealer player.

  # tell game that config is done and it can prepare to run game
  $game->start();

  # run the game
  my $num = 1;
  while ($game->running()) {
    print "\n---playing round $num..---\n";
    $game->playRound();
    if ($num > ($numRounds-1)) {$game->quit();}
    $num++;
  }
  print "\n\n\n";


  # print scores
  my @scores = @{$game->playersScores()};
  foreach (0..$#scores) {
    print "player $_ score: $scores[$_]\n"
  }

}




# more game config and execution functionality to come in future releases

1;
__END__