#!/usr/bin/perl
use Net::IRC;
use PerlSpeak;

$irc = new Net::IRC;

$homechannel = "#nurds";

$ps = PerlSpeak->new();
$ps->{tts_engine} = "festival";

$conn = $irc->newconn(Nick    => 'prutbot3',
                      Server  => 'irc.oftc.net');

sub on_connect {
        my $self = shift;

        $self->join($homechannel);
        print ("connect!\n");
}

sub on_msg {

        $event = $_[1];
        my $self = shift;

        $input = $event->{args}[0];

        if ($input =~ /^(.)say(.*)/) {
                $ps->say($2);
        }

        if ($input =~ /^(.)flash(.*)/) {
                $ps->say("hark hark hark hark hark hark");
        }

}

$conn->add_handler('public', \&on_msg);

$conn->add_global_handler(376, \&on_connect);

$irc->start;