Spiele:: Karten ist eine Perl-Baugruppe für Spiele des Schreibens und der Spielkarte.

SYNOPSE

Gebrauch Spiele:: Karten;
mein $Rummy = neue Spiele:: Karten:: Spiel;

# die korrekte Plattform für ein Spiel von Rummy herstellen.
mein $Deck = neue Spiele:: Karten:: Plattform ($Rummy, „Plattform“);

# herstellt Schlurfen die Plattform und den Ausschußstapel t
$Deck->shuffle;
mein $Discard = neue Spiele:: Karten:: Warteschlange „Ausschuss-Stapel“;

# die Hände verteilen
foreach mein $i (1. 3) {
mein $hand = neue Spiele:: Karten:: Hand „Spieler $i“;
$Deck->give_cards ($hand, 7);
$hand->sort_by_value;
@Hands, $hand drücken;
}

# Druckhände (z.B. „Spieler 1: ALS 2C 3C 3H 10D QS KH“)
foreach (@Hands) {Druck ($_->print („kurz“), „N“)}

$Hands [1] - >give_a_card ($Discard, „8D“); # Ausschuß 8 der Diamanten

Diese Baugruppe erstellt Nachrichten und Methoden, um die einfachere Programmierung der Kartenspiele zu erlauben in Perl. Sie erlaubt Ihnen, Sachen wie zu tun herstellt Kartenstapele, hat Stapel der Karten, der Hände und anderer Einstellungen Karten, nach obenkurvekarten oder nach unten gedrehter und Bewegungskarten von einer Einstellung zu anderen. Welches ziemlich genau alles ist, brauchen Sie für die meisten Kartenspiele.