use strict;
use warnings;
use HexChat qw(:all);
register('Spank-o-matic','0.2a','wildKat\'s Bot [CLS]', sub { command('echo Spank Thing Off')});
command('echo Spank Thing On');
hook_print('Channel Message', \&spankGo);
hook_print('Your Message', \&spankGo);
hook_print('Channel Message Hilight', \&spankGo);
my $ch = "#houseofpain";          # CHANGE THIS TO YOUR CHANNEL NAME IN LOWER CASE
sub spankGo {
  my $nick = $_[0][0];
  my $mesg = $_[0][1];
  my $chan = get_info('channel');
  my $netw = get_info('network');
  if(lc($mesg) =~ /^\!spank/ && lc($chan) eq lc($ch)){
    my @trig = split(/ /, $mesg);
    set_context( $ch, undef);

	my @responses = (" with something hard and sandpapery!",
        " with a rubber chicken!",
        " with a boat oar!"
	);
	my $item = $responses[ rand @responses ];

    command("me spanks " . $trig[1] . $item);
  }
  return EAT_NONE;
}