Jeux : : Les cartes est un module de Perl pour des jeux de carte d'écriture et de jeu.

SYNTHÈSE

jeux d'utilisation : : Cartes ;
mon $Rummy = jeux neufs : : Cartes : : Jeu ;

# produire le paquet correct pour un jeu de rami.
mon $Deck = jeux neufs : : Cartes : : Paquet ($Rummy, « paquet ») ;

# le battage le paquet et produisent la pile d'écart
$Deck->shuffle ;
mon $Discard = jeux neufs : : Cartes : : File d'attente « pile d'écart » ;

# distribuer les mains
foreach mon $i (1. 3) {
mon $hand = jeux neufs : : Cartes : : Main « joueur $i » ;
$Deck->give_cards ($hand, 7) ;
$hand->sort_by_value ;
pousser les @Hands, $hand ;
}

# mains d'impression (par exemple « joueur 1 : COMME QS KH de 2C 3C 3H 10D »)
foreach (@Hands) {impression ($_->print (« court »), « n »)}

>give_a_card de $Hands [1] - ($Discard, « 8D ») ; # écart 8 des diamants

Ce module produit des objectifs et des méthodes pour permettre une programmation plus facile des jeux de carte dans le Perl. Il te permet de faire des choses comme produisent des paquets des cartes, ont des piles des cartes, des mains, et d'autres ensembles de cartes, de cartes de virage réceptrices ou de cartes face dessous, et de mouvement d'un jeu à l'autre. Ce qui est joli beaucoup de tout vous avez besoin pour la plupart des jeux de carte.