responseOnMatrixNumber v1.0.2a

###########################
# responseOnMatrixNumber v1.0.2a
# 
# For OpenKore 1.9.x 
#
# (test in Creamsoda server >>  http://creamsoda.i.am) 23/6/250
#
# NOTE: This plugin meant to be use with hakore's reactOnNPC
 
package responseOnMatrixNumber;
 
use strict;
use Plugins;
use Utils;
use Globals qw(%talk);
use Commands qw(run register unregister);
use Log qw(message debug);
use I18N qw(bytesToString);
 
my %reactOnNPC;
my @actOnNPC;
my $num1;
my $num2;
my $num3;
my $all_line;
my $line;
my $matrix;
my @array;
my @NPCresponses;
 
Plugins::register('responseOnMatrixNumber', "response On MatrixNumber", \&Unload);
my $cmd = Commands::register(['MatrixNumber', 'talk response On MatrixNumber', \&onMatrixCmd]);
my $hooks = Plugins::addHooks(
            ['packet/npc_talk', \&onNPCTalk],
            ['packet/npc_talk_close', \&onClose]
);
 
sub onUnload {
 Plugins::delHooks($hooks);
 Commands::unregister($cmd);
 
 undef %reactOnNPC;
 undef @actOnNPC;
 undef $num1;
 undef $num2;
 undef $num3;
 undef $all_line;
 undef $line;
 undef $matrix;
 undef @array;
 undef @NPCresponses;
}
 
sub onClose {
   undef %reactOnNPC if defined %reactOnNPC;    
}
 
sub onNPCTalk {
 my (undef, $args) = @_;
 my $msg = I18N::bytesToString(unpack("Z*", substr($args->{RAW_MSG}, 8)));
 if (!defined %reactOnNPC || $reactOnNPC{action}) {
  undef %reactOnNPC if defined %reactOnNPC;
  $reactOnNPC{index} = 1;
  $reactOnNPC{msg}[$reactOnNPC{index}] = $msg;
 } else {
  $reactOnNPC{index}++;
  $reactOnNPC{msg}[$reactOnNPC{index}] = $msg;
 }
 debug "01 $reactOnNPC{msg}[1]\n", "success";
 debug "02 $reactOnNPC{msg}[2]\n", "success";
 debug "03 $reactOnNPC{msg}[3]\n", "success";
 debug "04 $reactOnNPC{msg}[4]\n", "success";
 debug "05 $reactOnNPC{msg}[5]\n", "success";
 debug "06 $reactOnNPC{msg}[6]\n", "success";
 debug "07 $reactOnNPC{msg}[7]\n", "success";
 debug "08 $reactOnNPC{msg}[8]\n", "success";
 debug "09 $reactOnNPC{msg}[9]\n", "success";
 debug "10 $reactOnNPC{msg}[10]\n", "success";
}
 
sub onCheckMatrix {
    my (undef, $args) = @_;
 
 undef @actOnNPC if defined @actOnNPC;
  my $i = 0;
  for ($i=3;$i<8 ;$i++) {
   push (@actOnNPC , $reactOnNPC{msg}[$i]);
  }
   undef %reactOnNPC if defined %reactOnNPC;
 
 my $matrix = '';
 my $all_line = '';
 my $line = '';
 my @array = '';
 for $matrix (@actOnNPC) {
  @array = split(/\^/,$matrix);
  foreach $line (@array) {
   if ($line =~ s/\b[f|F,7|8|9|f|F]{6}//) {
    $line =~ s/./=/g;
   } else {
    $line =~ s/\b[a-f0-9A-F]{6}//;
    $line =~ s/./#/g;
   }
    $all_line .= $line;
  }
 }
 
 # get num 1
  $num1 =  substr($all_line, 0, 5);
  $num1 .=  substr($all_line, 19, 5);
  $num1 .=  substr($all_line, 38, 5);
  $num1 .=  substr($all_line, 57, 5);
  $num1 .=  substr($all_line, 76, 5);
   debug "num 1 $num1\n", "success";
 # get num 2
  $num2 =  substr($all_line, 7, 5);
  $num2 .=  substr($all_line, 26, 5);
  $num2 .=  substr($all_line, 45, 5);
  $num2 .=  substr($all_line, 64, 5);
  $num2 .=  substr($all_line, 83, 5);
   debug "num 2 $num2\n", "success";
 
 # get num 3
  $num3 = substr($all_line, 14, 5);
  $num3 .=  substr($all_line, 33, 5);
  $num3 .=  substr($all_line, 52, 5);
  $num3 .=  substr($all_line, 71, 5);
  $num3 .=  substr($all_line, 90, 5);
   debug "num 3 $num3\n", "success";
 
 # get line for print
  my $line1 =  substr($all_line, 0, 19);
  my $line2 =  substr($all_line, 19, 19);
  my $line3 =  substr($all_line, 38, 19);
  my $line4 =  substr($all_line, 57, 19);
  my $line5 =  substr($all_line, 76, 19);
 
  message "$line1\n", "success";
  message "$line2\n", "success";
  message "$line3\n", "success";
  message "$line4\n", "success";
  message "$line5\n", "success";
 
  undef $all_line;
  undef $line;
  undef $matrix;
  undef @array;
  undef @actOnNPC if defined @actOnNPC;
        undef %reactOnNPC if defined %reactOnNPC;
}
 
sub onMatrixCmd {
    my (undef, $args) = @_;
 onCheckMatrix;
 my %digit = ("######===##===##===######" => 0,
      "==#===##====#====#==#####" => 1,
      "==#====#====#====#====#==" => 1,
      "==##====#====#====#====#=" => 1,
      "#####====#######====#####" => 2,
      "#####====######====######" => 3,
      "#===##===######====#====#" => 4,
      "===#===##==#=#=#####===#=" => 4,
      "######====#####====######" => 5,
      "#====#====######===######" => 6,
      "######====######===######" => 6,
      "#####====#====#====#====#" => 7,  
      "#####===#===#===#====#===" => 7,
      "######===#######===######" => 8,
      "######===######====######" => 9);
 
 my $resutl1 = '';
 my $resutl2 = '';
 my $resutl3 = '';
 
 foreach (keys %digit) {
  if ($_ eq $num1) {
    $resutl1 = $digit{$_}
   }
  if ($_ eq $num2) {
    $resutl2 = $digit{$_}
   }
  if ($_ eq $num3) {
    $resutl3 = $digit{$_}
   }  
 }
   $cmd = "talk $args " .$resutl1.$resutl2.$resutl3;
   message "[MatrixNumber] Executing command \"$cmd\".\n", "success";
 
   #add Delay 1-5 sec
   message "*** Delay before $cmd ***.\n", "connection";
   my $startTime = time;
   while (1) {
    last if (timeOut($startTime,5));
   }
   Commands::run($cmd);
   Commands::run("tele");
   undef $resutl1;
   undef $resutl2;
   undef $resutl3;
   undef $num1;
   undef $num2;
   undef $num3;
}
 
return 1;