SCkiller can bypass this
config.txt###########################
# ACkiller v1.0.0
#
# For OpenKore 1.9.x
#
# NOTE: This plugin meant to be use with hakore's reactOnNPC
#
# Credit : Windows98SE
###########################
###########################
# SCkiller v1.0.0
#
# For Openkore 2.0.x
#
# NOTE: This plugin is meant to be used with hakore's reactOnNPC
#
# Edit : fChopin (it's me !! fChopin is the name that i've used in Thailand OPK board)
###########################
package SCkiller;
use strict;
use Plugins;
use Utils;
use Globals;
use Commands;
use Log qw(message error); #SVN version comment this line
use I18N qw(bytesToString);
my @color;
my $answer;
my @msgtmp;
my $numlen = 7; #length of the number that Antibot ask
Plugins::register('SCkiller', "response on Anti Login (Select Color)", \&onUnload);
my $cmd = Commands::register(['SCkiller', 'talk response AntibotKiller (Select Color)', \&onCmd]);
my $hooks = Plugins::addHooks(
['packet/npc_talk', \&onNPCmsg],
['packet/npc_talk_responses', \&onNPCmsg]
);
sub onUnload {
Plugins::delHooks($hooks);
Commands::unregister($cmd);
undef @color;
undef $answer;
undef @msgtmp;
undef $numlen;
}
sub onNPCmsg {
my (undef, $args) = @_;
my $msg = I18N::bytesToString(unpack("Z*", substr($args->{RAW_MSG}, 8)));
if($msg =~ /.*([a-zA-Z0-9]{6}[0-9]{$numlen})\^[0]{6}\^/i){
#message "[SCkiller] found color and number : $1\n","success";
push (@msgtmp,$1);
} elsif($msg =~ /#+/i) {
@color= split('\^',$msg);
foreach my $temp(@color) {
if($temp =~ /([a-zA-Z0-9]{6}).*/i) {
if($1 ne "FFF9EE") {
if($1 ne "F5F9FD") {
if($1 ne "FFF9FA") {
if($1 ne "F7F7FF") {
if($1 ne "F8F8FF") {
if($1 eq "FFA500") {$color[0] = "FF8C00";}
else {$color[0] = $1;}
}}}}}
}
}
#message "[SCkiller] found choosen color : $color[0]\n","success";
}
}
sub onCmd {
my (undef, $args) = @_;
foreach my $line(@msgtmp) {
if($line =~ /$color[0](.*)/i) {
$answer = $1;
}
}
if($answer eq '') {
$color[0] = "FFA500";
foreach my $line(@msgtmp) {
if($line =~ /$color[0](.*)/i) {
$answer = $1;
}
}
}
$cmd = "talk $args $answer";
message "[SCkiller] Executing command \"$cmd\".\n", "success";
Commands::run($cmd);
}
return 1;
reactOnNPC SCkiller num {
type number
}
