Spiele:: Goban ist ein Vorstand für das Spielen gehen, renju, othello, usw.

SYNOPSE

Gebrauch Spiele:: Goban;
mein $board = neue Spiele:: Goban (
Größe => 19,
Spiel => „gehen“,
weißes => „Seigen, gehen“,
schwarzes => „Minoru, Kitani“,
Referent => &Games:: Goban:: Richtlinien:: Gehen,
);

$board->move („Palladium“); $board->move („DD“);
Druck $board->as_sgf;

Dieses ist eine generische Baugruppe für das Handhaben der goban-gegründeten Brettspiele. Theoretisch kann es verwendet werden, um viele der anderen Spiele zu handhaben, die intelligentes Spiel-Format verwenden können, (SGF) aber ich möchte es halten angemessen eingeschränkt, um es einfach zu halten.

Spiele:: Euchre ist ein EuchreKartenspiel für Menschen und Rechner.

SYNOPSE

Meine Spielverpackung einfach laufen lassen:

% euchre.pl

oder Ihre Selbst schreiben:

Gebrauch Spiele:: Euchre;
Gebrauch Spiele:: Euchre:: AI:: Einfach;
Gebrauch Spiele:: Euchre:: AI:: Menschlich;

mein $game = Spiele:: Euchre->new ();
foreach mein $i (1..3) {
$game->setAI ($i, Spiele:: Euchre:: AI:: Simple->new ());
}
$game->setAI (4, Spiele:: Euchre:: AI:: Human->new ());
$game->playGame ();
meine @scores = Sortierung {$b <=> $a} $game->getScores ();
Druck („der Sieger ist“. $game->getWinner () - >getName (). „mit einer Kerbe von“.
„$scores [0] zu $scores [1] N“);

Diese Software implementiert das Kartenspiel von Euchre. Das Spiel gespielt mit vier Spielern, die zwei Teams bestehen. Irgendwelche der vier Spieler können menschliche oder Rechnerspieler sein, aber mehr als einer, der menschlich ist, ist nicht noch unterstützt wohles.

Die Spiele:: Euchre:: Ai-Baugruppe implementiert einen einfachen Rahmen für das Addieren der neuen Kategorien der Mensch-Maschine-Schnittstellen oder der Rechnerkonkurrenten. Recomment I, dass AI-Verfasser Spiele: verwenden: Euchre:: AI:: Einfach (ein WIRKLICH stummer Rechnerkonkurrent) als Ausgangspunkt.
Neben:: Ai-Kategorie und seine Folgeprozeße, dieses Paket implementiert auch die folgenden Kategorien: Spiele:: Euchre:: Team, Spiele:: Euchre:: Spieler und Spiele:: Euchre:: Trick.

Spiele:: Quakeworld:: Abfrage ist eine Kategorie für das Abfragen der QuakeWorld Servers.

SYNOPSE

Gebrauch Spiele:: Quakeworld:: Abfrage;

mein $QWQ = Spiele:: Quakeworld:: Query->new („quake.server.com“, „27500“);
mein %info = $QWQ->getinfo (); # anstatt obsoleted, Gebrauch $qwq->get ("")
Druck „Server verwendet Karte: “. $qwq->get („Karte“). „N“;

Hallo, ist dieses Spiele:: Quakeworld:: Abfrage, eine Perl-Baugruppe. Es ist eine Kategorie, die für abfragendes Quakeworld gebildet (Bebenist 1) Spielservers und Erhalten ihrer Informationen, die Kartenname, Spieler, hostname und usw.

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.

Spiele:: AlphaBeta:: In Position bringen ist eine falsche Stellungskategorie für Gebrauch mit Spielen:: AlphaBeta.

SYNOPSE

mein verpacken:: GamePos;
falsches qw verwenden (Spiele:: AlphaBeta:: Stellung);

Unterseeboot zutreffen t {…}
Vorendpos {…} # wahlweise
Unterseeboot auswerten ot {…}
Vorfindmoves {…}

Pakethauptleitung;
mein $pos = mein:: GamePos->new;
mein $game = Spiele:: AlphaBeta->new ($pos);

Spiele:: AlphaBeta:: In Position bringen ist eine falsche Kategorie für Stellungkategorien, die mit Spielen verwendet werden können:: AlphaBeta. Es übernimmt die meisten seinen Methoden von den Spielen:: Sequentiell:: Stellung; sicherstellen, daß Sie seine Unterlagen lasen.

Diese Kategorie bereitgestellt für Bequemlichkeit tellt. Sie benötigen nicht diese Kategorie, um Spiele zu verwenden:: AlphaBeta. Es ist jedoch auch möglich, diese Kategorie eigenständig zu gebrauchen.

Spiele:: Gehen:: SGF ist eine Perl-Baugruppe, die analysieren kann und Standard zu zergliedern gehen Formatdateien.

SYNOPSE

Gebrauch Spiele:: Gehen:: SGF;
mein $sgf = neue Spiele:: Gehen:: SGF ($sgfdata);
„das Spiel drucken, das auf“ gespielt wird. $sgf->date. „N“;
Druck $sgf->white. „(W) gegen“. $sgf->black. „(B) N“;
Druck „Vorstandgröße: “. $sgf->size. „. Komi: “. $sgf->komi. „N“;

während ($move = $sgf->move ($move_no++)) {
Druck „$move_no: “. $move->move, „N“;
}

Dieses ist eine sehr einfache SGF-Dateisyntaxanalyse, der aktuell begrenzten Funktionalität. Es kann lesen und Stufe durch SGF-Dateien, folgen Varianten, und so weiter. Seine guten genug für das Erhalten der einfachen Statistiken über Spiele von gehen und das Aufbauen der Spiele:: Gehen:: Die Nachrichten einsteigen, welche die Spiele darstellen, die als SGF gelagert werden.

$sgf->move bringt irgendein normale Spiele: zurück: Gehen:: SGF:: Knotenpunkt oder Spiele:: Gehen:: SGF:: Variantenachricht. Sie benehmen sich genau die selben, aber die Variantenachricht hat den zusätzlichen Methoden Mainline () zum des Hauptanschlusses des Spiels, Variante zu erhalten ($n) den ersten Knotenpunkt in der nth Variante und in den Varianten erhalten, um eine Reihe Varianten zurückzuholen. $variation->move, durch Zahlungseinstellung, folgt dem Mainline.

Spiele:: Kerbe ist eine Perl-Baugruppe, zum der Kerbe in den Spielen im Auge zu behalten.

SYNOPSE

Gebrauch Spiele:: Kerbe;

# sind diese drei Werte die Zahlungseinstellung eine, übrigens
Spiele:: Score->default_score (0);
Spiele:: Score->default_step (1);
Spiele:: Score->step_method (Inc.);

# Spieler des Anfangs zwei
mein $player1 = Spiele:: Score->new ();
mein $player2 = Spiele:: Score->new ();

# eine gewinnende Bedingung einstellen
Spiele:: Score->victory_is (Unterseeboot {$_ [0] >= 20});

# und etwas zu tun, wenn es erzielt
Spiele:: Score->on_victory_do (Unterseeboot {Druck „gewonnen!“ });

# Punkte geben den Spielern
$player1->add (2);
$player2->step ();

# ARBEITET Blick auf Abschnitt für mehr Funktionalitäten, wie
Spiele:: Score->invalidate_if (Unterseeboot {$_ [0] > 20});

Spiele:: Kerbe kann Gebrauch sein, einige Spielerpunkte in einem Spiel, unabhängig davon die beginnende Menge der Punkte, des Gewinnens und/oder der Schlussen Bedingungen, des usw. im Auge zu behalten.
Sie liefert einige nützliche Methoden, damit der Benutzer Prüfungswerte nicht halten muß, um zu sehen wenn das gültige theyre, oder wenn der Spielerzustand geändert.

Spiele:: Othello ist eine Perl-Extension für die Formung eines Spiels von Othello.

SYNOPSE

Gebrauch Spiele:: Othello;

mein $game = Spiele:: Othello->new ();

während (! game->over) {
printf „es ist momentan %ss Bewegung“,
($game->whos_move eq B)? Schwarzes, weiß;
meine @possible_moves = Werte $game->possible_moves ();

wenn (! @possible_moves) {
Druck, den „Sie keine erhältlichen Bewegungen haben, Sie, muß passieren.
$game->pass_to_opponent;
} sonst {
foreach (mein $move) @possible_moves) {
printf
„Sie nehmen %d Ihrer Konkurrentenchips, wenn Sie Ihr Chip auf %d, %d“ plazieren,
Scalar @ {$move-> {Chips}}, $move-> {x}, $move-> {o};
}
mein ($locx, $locy) = get_move ();
mein $flipped = $game->place_chip ($locx, $locy);
}

mein $layout = $game->chip_layout ();
foreach mein $row (@$layout) {
foreach mein $pos (@$row) {
printf %3s,
($pos eq B)? B # schwarzes besetztes Quadrat.
: ($pos eq W)? W # weißes besetztes Quadrat.
: # unbesetztes Quadrat.
}
Druck „nn“;
}
}
mein ($black_score, $white_score) = $game->score;

