source: trollforge/irc/bots/poly.pl @ 773

#!/usr/bin/perl

# stupid irc bot to rage out autists
# demands roots for a polynomial
# kicks if they get it wrong or run out of time

# XXX needs srs cleaning, but works very well

use warnings;
use strict;

use Math::Polynomial;
use POE;
use POE::Component::IRC::State;
use POE::Component::IRC::Plugin::AutoJoin;
use POE::Component::IRC::Plugin::BotCommand;

my $irc = POE::Component::IRC::State->spawn(Nick     => 'polynomial',
                                                                                        Username => 'polynomial',
                                                                                        Ircname  => 'polynomial',
                                                                                        Server   => 'irc.buttes.org',
                                                                                        Port     => '6667',);

POE::Session->create(package_states => [main => [qw(_start irc_public irc_botcmd_test test_timer)]]);

$poe_kernel->run();

sub _start {
        $irc->plugin_add('Autojoin', POE::Component::IRC::Plugin::AutoJoin->new(Channels => ['#anti']));
        $irc->plugin_add('BotCommand',
                                         POE::Component::IRC::Plugin::BotCommand->new(Commands       => {test => 'lol'},
                                                                                                                                  Addressed      => 0,
                                                                                                                                  Eat            => 1,
                                                                                                                                  Prefix         => '!',
                                                                                                                                  Ignore_unknown => 1));
        $_[HEAP]->{busy}    = 0;
        $_[HEAP]->{nick}    = '';
        $_[HEAP]->{root1}   = 0;
        $_[HEAP]->{root2}   = 0;
        $irc->yield(register => qw(join botcmd_test public));
        $irc->yield('connect');
}

sub irc_botcmd_test {
        if ($_[ARG2] =~ /pynchon/) {return}
        my $nick = (split /!/, $_[ARG0])[0];
        if ($_[HEAP]->{busy} == 0) {
                $_[HEAP]->{channel} = $_[ARG1];
                $_[HEAP]->{nick} = $_[ARG2];
                if ($_[ARG2] =~ /polynomial/) {$irc->yield(kick => $_[ARG1], $nick, "fuck off kid")}
                s/\s+$// for $_[HEAP]->{nick};
                $_[HEAP]->{busy}  = 1;
                $_[HEAP]->{root1} = int(rand(20)) - int(rand(20));
                $_[HEAP]->{root2} = int(rand(20)) - int(rand(20));
                my $seconds = 60;
                my $p = Math::Polynomial->from_roots($_[HEAP]->{root1}, $_[HEAP]->{root2});
                $p->string_config({fold_sign => 1,
                                                   times     => '',
                                                   prefix    => '',
                                                   suffix    => ''});
                print "nick: $_[HEAP]->{nick}\t poly: $p\t answers: { $_[HEAP]->{root1}, $_[HEAP]->{root2} } \n";
                $irc->yield(privmsg => $_[HEAP]->{channel},
                                        "$_[HEAP]->{nick}: you have $seconds seconds to find the roots of $p");
                $_[KERNEL]->delay(test_timer => $seconds);
        } else {
                $irc->yield(privmsg => $_[HEAP]->{channel}, "$nick: im busy with someone else");
        }
        return;
}

sub test_timer {
        $irc->yield(kick => $_[HEAP]->{channel},
                                $_[HEAP]->{nick},
                                "times up, answer is { $_[HEAP]->{root1}, $_[HEAP]->{root2} }");
        $_[KERNEL]->alarm_remove_all();
        $_[HEAP]->{busy} = 0;
        return;
}

sub irc_public {
        my $nick  = (split /!/, $_[ARG0])[0];
        my $root1 = $_[HEAP]->{root1};
        my $root2 = $_[HEAP]->{root2};
        if ($_[ARG2] =~ /^\!/) {return;} 
        if (($nick eq $_[HEAP]->{nick}) && ($_[HEAP]->{busy} == 1)) {
                if (my ($ans1, my $ans2) = ($_[ARG2] =~ /(-?\d+)/g)) {
                        if (   (($ans1 == $root1) && ($ans2 == $root2))
                                || (($ans2 == $root1) && ($ans1 == $root2))) {
                                $irc->yield(privmsg => $_[HEAP]->{channel},
                                                        "$_[HEAP]->{nick} is a confirmed autist");
                                $_[KERNEL]->alarm_remove_all();
                                $_[HEAP]->{busy} = 0;
                                return;
                        }
                }
                $irc->yield(kick => $_[HEAP]->{channel},
                                        => $_[HEAP]->{nick},
                                        "wrong answer, correct answer is { $root1, $root2 }");
                $_[KERNEL]->alarm_remove_all();
                $_[HEAP]->{busy} = 0;
        }
        return;
}