Spelen:: AlphaBeta:: De positie is een klasse van de basisPositie voor gebruik met Spelen:: AlphaBeta.

SYNOPSIS

verpak Mijn:: GamePos;
gebruiks basis qw (Spelen:: AlphaBeta:: Positie);

sub is van toepassing {…}
sub endpos {…} # facultatief
sub evalueert {…}
sub findmoves {…}

pakket leiding;
mijn $pos = Mijn:: GamePos->new;
mijn $game = Spelen:: AlphaBeta->new ($pos);

Spelen:: AlphaBeta:: De positie is een basisklasse voor positie-klassen die met Spelen kunnen worden gebruikt:: AlphaBeta. Het erft het grootste deel van zijn methodes van Spelen:: Opeenvolgend:: Positie; zorg ervoor u zijn documentatie leest.

Deze klasse wordt verstrekt voor gemak. U hebt deze klasse niet nodig om Spelen te gebruiken:: AlphaBeta. Het is, echter, ook mogelijk om van deze klasse op zijn gebruik te maken.

Spelen:: Ga:: SGF is een module Perl die Norm ontleden en kan ontleden gaat de dossiers van het Formaat.

SYNOPSIS

gebruiks Spelen:: Ga:: SGF;
mijn $sgf = nieuwe Spelen:: Ga:: SGF ($sgfdata);
druk „Spel wordt gespeeld die op“. $sgf->date. „n“;
druk $sgf->white. „(w) versus“. $sgf->black. „(B) n“;
grootte van de druk de „Raad: “. $sgf->size. „. De Komi-Republiek: “. $sgf->komi. „n“;

terwijl ($move = $sgf->move ($move_no++)) {
druk „$move_no: “. $move->move, „n“;
}

Dit is een zeer eenvoudige SGF dossiersyntactische parser, van momenteel beperkte functionaliteit. Het kan en stap door SGF dossiers lezen, variaties volgen, enz. Zijn goed genoeg voor het krijgen van eenvoudige statistieken over spelen van Go, en opbouwende Spelen:: Ga:: Scheep voorwerpen in die die spelen vertegenwoordigen als SGF worden opgeslagen.

$sgf->move keert één van beiden terug normale Spelen:: Ga:: SGF:: Knoop of Spelen:: Ga:: SGF:: Het voorwerp van de variatie. Zij gedragen zich precies het zelfde, maar het variatievoorwerp heeft extra methodesmainline () om de belangrijkste lijn van het spel, de variatie ($n) om de eerste knoop in de nth variatie ertoe te brengen, en de variaties ertoe te brengen om een serie van variaties terug te winnen. $variation->move, door gebrek, zal mainline volgen.

Spelen:: De score is een module Perl om spoor van score in spelen te houden.

SYNOPSIS

gebruiks Spelen:: Score;

# zijn deze drie waarden standaarddegenen, door de manier
Spelen:: Score->default_score (0);
Spelen:: Score->default_step (1);
Spelen:: Score->step_method (n.v.);

# begin twee spelers
mijn $player1 = Spelen:: Score->new ();
mijn $player2 = Spelen:: Score->new ();

# plaats een het winnen voorwaarde
Spelen:: Score->victory_is (sub {$_ [0] >= 20});

# en te doen iets als het wordt bereikt
Spelen:: Score->on_victory_do (sub {Gewonnen druk „!“ });

# geef punten aan de spelers
$player1->add (2);
$player2->step ();

# bekijk sectieFUNCTIES voor meer functionaliteit, zoals
Spelen:: Score->invalidate_if (sub {$_ [0] > 20});

Spelen:: De score kan gebruik zijn om spoor van verscheidene spelerspunten te houden in spel, ongeacht de beginnende hoeveelheid punten, het winnen en/of het verliezen voorwaarden, enz.
Het verstrekt verscheidene nuttige methodes zodat de gebruiker niet moet houden testend waarden om te zien of theyre geldig of of de spelervoorwaarde is veranderd.

Spelen:: Othello is een uitbreiding Perl voor de modellering van een spel van Othello.

SYNOPSIS

gebruiks Spelen:: Othello;

mijn $game = Spelen:: Othello->new ();

terwijl (! game->over) {
printf „het weldra %ss beweging“ is,
($game->whos_move eq B)? witte zwarte;
mijn @possible_moves = waarden $game->possible_moves ();

als (! @possible_moves) {
de druk „u heeft geen beschikbare bewegingen, moet u overgaan.
$game->pass_to_opponent;
} anders {
foreach (mijn $move) @possible_moves) {
printf
„U zult %d van uw tegenstandersspaanders nemen als u uw spaander op %d, %d“ plaatst,
scalair @ {$move-> {spaanders}}, $move-> {x}, $move-> {y};
}
mijn ($locx, $locy) = get_move ();
mijn $flipped = $game->place_chip ($locx, $locy);
}

