Juegos :: Tarjetas :: Puente :: Caucho

Objeto para Puente (juego de cartas) Puntuación de goma
Descargar ahora

Juegos :: Tarjetas :: Puente :: Caucho Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • David Westbrook
  • Sitio web del editor:
  • http://search.cpan.org/~davidrw/

Juegos :: Tarjetas :: Puente :: Caucho Etiquetas


Juegos :: Tarjetas :: Puente :: Caucho Descripción

Objeto para el puente (juego de cartas) puntuación de goma Juegos :: Tarjetas :: Puente :: Rubber es un objeto para el puente (juego de cartas) Scoring.Synopsisthis Módulo proporciona una clase para crear objetos de goma de puentes, incluidos los resultados y la puntuación y el estado actual de la caucho. Usa Juegos :: Tarjetas :: Puente :: Caucho; Sub Show_Score {My $ Rubber = Shift; Printf "Totales (arriba / abajo): nosotros =% d /% d ellos =% d /% d ", $ Caucho-> We_Above, $ Rubber-> We_Below, $ Rubber-> ellos_above, $ caucho-> ellos_below; Printf" Piernas: Nosotros =% D ellos =% D ", $ Rubber-> we_leg, $ caucho-> ellos_leg; vul: vul: nosotros =% d =% d ", $ Rubber-> We_Vul, $ Rubber-> ellos_vul; printf" == completar == Nosotros:% D ellos:% d ", $ Rubber-> We_Score, $ Rubber-> ellos_score si $ caucho-> complete;} My $ Rubber = Juegos :: Tarjetas :: Puente :: Rubber-> Nuevo; Show_Score ($ Rubber); Foreach My $ opts ( {dirección => 'nosotros', triunfo => 'h', oferta => '2', hecha => '4'}, {dirección => '' ellos ', triunfo =>' s ', oferta =>' 4 ', abajo =>' 2 ', dbl => 1}, {dirección =>' ellos ', triunfo =>' n ', oferta =>' 3 ', Hecho =>' 4 '}, {dirección =>' Ellos ', Trump =>' s ', oferta =>' 3 ', hechos =>' 3 '}, {dirección =>' ellos ', triunfo =>' d ', oferta =>' 2 ', abajo => '2'}, {dirección => 'nosotros', triunfo => 'h', oferta => '6', hecha => '7', dbl => 1}, {dirección => 'ellos', triunfo = > 'N', oferta => '1', hecha => '2'}, {dirección => 'nosotros', trump => 'c', oferta => '3', hecha => '3'}, {dirección => 'ellos', triunfo => 'h', oferta => '3', hecha => '3'},) {$ caucho-> contrato (% $ opts); show_score ($ caucho);} Requisitos: · Perl


Juegos :: Tarjetas :: Puente :: Caucho Software relacionado