use strict;
use Irssi;

Irssi::theme_register([
	raw325 => '{nick $0} cowpower : this is a BOT with COW POWERS !'
]);

sub event_raw325
{
    my ($me, $nick, $crap) = split(/ +/, $_[1], 3);
    my $win = ($crap = Irssi::window_find_closest($nick, MSGLEVEL_CRAP)) ? $crap : Irssi::window_find_refnum(1);
    $win->printformat(MSGLEVEL_CRAP, 'raw325');
    Irssi::signal_stop();
};

Irssi::signal_add('event 325', 'event_raw325');