Spiele:: 3D ist ein Paket, das ein Nachrichtensystem enthält für (nicht nur) Spiele 3D.

SYNOPSE

Gebrauch Spiele:: 3D:: Welt;

mein $world = Spiele:: 3D:: World->new ();

$world->save_to_file ($filename);

mein $loaded = Spiele:: 3D:: world->load_from_file ($filename);

mein $thing1 = $world->add (Spiele:: 3D:: Thingy->new (…));
mein $thing2 = $world->add (Spiele:: 3D:: Thingy->new (…));

$world->link ($thing1, $thing2);

Spiele:: 3D:: Welt versieht Sie mit einer Behälterkategorie, die jede Nachricht in Ihrem Spielnachrichtensystem enthält. Dieses sind Haupt- Nachrichten, die Zustände haben, diese Zustände ändern und die Zustände zu anderen Nachrichten verkünden müssen.

Die Spiele:: 3D:: Weltbehälter aktiviert Sie auch, Schnappschüsse Ihres Nachrichtensystems zu sparen und zurückzustellen.

Grundlegende Sachen, dass Sie einwenden, System enthält berechnet von eine Kategorie Rufspielen:: 3D:: Thingy. Diese können körperliche Nachrichten (Tasten, Hebel, Türen, Leuchten usw.) sowie virtuelle Nachrichten (Abzug, Fühler, Links, Markierungen, Schallquellen usw.) darstellen.

Sie können Thingys, entweder direkt oder über Spiele zusammen binden:: 3D:: Links. Die Links haben mehr Merkmale als die direkte Bindung, die unten erklärt.

Dieses Paket versieht Sie auch mit Spielen:: 3D:: Fühler, eine Kategorie für Nachrichten, die Zustandänderungen erfassen und nach ihnen wirken. Oder nicht, abhängig von dem Fühler. Fühler verwendet Haupt-, um für bestimmte Bedingungen zu überwachen und dann zu wirken, wenn sie getroffen. Beispiele sind der Tod einer Nachricht, Werte, die unterhalb eines bestimmten Schwellwerts usw. gehen.

Zustandänderungen transportiert im Nachrichtensystem mit Signalen.

Spiele:: Sequentiell:: In Position bringen ist eine falsche Stellungskategorie für Gebrauch mit Spielen:: Sequentiell.

SYNOPSE

mein verpacken:: GamePos;
falsche Spiele verwenden:: Sequentiell:: Stellung;

Vorinit {…} # vorgebrachter Anfangszustand
Unterseeboot zutreffen t {…}

Pakethauptleitung;
mein $pos = mein:: GamePos->new;
mein $game = Spiele:: Sequential->new ($pos);

Spiele:: Sequentiell:: In Position bringen ist eine falsche Kategorie für Stellungkategorien, die mit Spielen verwendet werden können:: Sequentiell. Diese Kategorie bereitgestellt für Bequemlichkeit tellt; Sie benötigen nicht diese Kategorie, Spiele zu verwenden:: Sequentiell. Es ist auch möglich, diese Kategorie eigenständig zu verwenden.

SYNOPSE

# automatischer Rechner-vusrechner Spielindex
Gebrauch Spiele:: Kontrolleure:: Konstanten;
Gebrauch Spiele:: Kontrolleure:: Vorstand;
Gebrauch Spiele:: Kontrolleure:: BoardTree;

mein $board = neue Spiele:: Kontrolleure:: Vorstand;
mein $color = Weiß;
mein $numMoves = 0;
Druck $board->dump;

während ($board->canColorMove ($color)) {
Schlaf (2);
# 100 Bewegungen für jeden Spieler erlauben
„automatisches sterben gezeichnet“ wenn $numMoves++ == 200;
mein $boardTree = neue Spiele:: Kontrolleure:: BoardTree
($board, $color, 2); # 2 Stufen voran denken
mein $move = $boardTree->chooseBestMove; # oder: chooseRandomMove

$board->transform ($move);
Druck $move->dump, „N“, $board->dump;
$color = ($color == Weiß)? Schwarzes: Weiß;
}

