Free bingo software for linux

Games::Bingo::Card is a helper class for Games::Bingo.

SYNOPSIS

use Games::Bingo::Card;

my $b = Games::Bingo-E new(90);
my $card = Games::Bingo::Card-E new($b);

my $bingo = Games::Bingo-E new(90);
$card-E validate($bingo);

use Games::Bingo::Print::Card;

my $p = Games::Bingo::Print::Card-E new();
$p-E populate();

The Games::Bingo::Card class suits the simple purpose of being able to generate bingo cards and validating whether they are valid in during a game where a player indicate victory.

It is also used by Games::Bingo::Print to hold the generated bingo cards before they are printed.

Games::Bingo::Bot is a simple class holding IRC related methods for bingo.

SYNOPSIS

use Games::Bingo::Bot;

use constant ANY => 1; use constant PUBLIC => 2; use constant PRIVATE => 3;

my $gbb = Games::Bingo::Bot->new();

my $sub = $gbb->{commands}->{$msg});

my ($type, $answer) = &$sub($gbb, $nick);

This module contains all the commands supported by the Games::Bingo::Bot IRC bot (see the script in the bin directory).

The Games::Bingo::Bot class (this) and the script mentioned above is a complete IRC setup for playing Bingo, using the Games::Bingo module.

These are the bingobot commands:

help - this message

play - join a game

stats - get the current statistics of the running game

pull - pull the next number

bingo - you indicate to the bot that you have bingo

pulled - shows you what number have been pulled

show - lists the numbers on your plate

The command are described below in detail (SEE COMMANDS).

Not implemented yet (SEE TODO):

auto - enables automode (automatic number pulling)

noauto - disables automode

All commands can be sent into the channel or send as private messages to the bot. The bot can repond as both of these ways aswell. The reponses are sent as follows:

help, show and all errors are always private messages

pull and bingo are always public

play, pulled, stats, auto, noauto depends on how you query

As long as the bot is online a game is running.

Games::Bingo::ColumnCollection is a Perl module with a collection class for holding columns.

SYNOPSIS

my $col = Games::Bingo::ColumnCollection-E new();

my $c = Games::Bingo::Column-E new(0, [1, 2, 3, 4, 5, 6, 7, 8, 9]);

$col-E add_column($c1);

my $d = $col-E get_column(1);

my $e = $col-E get_random_column();

The ColumnCollection is used when building the bingo cards and is a temporary data structure for holding object of the class Column.

The class is an encapsulated array, which is 1 indexed.

Wordplay is a game for Unix/GTK+. Wordplay is primarily aimed at Scrabble players looking to improve their anagramming and hooking skills, but can also be played for fun. The dictionary used is the full TWL98 word list (used for tournaments and club play in the U.S. and Canada).

Three types of games are available:

Word Mine: Find all words of a certain length which can be formed from the letters of a larger word. Letters may be repeated only as often as they appear in the given word.
Word Hooks: Find all words which "hook" off a given word: forming a new word by adding a letter to the beginning or end.
Bingos: Find all anagrams of the given (seven or more) letters. In a Scrabble game, playing a word which uses all letters on your rack is a bingo, netting you a 50-point bonus. The bingo puzzles included with wordplay comprise the 500 most statistically likely bingo-able 7-letter and 8-letter combinations, based on the standard Scrabble bag letter distribution.

Thread::Apartment is an apartment threading wrapper for Perl objects.

SYNOPSIS

package MyClass;

use Thread::Apartment::Server;
use base qw(Thread::Apartment::Server);

sub new {
#
# the usual constructor
#
}
#
# mark some methods as simplex
#
sub get_simplex_methods {
return { bar => 1 };
}
#
# mark some methods as urgent
#
sub get_urgent_methods {
return { bingo => 1 };
}

sub foo {
#
# do something
#
}

sub bar {
#
# do something else
#
}

sub bingo {
print "BINGO!n";
}

1;

#
# create pool of 20 apartment threads
#
Thread::Apartment->create_pool(AptPoolSize => 20);

my $apt = Thread::Apartment->new(
AptClass => MyClass, # class to install in apartment
AptTimeout => 10, # timeout secs for TQD responses
AptRequire => { # classes to require into the thread
This::Class => 1.234,
That::Class => 0.02
},
AptParams => @params_for_MyClass) || die $@;

my $result = $apt->foo(@params);
die $@ unless $result;
#
# bar is simplex
#
$apt->bar(@params);

Thread::Apartment provides an apartment threading wrapper for Perl classes. "Apartment threading" is a method for isolating an object (or object hierarchy) in its own thread, and providing external interfaces via lightweight client proxy objects. This approach is especially valuable in the Perl threads environment, which doesnt provide a direct means of passing complex, nested structure objects between threads, and for non-threadsafe legacy object architectures, e.g., Perl/Tk.

By using lightweight client proxy objects that implement the Thread::Queue::Queueable interface, with Thread::Queue::Duplex objects as the communication channel between client proxies and apartment threads (or between threads in general), a more thread-friendly OO environment is provided, ala Java, i.e., the ability to pass arbitrary objects between arbitrary threads.