mijn $layout = $game->chip_layout ();
foreach mijn $row (@$layout) {
foreach mijn $pos (@$row) {
printf %3s,
($pos eq B)? B # Zwarte bezet vierkant.
: ($pos eq w)? W # Wit bezet vierkant.
: # Onbezet vierkant.
}
druk „nn“;
}
}
mijn ($black_score, $white_score) = $game->score;

Spelen:: 3D is een pakket die een objecten systeem voor (niet alleen) bevatten 3D spelen.

SYNOPSIS

gebruiks Spelen:: 3D:: Wereld;

mijn $world = Spelen:: 3D:: World->new ();

$world->save_to_file ($filename);

mijn $loaded = Spelen:: 3D:: world->load_from_file ($filename);

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

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

Spelen:: 3D:: De wereld voorziet u van een containerklasse die elk voorwerp in uw spelobjecten systeem zal bevatten. Dit is hoofdzakelijk voorwerpen die staten hebben, deze staten veranderen en de staten aan andere voorwerpen moeten aankondigen.

De spelen:: 3D:: De container van de wereld laat u toe ook om momentopnamen van uw objecten systeem te bewaren en te herstellen.

De basis dingen dat u bezwaar hebt het systeem bevat worden afgeleid uit een klasse genoemd Spelen:: 3D:: Thingy. Deze kunnen fysieke voorwerpen (knopen, hefbomen, deuren, lichten enz.) evenals virtuele voorwerpen (trekker, sensoren, verbindingen, tellers, geluidsbronnen enz.) vertegenwoordigen.

U kunt Thingys, of direct of via Spelen verbinden:: 3D:: Verbindingen. De verbindingen hebben wat meer eigenschappen dan directe aaneenschakeling, die hieronder worden verklaard.

Dit pakket voorziet u ook van Spelen:: 3D:: Sensor, een klasse voor voorwerpen die de betekenisstaat en handeling op hen verandert. Of niet, afhankelijk van de sensor. De sensoren worden hoofdzakelijk gebruikt om voor bepaalde voorwaarden te letten op en dan te handelen wanneer zij met. zijn. De voorbeelden zijn de dood van een voorwerp, waarden die onder een bepaalde drempel enz. gaan.

De veranderingen van de staat worden vervoerd in het objecten systeem met signalen.

Spelen:: Opeenvolgend:: De positie is een klasse van de basisPositie voor gebruik met Spelen:: Opeenvolgend.

SYNOPSIS

verpak Mijn:: GamePos;
de Spelen van de gebruiksbasis:: Opeenvolgend:: Positie;

sub init {…} # opstellings aanvankelijke staat
sub is van toepassing {…}

pakket leiding;
mijn $pos = Mijn:: GamePos->new;
mijn $game = Spelen:: Sequential->new ($pos);

Spelen:: Opeenvolgend:: De positie is een basisklasse voor positie-klassen die met Spelen kunnen worden gebruikt:: Opeenvolgend. Deze klasse wordt verstrekt voor gemak; u hebt deze klasse niet nodig om Spelen te gebruiken:: Opeenvolgend. Het is ook mogelijk om deze klasse op zijn te gebruiken.

SYNOPSIS

# automatisch computer-vus-computer spelmanuscript
gebruiks Spelen:: Controleurs:: Constanten;
gebruiks Spelen:: Controleurs:: Raad;
gebruiks Spelen:: Controleurs:: BoardTree;

mijn $board = nieuwe Spelen:: Controleurs:: Raad;
mijn $color = Wit;
mijn $numMoves = 0;
druk $board->dump;

terwijl ($board->canColorMove ($color)) {
slaap (2);
# sta 100 bewegingen voor elke speler toe
matrijs „getrokken Automatisch“ als $numMoves++ == 200;
mijn $boardTree = nieuwe Spelen:: Controleurs:: BoardTree
($board, $color, 2); # denk vooruit 2 stappen
mijn $move = $boardTree->chooseBestMove; # of: chooseRandomMove

$board->transform ($move);
druk $move->dump, „n“, $board->dump;
$color = (Wit $color ==)? Zwarte: Wit;
}

