I use The Plugin Like you tell in the first page (but the ASCllnumberKiller.pl Cannot Be download)[Jan 5 01:38:23 2010.54] Unknown #110018522: [Bot Check]: Masukan angka di bawah ini(Input the number):
[Jan 5 01:38:23 2010.54] Unknown #110018522: 1746|060581755871981557096350|
[Jan 5 01:38:23 2010.56] Unknown #110018522: 5058|092931940433471853775220|
[Jan 5 01:38:23 2010.57] Unknown #110018522: |000000000000000000000000000000000|
[Jan 5 01:38:23 2010.57] Unknown #110018522: |000000000000000000000000000000000|
[Jan 5 01:38:23 2010.58] Unknown #110018522: 1565|09746128299651165152340|
[Jan 5 01:38:23 2010.60] Unknown #110018522: 8985|07671603458381603487550|
[Jan 5 01:38:23 2010.60] NPC Exists: botcheck (96, 158) (ID 110018522) - (10)
[Jan 5 01:38:23 2010.61] botcheck: Type 'talk num <number #>' to input a number.
I Run Like This
The Red Color is the eror unknown commandUnknown #110018522: [Bot Check]: Masukan angka di bawah ini:
[reactOnNPC] NPC message saved (0): "^000066[Bot Check]: ^990000Masukan angka
di bawah ini:^000000".
Unknown #110018522: |000000000000000000000000000000000|
[reactOnNPC] NPC message saved (1):
"^000000|0000000^1994700000^0000000000^178017^000000000000000000000000|".
Unknown #110018522: 61|083161165301021298415730|
[reactOnNPC] NPC message saved (2):
"^F7F7F561^000000|^1009670^F7F7F5831611653^F9F3F90102^F7F7F5129841573^000000^10
09670^000000|".
Unknown #110018522: 13566|024711058986461058965220|
[reactOnNPC] NPC message saved (3):
"^F7F7F513566^000000|^1009670^F7F7F5247110589^F5F0F08646^F7F7F5105896522^000000
^1009670^000000|".
Unknown #110018522: 19649|024801417751601147755540|
[reactOnNPC] NPC message saved (4):
"^F7F7F519649^000000|^1009670^F7F7F5248014177^F3F9F55160^F7F7F5114775554^000000
^1009670^000000|".
Unknown #110018522: 13977|028121176031861080542180|
[reactOnNPC] NPC message saved (5):
"^F7F7F513977^000000|^1009670^F7F7F5281211760^F0F5F3^1503543186^F7F7F5108054218
^000000^1009670^000000|".
Unknown #110018522: |000000000000000000000000000000000|
[reactOnNPC] NPC message saved (6):
"^000000|000000000000^1780170000^0000000000^199470^0000000000000000000|".
NPC Exists: botcheck (96, 158) (ID 110018522) - (10)
botcheck: Type 'talk num <number #>' to input a number.
[reactOnNPC] Reacting to NPC. Executing command "number".
Unknown command 'number'. Please read the documentation for a list of commands.
my plugin is like this
and my config.txt i add# =======================
# reactOnNPC v.1.1.1
# =======================
# This plugin is licensed under the GNU GPL
# Copyright 2006 by hakore
#
# http://forums.openkore.com/viewtopic.php?t=19973
package reactOnNPC;
use strict;
use Plugins;
use Globals;
use Utils;
use Commands;
use Log qw(message debug);
Plugins::register('reactOnNPC', "react on NPC messages", \&Unload);
my $hooks = ((substr($Settings::VERSION, 0, 3) >= 1.9) ?
Plugins::addHooks(
['packet/npc_talk', \&onNPCTalk, undef],
['packet/npc_talk_close', \&onNPCAction, undef],
['packet/npc_talk_continue', \&onNPCAction, undef],
['packet/npc_talk_number', \&onNPCAction, undef],
['packet/npc_talk_responses', \&onNPCAction, undef],
['packet/npc_talk_text', \&onNPCAction, undef]
) :
Plugins::addHooks(
['parseMsg/pre', \&onParseMsg,
{
'00B4' => [\&onNPCTalk, 'packet/npc_talk'],
'00B5' => [\&onNPCAction, 'packet/npc_talk_continue'],
'00B6' => [\&onNPCAction, 'packet/npc_talk_close'],
'00B7' => [\&onNPCAction, 'packet/npc_talk_responses'],
'0142' => [\&onNPCAction, 'packet/npc_talk_number'],
'01D4' => [\&onNPCAction, 'packet/npc_talk_text']
}
]
)
);
my %reactOnNPC;
sub Unload
{
Plugins::delHooks($hooks);
};
sub onNPCTalk
{
my (undef, $args) = @_;
my $ID = unpack("V", substr($args->{RAW_MSG}, 4, 4));
my $msg = unpack("Z*", substr($args->{RAW_MSG}, 8));
if ((substr($Settings::VERSION, 0, 3) >= 1.9) && (substr($Settings::VERSION, 4) >= 1))
{
$msg = I18N::bytesToString($msg);
}
if (!defined %reactOnNPC || $reactOnNPC{action})
{
undef %reactOnNPC if defined %reactOnNPC;
$reactOnNPC{index} = 0;
$reactOnNPC{ID} = $ID;
$reactOnNPC{msg}[$reactOnNPC{index}] = $msg;
}
else
{
$reactOnNPC{index}++;
$reactOnNPC{msg}[$reactOnNPC{index}] = $msg;
}
debug "[reactOnNPC] NPC message saved ($reactOnNPC{index}): \"$msg\".\n", "reactOnNPC";
}
sub onNPCAction
{
my $type = substr(shift, 16);
$reactOnNPC{action} = $type;
debug "[reactOnNPC] onNPCAction type is: $type.\n", "reactOnNPC";
if ($type eq 'responses')
{
my $args = shift;
my $msg = unpack("Z*", substr($args->{RAW_MSG}, 8));
if ((substr($Settings::VERSION, 0, 3) >= 1.9) && (substr($Settings::VERSION, 4) >= 1))
{
$msg = I18N::bytesToString($msg);
}
undef @{$reactOnNPC{responses}};
my @responses = split /:/, $msg;
foreach (@responses) {
push @{$reactOnNPC{responses}}, $_ if $_ ne "";
}
}
my $i = 0;
while (exists $config{"reactOnNPC_$i"}) {
if (
!$config{"reactOnNPC_$i"}
|| !main::checkSelfCondition("reactOnNPC_$i")
|| ($config{"reactOnNPC_${i}_type"} && $config{"reactOnNPC_${i}_type"} ne $type)
) {
debug "[reactOnNPC] Conditions for reactOnNPC_$i not met.\n", "reactOnNPC";
$i++;
next;
}
my $j = 0;
my $ok = 1;
while (exists $config{"reactOnNPC_${i}_msg_$j"})
{
my $msg;
if (exists $reactOnNPC{msg}[$j])
{
$msg = $reactOnNPC{msg}[$j];
# Remove RO color codes
$msg =~ s/\^[a-fA-F0-9]{6}//g unless ($config{"reactOnNPC_${i}_useColors"});
}
if (!defined $msg || !match($j, $msg, $config{"reactOnNPC_${i}_msg_$j"}))
{
debug "[reactOnNPC] One or more lines doesn't match for \"reactOnNPC_$i\" ($j).\n", "reactOnNPC";
$ok = 0;
last;
}
$j++;
}
if ($ok)
{
my $cmd = $config{"reactOnNPC_$i"};
$cmd =~ s/#(\d+)~(\d+)/$reactOnNPC{match}[$1][$2]/g;
my $kws = 'eval|resp';
while (my ($kw, $expr) = $cmd =~ /\@($kws)\(((?:(?!(?<!\@)\@$kws\().)+?)(?<!\@)\)/)
{
my $eval;
my $eval_expr = $expr;
$eval_expr =~ s/\@(?=[\@)])//g;
if ($kw eq 'eval')
{
$eval = eval $eval_expr;
}
elsif ($kw eq 'resp')
{
$i = 0;
foreach (@{$reactOnNPC{responses}}) {
if (match(undef, $_, $eval_expr))
{
last;
}
$i++;
}
$eval = $i;
}
$expr = quotemeta $expr;
$cmd =~ s/\@$kw\($expr\)/$eval/g;
}
message "[reactOnNPC] Reacting to NPC. Executing command \"$cmd\".\n", "success";
Commands::run($cmd);
last;
}
$i++;
}
undef %reactOnNPC if $type eq 'close';
}
sub match
{
my ($line, $subject, $pattern) = @_;
debug "[reactOnNPC] Matching \"$subject\" to \"$pattern\" ($line)... ", "reactOnNPC";
if (my ($re, $ci) = $pattern =~ /^\/(.+?)\/(i?)$/)
{
if (($ci && $subject =~ /$re/i) || (!$ci && $subject =~ /$re/))
{
if (defined $line)
{
no strict;
foreach my $index (1..$#-)
{
$reactOnNPC{match}[$line][$index] = ${$index};
}
}
debug "regexp ok.\n", "reactOnNPC";
return 1;
}
}
elsif ($subject eq $pattern)
{
debug "ok.\n", "reactOnNPC";
return 1;
}
debug "doesn't match.\n", "reactOnNPC";
}
sub onParseMsg
{
my (undef, $args, $handlers) = @_;
if ($handlers->{$args->{switch}})
{
my $handler = $handlers->{$args->{switch}};
$handler->[0]->($handler->[1], ($args->{switch} eq '00B4' || $args->{switch} eq '00B7') ? {RAW_MSG => $args->{msg}} : undef);
}
}
return 1;
For The Image Anti Bot In This LinkreactOnNPC number {
type number
msg_0 /.*/
msg_1 /.*/
msg_2 /.*/
msg_3 /.*/
msg_4 /.*/
msg_5 /.*/
msg_6 /.*/
}
http://www.kitaupload.com/download.php? ... -RO011.JPG
i dont have this to reactOnNPC.pl,ASCIInumberKiller.pl
can u attach again? because the page dose exist
Mucilon plz help me, This is Not Work What Must I do?
