Jogos :: Blackjack. Jogos :: Blackjack é um módulo Perl com classes de utilitário Blackjack.
Baixe Agora

Jogos :: Blackjack. Classificação e resumo

Jogos :: Blackjack. Tag

Módulo Perl. Utilitário BlackJack Utilitário de blackjack Classes de blackjack.

Jogos :: Blackjack. Descrição

Jogos :: Blackjack é um módulo Perl com classes de utilitário Blackjack. Jogos :: Blackjack é um módulo Perl com Classes Utilitário Blackjack.Synopsis Use jogos :: Blackjack; # Criar novo sapato de cartões Meu $ sapato = jogos :: blackjack :: sapato-> novo (nof_decks => 4); # Criar duas mãos, jogador / revendedor meu $ player = jogos :: blackjack :: hand-> novo (sapato => $ sapato); Meu $ Dealer = Games :: Blackjack :: Hand-> New (Shoe => $ sapato); # Dois cartões de revendedor $ Dealer-> desenhar (); Imprimir "Dealer:", $ Dealer-> As_string (), "N"; $ Dealer-> Desenhar (); # 2º cartão não mostrado $ player-> desenhar (); $ player-> desenhar (); Imprimir "Player:", $ player-> As_string, "(", $ player-> count_as_string, ") n"; # Vamos assumir jogador decide ficar de pé. Vire do revendedor. # REVENDEDOR Joga Regras de Las Vegas Enquanto (! $ Dealer-> Busted () e $ Dealer-> Contagem ("Soft") <17) {$ dealer-> Desenhar (); } # Show Winner (-1: Revendedor, 1: Player, 1.5: Player Blackjack) Imprimir "Player Pontuação:", $ player-> Pontuação ($ Dealer), "N"; Requisitos: · Perl.

Jogos :: Blackjack. Software Relacionado