Los juegos:: Naipes son un módulo Perl para juegos de naipe y escritura.

SINOPSIS

use Juegos:: Naipes;
mi $Rummy = nuevos Juegos:: Naipes:: Juego;

# Cree la cubierta correcta para un juego de Rami.
mi $Deck = nuevos Juegos:: Naipes:: Cubierta ($Rummy, "Cubierta");

# revuelva la cubierta y cree el montón de descarte
$Deck-> arrastre;
mi $Discard = nuevos Juegos:: Naipes:: Cola "Montón de Descarte";

# Reparta las manos
foreach mi $i (1.. 3) {
mi $hand = nuevos Juegos:: Naipes:: "$i de Jugador de Mano";
$Deck-> give_cards ($hand, 7);
$hand-> sort_by_value;
empuje @Hands, $hand;
}

# imprima manos (p.ej "Jugador 1: COMO 2C 3C 3er 10mo QS KH")
foreach (@Hands) {letra ($ _-> letra ("corto") ", n")}

$Hands [1]-> give_a_card ($Discard, "8vo"); # desechan 8 de diamantes

Este módulo crea objetos y métodos de permitir la programación más fácil de juegos de cartas en Perl. Esto permite que usted haga a las cosas les gusta crean cubiertas de naipes, tienen hemorroides de naipes, manos, y otros juegos de naipes, cara de naipes de vuelta o cara abajo, y naipes de movimiento de un juego al otro. Que es más o menos todo que usted necesita para la mayor parte de juegos de cartas.