[responseOn]Access Code

[windows98SE]

Sry for ex/log/image and my EN lang
B'cuz i test in thai pv server.

SVN VERSion download here ---> http://www.stephack.com/category/opkplugins/

Unknown #110310492: [Antibot System]
Unknown #110310492: โปรดให้ความร่วมมือในการตรวจสอบ
Unknown #110310492: โปรดอ่านข้อความให้เข้าใจก่อนตอบ
Unknown #110310492: ระบบตรวจสอบไม่มีการจับเวลา........
Unknown #110310492: ผู้ที่ตรวจสอบจะถูกจับแช่แข็ง.............
Unknown #110310492: ดำเนินการสนธนาต่อโดยอัตโนมัติ
Unknown #110310492: Access Code : 1401234
Unknown #110310492: Access Code : 7549978
Unknown #110310492: Access Code : 2858912
Unknown #110310492: Access Code : 6578980
Unknown #110310492: Access Code : 9936457
Unknown #110310492: Access Code : 5116729
Unknown #110310492: กรุณาป้อน ตัวเลข AC : สีม่วง
Unknown #110310492: ดำเนินการสนธนาต่อโดยอัตโนมัติ
Unknown #110310492: ป้อน 'talk num <หมายเลข #>' เพื่อป้อนหมายเลข
[reactOnNPC] Reacting to NPC. Executing command "ACkiller num".
[ACkiller] Executing command "talk num 1401234".
Unknown #110310492: ดำเนินการสนธนาต่อโดยอัตโนมัติ
Unknown #110310492: [Antibot System]
Unknown #110310492: ยินดีต้อนรับ, openkoreTEST!
Unknown #110310492: Access Code ถูกต้อง
Unknown #110310492: ขอให้สนุกกับการเล่น
Unknown #110310492: ขอบคุณ... ที่ให้ความร่วมมือ.....

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

package ACkiller;

use strict;
use Plugins;
use Utils;
use Globals qw(%talk);
use Commands qw(run register unregister);
use Log qw(message error); #SVN version comment this line
use I18N qw(bytesToString);

my $grapask = 'Access Code'; #grap you ask line msg
my $grapans = 'AC'; #grap you ans line msg
my $color;
my $answer;
my @msgtmp;

Plugins::register('ACkiller', "response On NPC Anti-Bot (Access Code)", \&onUnload);
my $cmd = Commands::register(['ACkiller', 'talk response AntibotKiller (Access Code)', \&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;
}

sub onNPCmsg {
my (undef, $args) = @_;
my $msg = I18N::bytesToString(unpack("Z*", substr($args->{RAW_MSG}, 8)));
@msgtmp;
if($msg =~ /$grapask \: \^(.*)/gi){
push (@msgtmp,$1)
}elsif($msg =~ /$grapans : \^([a-fA-F0-9]{6})/gi){
$color = $1;
}
}

sub onCmd {
my (undef, $args) = @_;
foreach my $line(@msgtmp){
if($line =~ /$color(.*)/ig){
$answer = $1;
}
}
$cmd = "talk $args $answer";
message "[ACkiller] Executing command \"$cmd\".\n", "success";
Commands::run($cmd);
}

return 1;

../config.txt

reactOnNPC ACkiller num {
type number
}

ex.
../server.txt

[TEST]
ip 61.47.61.214
port 11388
master_version 10
version 24
serverType 9
private 1
serverEncoding Thai
charBlockSize 108

[claude]

WOW , Well done .

[mick21]

@windows 98SE can we use that here?

[windows98SE]

@mick21 i think plugin "reactOnNPC" can response it

[nhojeinnor]

@Windows98E

we have the same problem of mick.. about the bot check in frozenglade?? but ReactOnNPC doesnt work???.. can u help me too plz.. tnx

[pHetHH]

Same problem here too, coudn't get it to work and now where account creation is disabled the next trys have to work due to a loss of unbanned accounts

[KentCritz]

@pHetHH,nhojeinnor,mick21
this was already talk here..
we have same problem but im different server so..

http://forums.openkore.com/viewtopic.ph ... a&start=30

[pHetHH]

@pHetHH,nhojeinnor,mick21
this was already talk here..
we have same problem but im different server so..

http://forums.openkore.com/viewtopic.ph ... a&start=30

Thank u very much dude i searched quite a long time for this one

thats the aabot3.pl that finally works u helped me very much thanks for it

[rhyltha]

@pHetHH,nhojeinnor,mick21
this was already talk here..
we have same problem but im different server so..

http://forums.openkore.com/viewtopic.ph ... a&start=30

Thank u very much dude i searched quite a long time for this one

thats the aabot3.pl that finally works u helped me very much thanks for it

doesn;t work on frozenglade