| Jogos :: Othello. Jogos :: Othello é uma extensão Perl para modelar um jogo de Otello. |
Baixe Agora |
Jogos :: Othello. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Daniel J. Wright
- Site do editor:
- http://search.cpan.org/~dwright/
Jogos :: Othello. Tag
Jogos :: Othello. Descrição
Jogos :: Othello é uma extensão Perl para modelar um jogo de Otello. Jogos :: Otelo é uma extensão Perl para modelar um jogo de Otelo.synopsis Use jogos :: Othello; Meus $ Game = Games :: Othello-> Novo (); Enquanto (! Game-> Over) {Printf "É atualmente% s se move", ($ jogo-> whos_move eq 'B')? 'Preto branco'; Meus @POSSible_Moves = Valores $ Game-> Possível_Moves (); if (! @POSSBIB_MOVES) {Imprimir "Você não tem movimentos disponíveis, você deve passar. $ Game-> pass_to_opponent;} else {foreach (my mource) @POSssible_Moves) {printf" você vai tirar% d dos chips de seus oponentes se Você coloca seu chip em% d,% d ", escalar @ {$ movo -> {chips}}, $ movo -> {x}, $ movo -> {y};}}}};}}}};}}}}}; get_move (); meu $ flipped = $ game-> place_chip ($ locx, $ locex);} my $ layout = $ jogo-> chip_layout (); foreach my $ row (@ $ layout) {foreach $ ROW) {Printf '% 3S', ($ POS EQ 'B')? 'B' # Negro ocupado quadrado.: ($ POS EQ 'W')? 'W' # # White ocupou quadrado.: '' # un -cupado quadrado.} Imprimir "NN";}} meu ($ black_score, $ White_Score) = $ jogo-> pontuação; requisitos: · Perl.
Jogos :: Othello. Software Relacionado