use strict;
use warnings;
use Xchat qw( :all );

register('Oink Script', '0.2', 'Oink at the channel');

foreach ('Channel Message', 'Channel Msg Hilight') {
	hook_print($_, \&check_oink);
}

sub check_oink {
	return EAT_NONE if ($_[0][1] !~ /^oink/i);	

	delaycommand("me oinks");

	return EAT_NONE;
}

# XChat 2.8.6 and newer
sub delaycommand {
	my $command = $_[0];
	hook_timer( 0,
		sub {
			command($command);
			return REMOVE;
		}
	); 
	return EAT_NONE;
}