responseOnAntibotKiller v1.0.0

###########################
# responseOnAntibotKiller v1.0.0 
# 
# For OpenKore 1.9.x
#
# NOTE: This plugin meant to be use with hakore's reactOnNPC
#

package responseOnAntibotKiller;
use strict;
use Plugins;
use Utils;
use Globals qw(%talk);
use Commands qw(run register unregister);
use Log qw(message error);
use I18N qw(bytesToString);

my $imageName;
my $tempImage;
my @tempImage;

Plugins::register('responseOnAntibotKiller', "response On NPC Anti-Bot (Image continue)", \&Unload);
my $cmd = Commands::register(['AntibotKiller', 'talk response AntibotKiller (Image continue)', \&onCmd]);
my $hooks = Plugins::addHooks(
 ['packet/npc_image', \&onNPCImage],
);

sub onUnload {
 Plugins::delHooks($hooks);
 Commands::unregister($cmd);
 undef $imageName;
 undef $tempImage;
 undef @tempImage;
}

sub onNPCImage {
 my (undef, $args) = @_;
 $imageName = bytesToString($args->{npc_image});
 return unless $imageName;
 push @tempImage, $imageName if ($imageName ne '');
 message "[AntibotKiller] Image >> $imageName .\n", "success";
}

sub onCmd {
  my (undef, $args) = @_;
  if ($tempImage[3] ne '') {
    $tempImage = $tempImage[0].$tempImage[1].$tempImage[2].$tempImage[3];
    $tempImage =~ s/\D//g;
    $cmd = "talk $args " . $tempImage;
    message "[AntibotKiller] Executing command \"$cmd\".\n", "success";
    Commands::run($cmd);
    undef @tempImage;
    undef $tempImage;
  }
}

return 1;