use strict;
use warnings;

Xchat::register('Oink Script', '0.1', 'Oink at the channel');

Xchat::hook_print('Channel Message', \&check_oink);

sub check_oink {
	if ($_[0][1] =~ /oink/i){
		Xchat::command("me oinks");
	}	
	return Xchat::EAT_NONE;
}