druk „n“, (Wit $color ==? „Zwarte“: „Wit“),“ won.n ";
ABSTRACTE ^
Spelen:: De controleurs is een reeks klassen Perl uitvoerend het het spelspel van Controleurs. Verscheidene nationale regelvarianten worden gesteund. Een basisAI heuristiek wordt uitgevoerd gebruikend het Minimax algoritme. Replay van eerder geregistreerde spelen wordt ook gesteund.
BESCHRIJVING ^
Dit pakket is bedoeld om volledige infrastructuur voor het interactieve en automatische spelen en het manipuleren van de spelen van Controleurs te verstrekken. Sommige eigenschappen worden niet nog uitgevoerd.

Spelen:: Bingo:: De kaart is een helperklasse voor Spelen:: Bingo.

SYNOPSIS

gebruiks Spelen:: Bingo:: Kaart;

mijn $b = Spelen:: Nieuw bingo-e (90);
mijn $card = Spelen:: Bingo:: Nieuw kaart-e ($b);

mijn $bingo = Spelen:: Nieuw bingo-e (90);
$card-e bevestigt ($bingo);

gebruiks Spelen:: Bingo:: Druk:: Kaart;

mijn $p = Spelen:: Bingo:: Druk:: Nieuw kaart-e ();
$p-e bevolk ();

De spelen:: Bingo:: De klasse van de kaart past het eenvoudige doel om bingokaarten te kunnen produceren en te bevestigen aan of zij binnen tijdens een spel geldig zijn waar een speler op overwinning wijst.

Het wordt ook gebruikt door Spelen:: Bingo:: Druk om de geproduceerde bingokaarten te houden alvorens zij worden gedrukt.

Spelen:: Het genie is een eenvoudig kader voor de spelen van het Genie.

SYNOPSIS

gebruiks Spelen:: Genie;

# het klassieke spel
$mm = Spelen:: Mastermind->new;

# maak een gissing
$MARKS = $GAME->PLAY (QW (Y C W R));

# resultaten
druk „u wint! n“ als $marks-> [0] == $mm->holes ();

# is de spelgeschiedenis op elk moment beschikbaar
$history = $mm->history ();
$last_turn = $mm->history () - > [- 1];

# stel het spel terug
$mm->reset ();

Spelen:: Het genie is een zeer eenvoudig kader om de spelen van het Genie in werking te stellen.

Spelen:: Ga:: Dg2ASCII is een uitbreiding Perl om Spelen om te zetten:: Ga:: Diagrammen aan de diagrammen van ASCII.

SYNOPSIS

gebruiks Spelen:: Ga:: Dg2ASCII
mijn $dg2ascii = B new> (opties);
mijn $ascii = $dg2ascii->convertDiagram ($diagram);

Spelen:: Ga:: Het voorwerp van Dg2ASCII zet Spelen om:: Ga:: Het voorwerp van het diagram in de diagrammen van ASCII.

Spelen:: Ga:: Dg2Ps is een uitbreiding Perl om Spelen om te zetten:: Ga:: Diagrammen aan PostScript.

SYNOPSIS

gebruiks Spelen:: Ga:: Dg2Ps
mijn $dg2ps = B new> (opties);
$dg2ps->convertDiagram ($diagram);

Spelen:: Ga:: Dg2Ps zet Spelen om:: Ga:: Diagram in PostScript.

Spelen:: Ga:: Dg2PDF is een uitbreiding Perl om Spelen om te zetten:: Ga:: Diagrammen aan PDF (het Draagbare Formaat van het Document).

SYNOPSIS

gebruiks Spelen:: Ga:: Dg2PDF
mijn $dg2pdf = B new> (opties);
$dg2pdf->convertDiagram ($diagram);

Spelen:: Ga:: Dg2PDF zet het voorwerp Spelen om:: Ga:: Het voorwerp van het diagram in een Pdf- dossier.

Spelen:: AlphaBeta:: Reversi is een Reversi positieklasse voor gebruik met Spelen:: AlphaBeta.

SYNOPSIS

verpak Mijn:: Reversi;
gebruiks basis qw (Spelen:: AlphaBeta:: Reversi);

# voer tekeningsroutine uit
sub trekt {…}

pakket leiding;
gebruik Mijn:: Reversi;
gebruiks Spelen:: AlphaBeta;

mijn ($p, $g);
$p = Mijn:: Reversi->new;
$g = Spelen:: AlphaBeta->new ($p);

terwijl ($p = $g->abmove) {
$p->draw;
}

Deze module voert een positie-voorwerp geschikt voor gebruik met Spelen uit:: AlphaBeta. Het erft van de Spelen:: AlphaBeta:: De de basisklasse van de positie, zodat is zeker om zijn documentatie te lezen. De daar uitgevoerde methodes zullen niet hier beschreven worden.

Spelen:: Het blackjack is een module Perl met de Klassen van het Nut van het Blackjack.

SYNOPSIS

gebruiks Spelen:: Blackjack;

# Cre