use strict;
use vars qw($VERSION %IRSSI);

use Irssi qw(command_bind signal_add signal_emit signal_stop);

$VERSION = '1.01';

%IRSSI = (
    authors     => 'V-V Pimia',
    contact     => 'vp79799@uta.fi',
    name        => 'Goonsay',
    license     => 'Public Domain'
);


sub goonsay {
    my ($data, $server, $witem) = @_;
    return unless $witem;
    # $witem (window item) may be undef.

    my $msg1 = ' __________    _';
    my $msg2 = '(--[ .]-[ .]  / '.$data;
    my $msg3 = '(_______o__) /\\';

    my $i = 0;
    my $size = length($data);

    for($i=0;$i<=$size;$i++) {

    	$msg1 = $msg1 . '_';
        $msg3 = $msg3 . '_';

    }

    $witem->command("MSG ".$witem->{name}." ".$msg1);
    $witem->command("MSG ".$witem->{name}." ".$msg2." |");
    $witem->command("MSG ".$witem->{name}." ".$msg3."/");
}

Irssi::command_bind goonsay => \&goonsay;