use vars qw($VERSION %IRSSI);

use Irssi qw(signal_add);
$VERSION = '1.00';
%IRSSI = (
    authors     => 'xochipilli',
    name        => 'stfugreyaht',
    description => 'Tells Greyhat to STFU',
    );

Irssi::signal_add('event privmsg', 'stfu');

my @resp = ("stfu nigger",
            "i dont have to take that from a fucking nigger",
            "niggers. must .hang",
            "YEAH BUT I HAVE MORE WEALTH AND POWER",
            "I BANGED OYUR KICKBOXING GIRLFRIEND",
            "at least im not a nigger",
            "MY KICKBOXING GIRLFRIEND HAS MORE WEALTH AND POWER",
            "yeah but youre a nigger",
            "stfu",
            "be quiet",
            "gtfo nigger",
            "no niggers allowed",
            "who let u out of the zoo?");

sub stfu
{
    my ($server, $channel, $nick, $address) = @_;

    my $i = rand($#resp);
    $server->command("/^msg -$server->{tag} $channel $nick: $resp[$i]") if $nick =~ /^Greyhat/;
}