| Juegos :: Othello Juegos :: Othello es una extensión de Perl para modelar un juego de Othello. |
Descargar ahora |
Juegos :: Othello Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Daniel J. Wright
- Sitio web del editor:
- http://search.cpan.org/~dwright/
Juegos :: Othello Etiquetas
Juegos :: Othello Descripción
Juegos :: Othello es una extensión de Perl para modelar un juego de Othello. Juegos :: Othello es una extensión de Perl para modelar un juego de Othello.Synopsis Use Juegos :: Othello; My $ Juego = Juegos :: Othello-> Nuevo (); Mientras (! Juego-> Over) {printf ", es actualmente% S Move", ($ juego-> whos_move eq 'b')? 'blanco negro'; my @possible_moves = valores $ juego-> posibles_moves (); Si (! @Possible_moves) {Imprimir "No tiene movimientos disponibles, debe pasar. $ juego-> pass_to_opponent;} else {forach (my $ muge) @possible_moves) {printf" Tendrá% d de sus oponentes chips si colocas tu chip en% d,% d ", escalar @ {$ mudas -> {chips}}, $ mudas -> {x}, $ mudas -> {y};} mi ($ locx, $ locy) = get_move (); My $ Flipped = $ juego-> Place_chip ($ locx, $ locy);} My $ Layout = $ juego-> chip_layout (); foreach mis $ fila (@ $ suyout) {foreach mis $ pos (@ $ fila) {printf '% 3s', ($ POS EQ 'B')? 'B' # Black ocupó cuadrado.: ($ POS EQ 'W')? 'W' # White Ocupió la Plaza.: '' # ONU - Plaza de la sucesión.} Imprimir "nn";}} mi ($ black_score, $ white_score) = $ juego-> puntuación; Requisitos: · Perl
Juegos :: Othello Software relacionado