package Sedbot::Plugin::Parrot;
use base qw(Sedbot::Plugin);

use strict;
use warnings;
use utf8;

my %parrot;

sub said {
    my ($self, $message) = @_;
    my $body = $message->{body};
    my $nick = $message->{who};
    my $chan = $message->{channel};

    return if $message->{channel} eq "msg";

    if ($body =~ /^:parrot add (\S+) (\S+)/) {
        $parrot{$1} = $2;
    }

    elsif ($body =~ /^:parrot del (\S+)/) {
        delete $parrot{$1};
    }

    elsif ($parrot{$chan}) {
        $self->bot->say(channel => $parrot{$chan}, body => "$chan <$nick> $body");
    }
    return;
}

1;