Need Help kk
aku mencoba ngebot di private server yg ada anti-bot
trus aku dah coba make anti-anti bot plugins dari openkore
tapi koq ga berhasil ya
ada yg bisa bantu?
nih yang ku masukan di Config TXT
trus ini yg aku masukan di pluginsnya
<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-spacere;overflow:auto'>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;</div>
tapi koq di konsolenya cuma bgiini
<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-spacere;overflow:auto'>Unknown #110264398: [Polisi]
[reactOnNPC] NPC message saved (0): \"[^0000FFPolisi^000000]\".
Unknown #110264398: Masukkan angka ini:
[reactOnNPC] NPC message saved (1): \"Masukkan angka ini:\".
Unknown #110264398: dempâtdrätüsp rdêlâpånrpülûh düa
[reactOnNPC] NPC message saved (2): \"^46964B^32B83Edempât^7A7C15drätüsp^0A8322 ^083A4Ardêlâpånr^5C28BDpülûh ^C5BC63 düa^000000\".
Unknown #110264398: såtu dari lïma
[reactOnNPC] NPC message saved (3): \"^566A1E^8C606Esåtu^000000 dari ^C86306lïma^000000\".
Unknown #110264398:
[reactOnNPC] NPC message saved (4): \" \".
Unknown #110264398: sëmbïlánpülûh detik untuk merespon
[reactOnNPC] NPC message saved (5): \"^0DA0C6 ^957B87^95B28Esëmbïlán^939023pülûh ^40B05B^000000^846D9B detik untuk merespon\".
Unknown #110264398: Auto-continuing talking
[reactOnNPC] onNPCAction type is: continue.
[reactOnNPC] React to NPC with delay. Execute command \"talk num \" after 5 seconds.
NPC Exists: BotKillerFnc1 (140, 180) (ID 110264398) - (9)
BotKillerFnc1: Type \'talk num <number #>\' to input a number.
[reactOnNPC] onNPCAction type is: number.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
[reactOnNPC] Conditions for reactOnNPC_1 not met.
[reactOnNPC] Reacting to NPC. Executing command \"talk num \".
Error in function \'talk num\' (Respond to NPC)
You must specify a number.
reactOnNPC] Reacting to NPC. Executing command \"talk num \".
Error in function \'talk num\' (Respond to NPC)
You must specify a number.
[reactOnNPC] Reacting to NPC. Executing command \"talk num \".
Error in function \'talk num\' (Respond to NPC)
You must specify a number.</div>
ada yg bisa bantu ga?
kesalahan saya dmn ya
aku mencoba ngebot di private server yg ada anti-bot
trus aku dah coba make anti-anti bot plugins dari openkore
tapi koq ga berhasil ya
ada yg bisa bantu?
nih yang ku masukan di Config TXT
Code:
reactOnNPC talk num @eval(my $numerotxt = #2~1;my $answer;message \"[reactOnNPC] Text to translate: \\\"$numerotxt\\\".\\n\", \"success\";if ($numerotxt =~ /s[èéêëe].?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=1;} elsif ($numerotxt =~ /d[ùúûüu][àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=2;} elsif ($numerotxt =~ /t[“í”ïi]g[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=3;} elsif ($numerotxt =~ /[èéêëe]mp[àáâãäåa]t.?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=4;} elsif ($numerotxt =~ /l[“í”ïi]m[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=5;} elsif ($numerotxt =~ /[èéêëe]n[àáâãäåa]m.?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=6;} elsif ($numerotxt =~ /t[ùúûüu]j[ùúûüu]h.?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=7;} elsif ($numerotxt =~ /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=8;} elsif ($numerotxt =~ /s[èéêëe]mb[“í”ïi]l[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/@) {$answer=9;}message \"[reactOnNPC] First code to answer: \\\"$answer\\\".\\n\", \"success\";if ($numerotxt =~ /s[èéêëe].?.?p[ùúûüu]l[ùúûüu]h|b[èéêëe]l[àáâãäåa]s/@) {$answer.=1;} elsif ($numerotxt =~ /d[ùúûüu][àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/@) {$answer.=2;} elsif ($numerotxt =~ /t[“í”ïi]g[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/@) {$answer.=3;} elsif ($numerotxt =~ /[èéêëe]mp[àáâãäåa]t.?.?p[ùúûüu]l[ùúûüu]h/@) {$answer.=4;} elsif ($numerotxt =~ /l[“í”ïi]m[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/@) {$answer.=5;} elsif ($numerotxt =~ /[èéêëe]n[àáâãäåa]m.?.?p[ùúûüu]l[ùúûüu]h/@) {$answer.=6;} elsif ($numerotxt =~ /t[ùúûüu]j[ùúûüu]h.?.?p[ùúûüu]l[ùúûüu]h/@) {$answer.=7;} elsif ($numerotxt =~ /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/@) {$answer.=8;} elsif ($numerotxt =~ /s[èéêëe]mb[“í”ïi]l[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/@) {$answer.=9;} elsif ($answer neq \'\'@) {$answer.=0;}message \"[reactOnNPC] 2nd code to answer: \\\"$answer\\\".\\n\", \"success\";if ($numerotxt =~ /s[àáâãäåa]t[ùúûüu].{0,3}$|s[èéêëe].?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=1;} elsif ($numerotxt =~ /d[ùúûüu][àáâãäåa].{0,3}$|d[ùúûüu][àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=2;} elsif ($numerotxt =~ /t[“í”ïi]g[àáâãäåa].{0,3}$|t[“í”ïi]g[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=3;} elsif ($numerotxt =~ /[èéêëe]mp[àáâãäåa]t.{0,3}$|[èéêëe]mp[àáâãäåa]t.?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=4;} elsif ($numerotxt =~ /l[“í”ïi]m[àáâãäåa].{0,3}$|l[“í”ïi]m[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=5;} elsif ($numerotxt =~ /[èéêëe]n[àáâãäåa]m.{0,3}$|[èéêëe]n[àáâãäåa]m.?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=6;} elsif ($numerotxt =~ /t[ùúûüu]j[ùúûüu]h.{0,3}$|t[ùúûüu]j[ùúûüu]h.?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=7;} elsif ($numerotxt =~ /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.{0,3}$|d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=8;} elsif ($numerotxt =~ /s[èéêëe]mb[“í”ïi]l[àáâãäåa]n.{0,3}$|s[èéêëe]mb[“í”ïi]l[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/@) {$answer.=9;} else {$answer.=0;}}message \"[reactOnNPC] Last code to answer: \\\"$answer\\\".\\n\", \"success\";return $answer;) {
type continue
useColors 0
delay 5
msg_0 [Polisi]
msg_1 Masukkan angka ini:
msg_2 /(.+)/
}
<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-spacere;overflow:auto'>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;</div>
tapi koq di konsolenya cuma bgiini
<div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-spacere;overflow:auto'>Unknown #110264398: [Polisi]
[reactOnNPC] NPC message saved (0): \"[^0000FFPolisi^000000]\".
Unknown #110264398: Masukkan angka ini:
[reactOnNPC] NPC message saved (1): \"Masukkan angka ini:\".
Unknown #110264398: dempâtdrätüsp rdêlâpånrpülûh düa
[reactOnNPC] NPC message saved (2): \"^46964B^32B83Edempât^7A7C15drätüsp^0A8322 ^083A4Ardêlâpånr^5C28BDpülûh ^C5BC63 düa^000000\".
Unknown #110264398: såtu dari lïma
[reactOnNPC] NPC message saved (3): \"^566A1E^8C606Esåtu^000000 dari ^C86306lïma^000000\".
Unknown #110264398:
[reactOnNPC] NPC message saved (4): \" \".
Unknown #110264398: sëmbïlánpülûh detik untuk merespon
[reactOnNPC] NPC message saved (5): \"^0DA0C6 ^957B87^95B28Esëmbïlán^939023pülûh ^40B05B^000000^846D9B detik untuk merespon\".
Unknown #110264398: Auto-continuing talking
[reactOnNPC] onNPCAction type is: continue.
[reactOnNPC] React to NPC with delay. Execute command \"talk num \" after 5 seconds.
NPC Exists: BotKillerFnc1 (140, 180) (ID 110264398) - (9)
BotKillerFnc1: Type \'talk num <number #>\' to input a number.
[reactOnNPC] onNPCAction type is: number.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
[reactOnNPC] Conditions for reactOnNPC_1 not met.
[reactOnNPC] Reacting to NPC. Executing command \"talk num \".
Error in function \'talk num\' (Respond to NPC)
You must specify a number.
reactOnNPC] Reacting to NPC. Executing command \"talk num \".
Error in function \'talk num\' (Respond to NPC)
You must specify a number.
[reactOnNPC] Reacting to NPC. Executing command \"talk num \".
Error in function \'talk num\' (Respond to NPC)
You must specify a number.</div>
ada yg bisa bantu ga?
kesalahan saya dmn ya