wins at irc duck hunt in #burlington, but can't shoot after missing

huntwin.pl

use strict;
use warnings;

use Irssi;

our $VERSION = '1.00';
our %IRSSI = (
    authors     => 'gdoteof',
    contact     => 'dont',
    name        => 'huntwin',
    description => '',
    license     => 'allyourbase',
);


Irssi::signal_add 'message public', 'sig_message_public';

sub sig_message_public {
   my ($server, $msg, $nick, $nick_addr, $target) = @_;
   $server->command("msg $target .bang") if ($msg =~ m/\_o< quack!/i && $nick=~"Fat_Lenny");
   $server->command("msg $target .bang") if ($msg =~ m/you missed the duck/i && $nick=~"Fat_Lenny");
}