Games::Cards::Bridge::RubberObject for Bridge (card game) Rubber scoring | |
Download |
Games::Cards::Bridge::Rubber Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- David Westbrook
- Publisher web site:
- http://search.cpan.org/~davidrw/
Games::Cards::Bridge::Rubber Tags
Games::Cards::Bridge::Rubber Description
Object for Bridge (card game) Rubber scoring Games::Cards::Bridge::Rubber is an object for Bridge (card game) Rubber scoring.SYNOPSISThis module provides a class for creating Bridge rubber objects, including the results and scoring and current state of the rubber. use Games::Cards::Bridge::Rubber; sub show_score { my $rubber = shift; printf "Totals (above/below): We = %d/%d They = %d/%d ", $rubber->we_above, $rubber->we_below, $rubber->they_above, $rubber->they_below; printf " Legs: We = %d They = %d ", $rubber->we_leg, $rubber->they_leg; printf " Vul: We = %d They = %d ", $rubber->we_vul, $rubber->they_vul; printf "==COMPLETE== We: %d They: %d ", $rubber->we_score, $rubber->they_score if $rubber->complete; } my $rubber = Games::Cards::Bridge::Rubber->new; show_score($rubber); foreach my $opts ( { direction => 'we', trump => 'H', bid => '2', made => '4' }, { direction => 'they', trump => 'S', bid => '4', down => '2', dbl => 1 }, { direction => 'they', trump => 'N', bid => '3', made => '4' }, { direction => 'they', trump => 'S', bid => '3', made => '3' }, { direction => 'they', trump => 'D', bid => '2', down => '2' }, { direction => 'we', trump => 'H', bid => '6', made => '7', dbl => 1 }, { direction => 'they', trump => 'N', bid => '1', made => '2' }, { direction => 'we', trump => 'C', bid => '3', made => '3' }, { direction => 'they', trump => 'H', bid => '3', made => '3' }, ){ $rubber->contract( %$opts ); show_score($rubber); } Requirements: · Perl
Games::Cards::Bridge::Rubber Related Software