Druck „N“, ($color == Weiß? „Schwarzes“: „Weiß“),“ won.n ";
ABSTRAKTES ^
Spiele:: Kontrolleure ist eine Einstellung Perl-Kategorien, die das Kontrolleurspielspiel implementieren. Einige nationale Richtlinienvarianten unterstützt. Eine grundlegende AI-Heuristik implementiert using den Minimaxalgorithmus. Replay der vorher gespeicherten Spiele unterstützt auch.
BESCHREIBUNG ^
Dieses Paket soll komplette Infrastruktur für das interaktive und automatische Spielen und die Manipulierung der Kontrolleurspiele zur Verfügung stellen. Einige Merkmale implementiert nicht noch.

Spiele:: Bingo:: Karte ist eine Helferkategorie für Spiele:: Bingo.

SYNOPSE

Gebrauch Spiele:: Bingo:: Karte;

mein $b = Spiele:: Bingo-e neu (90);
mein $card = Spiele:: Bingo:: Karte-e neu ($b);

mein $bingo = Spiele:: Bingo-e neu (90);
$card-E validieren ($bingo);

Gebrauch Spiele:: Bingo:: Druck:: Karte;

mein $p = Spiele:: Bingo:: Druck:: Karte-e neu ();
$p-E bevölkern ();

Die Spiele:: Bingo:: Kartenkategorie entspricht dem einfachen Zweck In der Lage sein, Bingokarten festzulegen und Validierung, ob sie innen während eines Spiels gültig sind, in dem ein Spieler Sieg anzeigen.

Sie verwendet auch von Games:: Bingo:: Druck, zum der festgelegten Bingokarten anzuhalten, bevor sie gedruckt.

Spiele:: Experte ist ein einfacher Rahmen für Expertespiele.

SYNOPSE

Gebrauch Spiele:: Experte;

# das klassische Spiel
$mm = Spiele:: Mastermind->new;

# eine Vermutung bilden
$marks = $game->play (qw (O C W R));

# Resultate
Druck „Sie Gewinn! N“ wenn $marks-> [0] == $mm->holes ();

# ist die Spielgeschichte ständig erhältlich
$history = $mm->history ();
$last_turn = $mm->history () - > [- 1];

# das Spiel zurücksetzen
$mm->reset ();

Spiele:: Experte ist ein sehr einfacher Rahmen für laufende Expertespiele.

Spiele:: Gehen:: Dg2ASCII ist eine Perl-Extension, zum der Spiele zu konvertieren:: Gehen:: Diagramme zu den ASCII-Diagrammen.

SYNOPSE

Gebrauch Spiele:: Gehen:: Dg2ASCII
mein $dg2ascii = B new> (Optionen);
mein $ascii = $dg2ascii->convertDiagram ($diagram);

Spiele:: Gehen:: Dg2ASCII Nachricht konvertiert Spiele:: Gehen:: Diagram Nachricht in ASCII-Diagramme.

Spiele:: Gehen:: Dg2Ps ist eine Perl-Extension, zum der Spiele zu konvertieren:: Gehen:: Diagramme zum Postskriptum.

SYNOPSE

Gebrauch Spiele:: Gehen:: Dg2Ps
mein $dg2ps = B new> (Optionen);
$dg2ps->convertDiagram ($diagram);

Spiele:: Gehen:: Dg2Ps konvertiert Spiele:: Gehen:: Diagram in Postskriptum.

Spiele:: Gehen:: Dg2PDF ist eine Perl-Extension, zum der Spiele zu konvertieren:: Gehen:: Diagramme zu pdf (beweglicher Dokumentaufbau).

SYNOPSE

Gebrauch Spiele:: Gehen:: Dg2PDF
mein $dg2pdf = B new> (Optionen);
$dg2pdf->convertDiagram ($diagram);

Spiele:: Gehen:: Dg2PDF Nachricht konvertiert Spiele:: Gehen:: Diagram Nachricht in eine pdf-Datei.

Spiele:: AlphaBeta:: Reversi ist eine Reversi Stellungkategorie für Gebrauch mit Spielen:: AlphaBeta.

SYNOPSE

mein verpacken:: Reversi;
falsches qw verwenden (Spiele:: AlphaBeta:: Reversi);

# Werkzeugzeichnungsprogramm
Vorabgehobener betrag {…}

Pakethauptleitung;
mein verwenden:: Reversi;
Gebrauch Spiele:: AlphaBeta;

mein ($p, $g);
$p = mein:: Reversi->new;
$g = Spiele:: AlphaBeta->new ($p);

während ($p = $g->abmove) {
$p->draw;
}

Diese Baugruppe implementiert eine Stellungnachricht, die für Gebrauch mit Spielen: geeignet ist: AlphaBeta. Es übernimmt von den Spielen:: AlphaBeta:: Falsche Kategorie in Position bringen, also sicher sein, seine Unterlagen zu lesen. Die Methoden, die dort implementiert, nicht beschrieben hier.

