Games::Blackjack 0.04

Games::Blackjack is a Perl module with Blackjack Utility Classes. SYNOPSIS use Games::Blackjack; # Create new shoe of cards my $shoe = Games::Blackjack::Shoe->new(nof_decks => 4); # Create two hands, player/dealer my $player = Games::Blackjack::Hand->new(shoe => $shoe); my $dealer = Games::Blackjack::Hand->new(shoe => $shoe); # Two dealer cards $dealer->draw(); print "Dealer: ", $dealer->as_string(), "n"; $dealer->draw(); # 2nd card not shown $player->draw(); $player->draw(); print "Player: ", $player->as_string, "(", $player->count_as_string, ")n"; # Lets assume player decides to stand. Dealers turn. # Dealer plays Las Vegas rules while(!$dealer->busted() and $dealer->count("soft") < 17) { $dealer->draw(); } # Show winner (-1: Dealer, 1: Player, 1.5: Player Blackjack) print "Player score: ", $player->score($dealer), "n";.

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Blackjack,  Blackjack Utility Classes,  Dealer,  Draw,  Gamesblackjack,  Libraries,  Perl Module,  Player,  Programming,  Shoe,  Utility
Users rating:	0/10