# Module: EightBall. See below for documentation.
# Copyright (C) 2010-2011 Xelhua Development Group, et al.
# This program is free software; rights to this code are stated in doc/LICENSE.
package M::EightBall;
use strict;
use warnings;
use feature qw(switch);
use API::Std qw(cmd_add cmd_del trans);
use API::IRC qw(privmsg notice);
our $ANSWER = 0;

# Initialization subroutine.
sub _init 
{
    # Create the 8BALL and RIGBALL commands.
    cmd_add('8BALL', 0, 0, \%M::EightBall::HELP_8BALL, \&M::EightBall::c_8ball) or return 0;
    cmd_add('RIGBALL', 1, 'cmd.rigball', \%M::EightBall::HELP_RIGBALL, \&M::EightBall::rigball) or return 0;

    # Success.
    return 1;
}

# Void subroutine.
sub _void 
{
    # Delete the 8BALL and RIGBALL commands.
    cmd_del('8BALL') or return 0;
    cmd_del('RIGBALL') or return 0;

    # Success.
    return 1;
}

# Help hashes.
our %HELP_8BALL = (
    'en' => "This command will ask the magic 8-Ball your question. \002Syntax:\002 8BALL <question>",
);
our %HELP_RIGBALL = (
    'en' => "This command will \"rig\" (set) the answer of the next 8-Ball question. \002Syntax:\002 RIGBALL <answer>",
);

# Callback for 8BALL command.
sub c_8ball
{
    my ($src, @argv) = @_;

    if (!defined $argv[0]) {
        notice($src->{svr}, $src->{nick}, trans("Not enough parameters").".");
        return;
    }

    privmsg($src->{svr}, $src->{chan}, "\002Question:\002 ".join(" ", @argv));
    
    my $a = '';
    if (!$ANSWER) {
        my $rn = int(rand(12));
        given ($rn) {
            when (1) { $a = "Yes!"; }
            when (2) { $a = "No!"; }
            when (3) { $a = "Yes... No... Yes... No... No."; }
            when (4) { $a = "Hmm... it seems likely."; }
            when (5) { $a = "Very unlikely."; }
            when (6) { $a = "Heck no!"; }
            when (7) { $a = "Definite yes!"; }
            when (8) { $a = "Magic unavailable. Try again later."; }
            when (9) { $a = "Possibly, I wouldn't count on it though."; }
            when (10) { $a = "Outcome looks bad."; }
            when (11) { $a = "Outcome looks good."; }
            when (12) { $a = "Can't tell now. Maybe another time."; }
            default { $a = "Sorry, but no."; }
        }
    }
    else {
        $a = $ANSWER;
        $ANSWER = 0;
    }

    privmsg($src->{svr}, $src->{chan}, "\002Answer:\002 ".$a);
    
    return 1;
}

# Callback for RIGBALL command.
sub rigball 
{
    my ($src, @argv) = @_;

    # Check for necessary parameters.
    if (!defined $argv[0]) {
        privmsg($src->{svr}, $src->{nick}, trans("Not enough parameters").".");
        return;
    }

    $ANSWER = join(" ", @argv);
    privmsg($src->{svr}, $src->{nick}, "Answer set to: ".$ANSWER);

    return 1;
}


# Start initialization.
API::Std::mod_init('EightBall', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
# build: perl=5.010000

__END__

=head1 NAME

Eightball - A magic eightball module.

=head1 VERSION

 1.00

=head1 SYNOPSIS

 <JohnSmith> !8ball Will I be rich?
 <Auto> Question: Will I be rich?
 <Auto> Answer: Heck no!
 >Auto< rigball Of course!
 <JohnSmith> !8ball Will I be famous?
 <Auto> Question: Will I be famous?
 <Auto> Answer: Of course!

=head1 DESCRIPTION

This module adds the 8BALL and RIGBALL commands, 8BALL is a channel
command for asking the magic 8-Ball a question, RIGBALL is a private
command for setting ("rigging") the 8-Ball's next answer.

=head1 INSTALL

No additonal steps need to be taking to use this module.

=head1 AUTHOR

This module was written by Elijah Perrault.

This module is maintained by Xelhua Development Group.

=head1 LICENSE AND COPYRIGHT

This module is Copyright 2010-2011 Xelhua Development Group.

Released under the same licensing terms as Auto itself.

=cut

# vim: set ai et sw=4 ts=4: