Free games bingo card software for linux

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::Column is a Perl module with a column class used for generating bingo cards.

SYNOPSIS

my $c = Games::Bingo::Column-E< gt >new();

foreach my $number(@numbers) {
$c-E< gt >populate($number);
}

my @numbers = qw(1 2 3 4 5 6 7 8 9);

my $c = Games::Bingo::Column-E< gt >new(@numbers);

my $number = $c-E< gt >get_highest_number();

The Column is used when building the bingo cards and is a temporary data structure.

The class has two attributes:

_array
_array is a list of numbers for containment in the class, since the class actually is nothing but an array with a status flag.
label

The label being the group to which the numbers in the array belong.

Games::GuessWord is a guess the letters in a word (ie Hangman).

SYNOPSIS

use Games::GuessWord;

my $g = Games::GuessWord->new(file => "/path/to/wordlist");
print "Score: " . $g->score . "n";
print "Chances: " . $g->chances . "n";
print "Answer: " . $g->answer . "n";
my @guesses = $g->guesses;
$g->guess("t");
# ...
if ($g->won) {
print "You won!n";
$g->new_word;
}

This module is a simple wrapper around a word guessing game. You have to guess the word by guessing letters in the word, and is otherwise known as Hangman.

Games::Goban is a board for playing go, renju, othello, etc.

SYNOPSIS

use Games::Goban;
my $board = new Games::Goban (
size => 19,
game => "go",
white => "Seigen, Go",
black => "Minoru, Kitani",
referee => &Games::Goban::Rules::Go,
);

$board->move("pd"); $board->move("dd");
print $board->as_sgf;

This is a generic module for handling goban-based board games. Theoretically, it can be used to handle many of the other games which can use Smart Game Format (SGF) but I want to keep it reasonably restricted in order to keep it simple.

Games::Score is a Perl module to keep track of score in games .

SYNOPSIS

use Games::Score;

# these three values are the default ones, by the way
Games::Score->default_score(0);
Games::Score->default_step(1);
Games::Score->step_method(inc);

# start two players
my $player1 = Games::Score->new();
my $player2 = Games::Score->new();

# set a winning condition
Games::Score->victory_is( sub { $_[0] >= 20 } );

# and something to do if it is achieved
Games::Score->on_victory_do( sub { print "Won!" } );

# give points to the players
$player1->add(2);
$player2->step();

# look at section FUNCTIONS for more functionalities, such as
Games::Score->invalidate_if( sub { $_[0] > 20 } );

Games::Score can be use to keep track of several players points in a game, regardless of the starting amount of points, winning and/or losing conditions, etc.
It provides several useful methods so that the user doesnt have to keep testing values to see if theyre valid or if the player condition has changed.

Games::Mastermind is a simple framework for MasterMind games.

SYNOPSIS

use Games::Mastermind;

# the classic game
$mm = Games::Mastermind->new;

# make a guess
$marks = $game->play(qw( Y C W R ));

# results
print "You win!n" if $marks->[0] == $mm->holes();

# the game history is available at all times
$history = $mm->history();
$last_turn = $mm->history()->[-1];

# reset the game
$mm->reset();

Games::Mastermind is a very simple framework for running Mastermind games.

Games::GoogleWhack is a Perl module that finds, verifies, and/or submits GoogleWhacks.

SYNOPSIS

use Games::GoogleWhack;

my $googlewhack = Games::GoogleWhack->new();
my $is_googlewhack = $googlewhack->is_googlewhack(foo, bar);

die $googlewhack->errstr if $googlewhack->errstr;

print "Youve found a GoogleWhack! Congrats! :-)n" if $is_googlewhack;

NOTE: THIS MODULE MAKES EXTERNAL CONNECTIONS TO GOOGLE.COM, DICTIONARY.COM, and/or GOOGLEWHACK.COM. IT IS THE USERS RESPONSIBILITY TO ENSURE THAT THEY ARE IN COMPLIANCE WITH ANY RESPECTIVE TERMS OF USE CLAUSES FOR SITE USAGE. THE AUTHOR ASSUMES NO LIABILITY FOR THE USE OR MISUSE OF THIS MODULE.