Spiele:: Blackjack ist eine Perl-Baugruppe mit Blackjack-Hilfskategorien.

SYNOPSE

Gebrauch Spiele:: Blackjack;

# neuen Schuh der Karten herstellen
mein $shoe = Spiele:: Blackjack:: Shoe->new (nof_decks => 4);

# zwei Hände, Spieler/Händler erstellen
mein $player = Spiele:: Blackjack:: Hand->new (Schuh => $shoe);
mein $dealer = Spiele:: Blackjack:: Hand->new (Schuh => $shoe);

# zwei Händlerkarten
$dealer->draw ();
Druck „Händler: “, $dealer->as_string (), „N“;
$dealer->draw (); # 2. Karte nicht gezeigt

$player->draw ();
$player->draw ();
Druck „Spieler: “, $player->as_string, „(“,
$player->count_as_string, „) N“;

# läßt Spieler annehmen entscheidet zu stehen. Händlerkurve.

# spielt Händler Las- Vegasrichtlinien
während (! $dealer->busted () und
$dealer->count („weich“) < 17) {
$dealer->draw ();
}

# Erscheinensieger (- 1: Händler, 1: Spieler, 1.5: SpielerBlackjack)
Druck „Spielerkerbe: “, $player->score ($dealer), „N“;

Spiele:: Linienschiff - „Sie gesunken meinem Linienschiff!“

SYNOPSE

Gebrauch Spiele:: Linienschiff;

$g = Spiele:: Battleship->new (qw (Gen Aeryk));
$g->add_player (Stephanie);
$winner = $g->play ();
Druck $winner->name (), „Gewinne! N“;

@player_objects = @ {$g->players};

$player_obj = $g->player (Professor Snape);

Spiele:: Linienschiffnachricht darstellt ein Linienschiffspiel zwischen Spielern t. Jedes hat eine Flotte vessles und funktioniert mit einem Paar des Spielens von Rasterfeldern man ist für ihre eigene Flotte und eins für, wo der Feind gesehen worden.

Alles ist eine Nachricht mit Zahlungseinstellung aber mutierbaren Attributen. Spiele dieser Methode können zwei oder mehr Spieler jeden mit einer einzelnen Flotte kundenspezifischen vessles haben. Diese vessles sind recht einfach und Standard im Augenblick…

Ein Spiel kann mit der handlichen Methode des Spiels () oder zur feineren Steuerung gespielt werden, anwenden einzelne Methoden der Spiele:: Linienschiff:: * Baugruppee. Den Verteilungsprüfungsindex für Arbeitscodebeispiele sehen.

Spiel-Server-Startindexprojekt ist ein Startindex, zum der engagierten Spielservers wie Quake3 zu handhaben.

Spiel-Server-Startindexe ist ein Startindex, zum einer großen Vielfalt der Linux eingesetzten Spielservers zu handhaben. Er kann/Anschlag/Wiederanlauf/Verlegenheit eingesetzte Spielservers zu beginnen wie Quake3, Halbwertzeit, Stämme 2, UT2K4, BF1942 und andere.

Er verwendet qstat durch cron, um zu validieren, dass ein Spiel wie erwartet läuft. Wenn ein Spiel nicht wie erwartet läuft, wiederbegonnen das Spiel automatisch vom Index durch cron nnen.

GSSS geschrieben, weil ich eine Methode wünschte, eine Vielzahl der Spiele auf eine Standardart oben zu beginnen. Dann wollte ich auch den Spiele gebliebenen Betrieb sogar nach einem Systemabsturz sicherstellen.

So schrieb ich diesen Perl-Index. Er beginnt Spiele und durch einen cron Job, bleiben sie sicherzustellen Betrieb. Wenn Sie qstat einbauen lassen, kann es auch überprüfen, daß das Spiel wie es ist annehmen, um und nicht in irgendeinem merkwürdigem Zustand zu sein läuft, in dem niemand spielen können.

Wenn das Spiel laufend aber unempfänglich ist, beendet es es und beginnt es wieder. Sie können Bodenoffensiven auch sauber stoppen außerdem.

Spiele unterstützt durch „Spiel-Server-Startindex“:

· Quake2
· Quake3
· RTCW
· Halbwertzeit
· Unwirklich
· UT2K3
· UT2K4
· Stämme 2
· NWN
· BF1942
· UND

Was in diesem Auslösen neu ist:

· Sehr geringfügige Änderungen, geringe readme Änderungen, aufräumen en