reactOnNPC v.2.0.2 by hakore

[Mucilon]

help
Search at the forum for Unknown packet, there is a procedure to correct this!

Mochi-San & Zealtous
Sorry, I forgot one little thing at the code...
Try this one:

Code: Select all

reactOnNPC talk num @eval(my $numerotxt = #2~1;my $answer;switch ($numerotxt@) { case /s[èéêëe].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=1} case /d[ùúûüu][àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=2} case /t[ìíîïi]g[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=3} case /[èéêëe]mp[àáâãäåa]t.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=4} case /l[ìíîïi]m[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=5} case /[èéêëe]n[àáâãäåa]m.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=6} case /t[ùúûüu]j[ùúûüu]h.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=9}}switch ($numerotxt@) { case /s[èéêëe].?.?p[ùúûüu]l[ùúûüu]h|b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=9} else {$answer.=0}}switch ($numerotxt@) { case /s[àáâãäåa]t[ùúûüu].{0,3}$|s[èéêëe].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].{0,3}$|d[ùúûüu][àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].{0,3}$|t[ìíîïi]g[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.{0,3}$|[èéêëe]mp[àáâãäåa]t.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].{0,3}$|l[ìíîïi]m[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.{0,3}$|[èéêëe]n[àáâãäåa]m.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.{0,3}$|t[ùúûüu]j[ùúûüu]h.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.{0,3}$|d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=8} case /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}}return $answer;) {
type number
msg_0 /\[Polisi\]/
msg_1 /Masukkan angka ini:/
msg_2 /(\w+)/
}

and

reactOnNPC talk num @eval(my $numerotxt = #3~1;my $answer;switch ($numerotxt@) { case /s[èéêëe].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=1} case /d[ùúûüu][àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=2} case /t[ìíîïi]g[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=3} case /[èéêëe]mp[àáâãäåa]t.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=4} case /l[ìíîïi]m[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=5} case /[èéêëe]n[àáâãäåa]m.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=6} case /t[ùúûüu]j[ùúûüu]h.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=9}}switch ($numerotxt@) { case /s[èéêëe].?.?p[ùúûüu]l[ùúûüu]h|b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=9} else {$answer.=0}}switch ($numerotxt@) { case /s[àáâãäåa]t[ùúûüu].{0,3}$|s[èéêëe].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].{0,3}$|d[ùúûüu][àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].{0,3}$|t[ìíîïi]g[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.{0,3}$|[èéêëe]mp[àáâãäåa]t.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].{0,3}$|l[ìíîïi]m[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.{0,3}$|[èéêëe]n[àáâãäåa]m.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.{0,3}$|t[ùúûüu]j[ùúûüu]h.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.{0,3}$|d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=8} case /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}}return $answer;) {
type number
msg_0 /\[Polisi\]/
msg_1 /Masukkan angka ini:/
msg_2 /.*/
msg_3 /(\w+)/
}

tabang
If you used the recvpackets extractor and it doesn't work, this means those packets are new and you will need to talk to the developer team to solve this! Post this message at the respective forum.

darkangell
Men, you did almost all wrong!
Try this one:

Code: Select all

reactOnNPC talk text #1~1 {
type text
msg_0 [Penjaga]
msg_1 /.*(\d+).*/
}

daqan
If you have this kind of doubts, maybe bot isn't for you...
Try read more about the openkore, try to read the plugin manual, read the first post of this topic... everything is explained!


beverly90210
This is the same kind of code I wrote to Mochi-San & Zealtous, so I did forget the same thing...
Try it now:

Code: Select all

reactOnNPC talk num @eval(my $numerotxt = #3~1;my $answer;switch ($numerotxt@) { case /[oôóòöõø0]n[eêéèë3]h[uûúùü]ndr[eêéèë3]d/ {$answer=1} case /tw[oôóòöõø0]h[uûúùü]ndr[eêéèë3]d/ {$answer=2} case /thr[eêéèë3][eêéèë3]h[uûúùü]ndr[eêéèë3]d/ {$answer=3} case /f[oôóòöõø0][uûúùü]rh[uûúùü]ndr[eêéèë3]d/ {$answer=4} case /f[iîíì\|1]v[eêéèë3]h[uûúùü]ndr[eêéèë3]d/ {$answer=5} case /s[iîíì\|1]xh[uûúùü]ndr[eêéèë3]d/ {$answer=6} case /s[eêéèë3]v[eêéèë3]nh[uûúùü]ndr[eêéèë3]d/ {$answer=7} case /[eêéèë3][iîíì\|1]ghth[uûúùü]ndr[eêéèë3]d/ {$answer=8} case /n[iîíì\|1]n[eêéèë3]h[uûúùü]ndr[eêéèë3]d/ {$answer=9}}switch ($numerotxt@) { case /t[eêéèë3]n|t[eêéèë3][eêéèë3]n|[eêéèë3]l[eêéèë3]v[eêéèë3]n|tw[eêéèë3]lv[eêéèë3]/ {$answer.=1} case /tw[eêéèë3]nty/ {$answer.=2} case /th[iîíì\|1]rty/ {$answer.=3} case /f[oôóòöõø0]rty/ {$answer.=4} case /f[iîíì\|1]fty/ {$answer.=5} case /s[iîíì\|1]xty/ {$answer.=6} case /s[eêéèë3]v[eêéèë3]nty/ {$answer.=7} case /[eêéèë3][iîíì\|1]ghty/ {$answer.=8} case /n[iîíì\|1]n[eêéèë3]ty/ {$answer.=9} else {$answer.=0}}switch ($numerotxt@) { case /[oôóòöõø0]n[eêéèë3].?$|[eêéèë3]l[eêéèë3]v[eêéèë3]n/ {$answer.=1} case /tw[oôóòöõø0].?$|tw[eêéèë3]lv[eêéèë3]/ {$answer.=2} case /thr[eêéèë3][eêéèë3].?$|th[iîíì\|1]rt[eêéèë3][eêéèë3]n/ {$answer.=3} case /f[oôóòöõø0][uûúùü]r.?$|f[oôóòöõø0][uûúùü]rt[eêéèë3][eêéèë3]n/ {$answer.=4} case /f[iîíì\|1]v[eêéèë3].?$|f[iîíì\|1]ft[eêéèë3][eêéèë3]n/ {$answer.=5} case /s[iîíì\|1]x.?$|s[iîíì\|1]xt[eêéèë3][eêéèë3]n/ {$answer.=6} case /s[eêéèë3]v[eêéèë3]n.?$|s[eêéèë3]v[eêéèë3]nt[eêéèë3][eêéèë3]n/ {$answer.=7} case /[eêéèë3][iîíì\|1]ght.?$|[eêéèë3][iîíì\|1]ght[eêéèë3][eêéèë3]n/ {$answer.=8} case /n[iîíì\|1]n[eêéèë3].?$|n[iîíì\|1]n[eêéèë3]t[eêéèë3][eêéèë3]n/ {$answer.=9} else {$answer.=0}}return $answer;)
type number
msg_0 [Police]
msg_1 Input this number:
msg_3 /(\w+)/
}

I just forgot 3 "@" inside the block...  :D

[Zealtous]

Great! Thanks for the help sir, I'll try it soon

Edit: Sir, I did try the code and it's a lot better, the code works almost fine except it didn't return the values to the talk num command.

Code: Select all

BotKillerFnc1: Type 'talk num <number #>' to input a number.
[reactOnNPC] onNPCAction type is: number.
[reactOnNPC] Reacting to NPC. Executing command "talk num ".
Error in function 'talk num' (Respond to NPC)
You must specify a number.

[Mucilon]

Try this one and post the console...

Code: Select all

reactOnNPC talk num @eval(my $numerotxt = #2~1;my $answer;message "[reactOnNPC] Text to translate: \"$numerotxt\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=1} case /d[ùúûüu][àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=2} case /t[ìíîïi]g[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=3} case /[èéêëe]mp[àáâãäåa]t.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=4} case /l[ìíîïi]m[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=5} case /[èéêëe]n[àáâãäåa]m.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=6} case /t[ùúûüu]j[ùúûüu]h.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=9}}message "[reactOnNPC] First code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?p[ùúûüu]l[ùúûüu]h|b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=9} else {$answer.=0}}message "[reactOnNPC] 2nd code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[àáâãäåa]t[ùúûüu].{0,3}$|s[èéêëe].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].{0,3}$|d[ùúûüu][àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].{0,3}$|t[ìíîïi]g[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.{0,3}$|[èéêëe]mp[àáâãäåa]t.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].{0,3}$|l[ìíîïi]m[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.{0,3}$|[èéêëe]n[àáâãäåa]m.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.{0,3}$|t[ùúûüu]j[ùúûüu]h.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.{0,3}$|d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=8} case /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 number
msg_0 [Police]
msg_1 Input this number:
msg_3 /(\w+)/
}

I need to see the message received from the NPC.

[Zealtous]

I changed the block with the one you gave, here's the message:

Code: Select all

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: se@rätüs@ dtüjûhmpülûhx tüjûh
[reactOnNPC] NPC message saved (2): "^1FB791^BEBB91se^997C5D@rätüs@^104B12 ^B719A3dtüjûhm^A92BA7pülûhx ^79936Ctüjûh^000000".
Unknown #110264398:  
[reactOnNPC] NPC message saved (3): " ".
Unknown #110264398: såtu dari lïma
[reactOnNPC] NPC message saved (4): "^9C16A9^2C1F8Csåtu^000000 dari ^C03D45lïma^000000".
Unknown #110264398:  sëmbïlánpülûh  detik untuk merespon
[reactOnNPC] NPC message saved (5): "^343DC7 ^C84329^866D09sëmbïlán^A27655pülûh ^B7088B^000000^4CBC07 detik untuk merespon".
Unknown #110264398: Auto-continuing talking
[reactOnNPC] onNPCAction type is: continue.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
NPC Exists: BotKillerFnc1 (140, 180) (ID 110264398) - (9)
BotKillerFnc1: Type 'talk num <number #>' to input a number.
[reactOnNPC] onNPCAction type is: number.
[reactOnNPC] Reacting to NPC. Executing command "talk num ".
Error in function 'talk num' (Respond to NPC)
You must specify a number.

Does the color code matter?

[Mucilon]

The color doesn't matter!
The problem is the line number!
This one will answer when text came at the 2nd line:

Code: Select all

reactOnNPC talk num @eval(use Log qw(message@);my $numerotxt = #2~1;my $answer;message "[reactOnNPC] Text to translate: \"$numerotxt\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=1} case /d[ùúûüu][àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=2} case /t[ìíîïi]g[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=3} case /[èéêëe]mp[àáâãäåa]t.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=4} case /l[ìíîïi]m[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=5} case /[èéêëe]n[àáâãäåa]m.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=6} case /t[ùúûüu]j[ùúûüu]h.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=9}}message "[reactOnNPC] First code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?p[ùúûüu]l[ùúûüu]h|b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=9} else {$answer.=0}}message "[reactOnNPC] 2nd code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[àáâãäåa]t[ùúûüu].{0,3}$|s[èéêëe].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].{0,3}$|d[ùúûüu][àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].{0,3}$|t[ìíîïi]g[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.{0,3}$|[èéêëe]mp[àáâãäåa]t.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].{0,3}$|l[ìíîïi]m[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.{0,3}$|[èéêëe]n[àáâãäåa]m.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.{0,3}$|t[ùúûüu]j[ùúûüu]h.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.{0,3}$|d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=8} case /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 number
useColors 0
msg_0 [Polisi]
msg_1 Masukkan angka ini:
msg_2 /(\w+)/
}

And this one at the 3rd line:

Code: Select all

reactOnNPC talk num @eval(use Log qw(message@);my $numerotxt = #3~1;my $answer;message "[reactOnNPC] Text to translate: \"$numerotxt\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=1} case /d[ùúûüu][àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=2} case /t[ìíîïi]g[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=3} case /[èéêëe]mp[àáâãäåa]t.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=4} case /l[ìíîïi]m[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=5} case /[èéêëe]n[àáâãäåa]m.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=6} case /t[ùúûüu]j[ùúûüu]h.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=9}}message "[reactOnNPC] First code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?p[ùúûüu]l[ùúûüu]h|b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=9} else {$answer.=0}}message "[reactOnNPC] 2nd code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[àáâãäåa]t[ùúûüu].{0,3}$|s[èéêëe].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].{0,3}$|d[ùúûüu][àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].{0,3}$|t[ìíîïi]g[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.{0,3}$|[èéêëe]mp[àáâãäåa]t.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].{0,3}$|l[ìíîïi]m[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.{0,3}$|[èéêëe]n[àáâãäåa]m.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.{0,3}$|t[ùúûüu]j[ùúûüu]h.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.{0,3}$|d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=8} case /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 number
useColors 0
msg_0 [Polisi]
msg_1 Masukkan angka ini:
msg_3 /(\w+)/
}

Use both at your config file and turn on debug.

[Zealtous]

I think the line number isn't the issue, as the previous code was

reactOnNPC talk num @eval(my $numerotxt = #2~1;

And the number was in second line:

[reactOnNPC] NPC message saved (1): "Masukkan angka ini:".
Unknown #110264398: se@rätüs@ dtüjûhmpülûhx tüjûh
[reactOnNPC] NPC message saved (2): "^1FB791^BEBB91se^997C5D@rätüs@^104B12 ^B719A3dtüjûhm^A92BA7pülûhx ^79936Ctüjûh^000000".

But here's the result after I pasted both code, I purposedly entered talk num 0 so that I can produce more examples

(Debug is 1)

Code: Select all

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: rtüjûhqpülûhy ltìga
[reactOnNPC] NPC message saved (2): "^9D231E^584E08rtüjûhq^272B0Cpülûhy ^59AB89ltìga^000000".
Unknown #110264398:  
[reactOnNPC] NPC message saved (3): " ".
Unknown #110264398: såtu dari lïma
[reactOnNPC] NPC message saved (4): "^15330C^0BAB63såtu^000000 dari ^47046Blïma^000000".
Unknown #110264398:  sëmbïlánpülûh  detik untuk merespon
[reactOnNPC] NPC message saved (5): "^761E20 ^ACA5A1^63C6B1sëmbïlán^2FC431pülûh ^18BD58^000000^53816F detik untuk merespon".
Unknown #110264398: Auto-continuing talking
[reactOnNPC] onNPCAction type is: continue.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
[reactOnNPC] Conditions for reactOnNPC_1 not met.
NPC Exists: BotKillerFnc1 (140, 180) (ID 110264398) - (9)
BotKillerFnc1: Type 'talk num <number #>' to input a number.
[reactOnNPC] onNPCAction type is: number.
[reactOnNPC] Reacting to NPC. Executing command "talk num ".
Error in function 'talk num' (Respond to NPC)
You must specify a number.
talk num 0
Police: **** wrong answer  (1 of 5)
BotKillerFnc1: [Polisi]
[reactOnNPC] NPC message saved (0): "[^0000FFPolisi^000000]".
BotKillerFnc1: Salah, jawaban yang benar adalah: 73
[reactOnNPC] NPC message saved (1): "^F51200Salah, jawaban yang benar adalah: ^00571E73^000000".
BotKillerFnc1:  
[reactOnNPC] NPC message saved (2): " ".
BotKillerFnc1: Jika kamu gagal 5 kali... kamu akan saya masukkan Penjara!
[reactOnNPC] NPC message saved (3): "Jika kamu gagal 5 kali... kamu akan saya masukkan Penjara!".
BotKillerFnc1:  84 detik untuk merespon
[reactOnNPC] NPC message saved (4): " ^0000FF84^000000 detik untuk merespon".
BotKillerFnc1: Auto-continuing talking
[reactOnNPC] onNPCAction type is: continue.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
[reactOnNPC] Conditions for reactOnNPC_1 not met.
NPC image: mets_alpha.bmp (0)
BotKillerFnc1: [Polisi]
[reactOnNPC] NPC message saved (0): "[^0000FFPolisi^000000]".
BotKillerFnc1: Masukkan angka ini:
[reactOnNPC] NPC message saved (1): "Masukkan angka ini:".
BotKillerFnc1:  
[reactOnNPC] NPC message saved (2): " ".
BotKillerFnc1: cempâtspülûh. cdüat
[reactOnNPC] NPC message saved (3): "^C0775C^246E8Fcempâts^5CB849pülûh. ^901494cdüat^000000".
BotKillerFnc1: düa dari lïma
[reactOnNPC] NPC message saved (4): "^5EBD36^1BB115düa^000000 dari ^AA5622lïma^000000".
BotKillerFnc1:  dêlâpånpülûh empât detik untuk merespon
[reactOnNPC] NPC message saved (5): "^C294C0 ^596908^4D5E72dêlâpån^1BB54Fpülûh ^B4C31Dempât^000000^4812A9 detik untuk merespon".
BotKillerFnc1: Auto-continuing talking
[reactOnNPC] onNPCAction type is: continue.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
[reactOnNPC] Conditions for reactOnNPC_1 not met.
BotKillerFnc1: Type 'talk num <number #>' to input a number.
[reactOnNPC] onNPCAction type is: number.
[reactOnNPC] Reacting to NPC. Executing command "talk num ".
Error in function 'talk num' (Respond to NPC)
You must specify a number.
talk num 0
Police: **** wrong answer  (2 of 5)
BotKillerFnc1: [Polisi]
[reactOnNPC] NPC message saved (0): "[^0000FFPolisi^000000]".
BotKillerFnc1: Salah, jawaban yang benar adalah: 42
[reactOnNPC] NPC message saved (1): "^F51200Salah, jawaban yang benar adalah: ^00571E42^000000".
BotKillerFnc1:  
[reactOnNPC] NPC message saved (2): " ".
BotKillerFnc1: Jika kamu gagal 5 kali... kamu akan saya masukkan Penjara!
[reactOnNPC] NPC message saved (3): "Jika kamu gagal 5 kali... kamu akan saya masukkan Penjara!".
BotKillerFnc1:  84 detik untuk merespon
[reactOnNPC] NPC message saved (4): " ^0000FF84^000000 detik untuk merespon".
BotKillerFnc1: Auto-continuing talking
[reactOnNPC] onNPCAction type is: continue.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
[reactOnNPC] Conditions for reactOnNPC_1 not met.
NPC image: mets_alpha.bmp (0)
BotKillerFnc1: [Polisi]
[reactOnNPC] NPC message saved (0): "[^0000FFPolisi^000000]".
BotKillerFnc1: Masukkan angka ini:
[reactOnNPC] NPC message saved (1): "Masukkan angka ini:".
BotKillerFnc1: kenãmjrätüs sëmbïlánpülûh ftüjûhl
[reactOnNPC] NPC message saved (2): "^7C149F^A911C7kenãmj^0BC7BCrätüs^89C499 ^682B77sëmbïlán^515886pülûh ^332710ftüjûhl^000000".
BotKillerFnc1: tìga dari lïma
[reactOnNPC] NPC message saved (3): "^87BF34^A73004tìga^000000 dari ^AD4F94lïma^000000".
BotKillerFnc1:  
[reactOnNPC] NPC message saved (4): " ".
BotKillerFnc1:  dêlâpånpülûh tìga detik untuk merespon
[reactOnNPC] NPC message saved (5): "^C088A4 ^492D88^8F3F51dêlâpån^92762Fpülûh ^C68751tìga^000000^4A0A42 detik untuk merespon".
BotKillerFnc1: Auto-continuing talking
[reactOnNPC] onNPCAction type is: continue.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
[reactOnNPC] Conditions for reactOnNPC_1 not met.
BotKillerFnc1: Type 'talk num <number #>' to input a number.
[reactOnNPC] onNPCAction type is: number.
[reactOnNPC] Reacting to NPC. Executing command "talk num ".
Error in function 'talk num' (Respond to NPC)
You must specify a number.
talk num 697
Police: **** passed the test
NPC image:  (0)
You are out of look: Ruwach
You are out of Frozen state
You are out of look: GM Perfect Hide
BotKillerFnc1: [Polisi]
[reactOnNPC] NPC message saved (0): "[^0000FFPolisi^000000]".
BotKillerFnc1: Terima kasih atas waktunya.
[reactOnNPC] NPC message saved (1): "Terima kasih atas waktunya.".
BotKillerFnc1: Done talking
[reactOnNPC] onNPCAction type is: close.
[reactOnNPC] Conditions for reactOnNPC_0 not met.
[reactOnNPC] Conditions for reactOnNPC_1 not met.
NPC Disappeared: BotKillerFnc1 (110264398)

[Mucilon]

I think I found it!
Try this one:

Code: Select all

reactOnNPC talk num @eval(use Log qw(message@);my $numerotxt = #2~1;my $answer;message "[reactOnNPC] Text to translate: \"$numerotxt\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=1} case /d[ùúûüu][àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=2} case /t[ìíîïi]g[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=3} case /[èéêëe]mp[àáâãäåa]t.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=4} case /l[ìíîïi]m[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=5} case /[èéêëe]n[àáâãäåa]m.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=6} case /t[ùúûüu]j[ùúûüu]h.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=9}}message "[reactOnNPC] First code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?p[ùúûüu]l[ùúûüu]h|b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=9} else {$answer.=0}}message "[reactOnNPC] 2nd code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[àáâãäåa]t[ùúûüu].{0,3}$|s[èéêëe].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].{0,3}$|d[ùúûüu][àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].{0,3}$|t[ìíîïi]g[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.{0,3}$|[èéêëe]mp[àáâãäåa]t.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].{0,3}$|l[ìíîïi]m[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.{0,3}$|[èéêëe]n[àáâãäåa]m.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.{0,3}$|t[ùúûüu]j[ùúûüu]h.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.{0,3}$|d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=8} case /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 /(\w+)/
}

reactOnNPC talk num @eval(use Log qw(message@);my $numerotxt = #3~1;my $answer;message "[reactOnNPC] Text to translate: \"$numerotxt\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=1} case /d[ùúûüu][àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=2} case /t[ìíîïi]g[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=3} case /[èéêëe]mp[àáâãäåa]t.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=4} case /l[ìíîïi]m[àáâãäåa].?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=5} case /[èéêëe]n[àáâãäåa]m.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=6} case /t[ùúûüu]j[ùúûüu]h.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?r[àáâãäåa]t[ùúûüu]s/ {$answer=9}}message "[reactOnNPC] First code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[èéêëe].?.?p[ùúûüu]l[ùúûüu]h|b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=8} case /s[èéêëe]mb[ìíîïi]l[àáâãäåa]n.?.?p[ùúûüu]l[ùúûüu]h/ {$answer.=9} else {$answer.=0}}message "[reactOnNPC] 2nd code to answer: \"$answer\".\n", "success";switch ($numerotxt@) { case /s[àáâãäåa]t[ùúûüu].{0,3}$|s[èéêëe].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=1} case /d[ùúûüu][àáâãäåa].{0,3}$|d[ùúûüu][àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=2} case /t[ìíîïi]g[àáâãäåa].{0,3}$|t[ìíîïi]g[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=3} case /[èéêëe]mp[àáâãäåa]t.{0,3}$|[èéêëe]mp[àáâãäåa]t.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=4} case /l[ìíîïi]m[àáâãäåa].{0,3}$|l[ìíîïi]m[àáâãäåa].?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=5} case /[èéêëe]n[àáâãäåa]m.{0,3}$|[èéêëe]n[àáâãäåa]m.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=6} case /t[ùúûüu]j[ùúûüu]h.{0,3}$|t[ùúûüu]j[ùúûüu]h.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=7} case /d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.{0,3}$|d[èéêëe]l[àáâãäåa]p[àáâãäåa]n.?.?b[èéêëe]l[àáâãäåa]s/ {$answer.=8} case /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_3 /(\w+)/
}

[Zealtous]

lol, it results an infinite loop :p

Code: Select all

[Nov 5 19:46:30 2008.90] Unknown #110264398: [Polisi]
[Nov 5 19:46:30 2008.90] [reactOnNPC] NPC message saved (0): "[^0000FFPolisi^000000]".
[Nov 5 19:46:30 2008.90] Unknown #110264398: Masukkan angka ini:
[Nov 5 19:46:30 2008.91] [reactOnNPC] NPC message saved (1): "Masukkan angka ini:".
[Nov 5 19:46:30 2008.91] Unknown #110264398: dempâtdrätüsp rdêlâpånrpülûh  düa
[Nov 5 19:46:30 2008.91] [reactOnNPC] NPC message saved (2): "^46964B^32B83Edempât^7A7C15drätüsp^0A8322 ^083A4Ardêlâpånr^5C28BDpülûh ^C5BC63 düa^000000".
[Nov 5 19:46:30 2008.91] Unknown #110264398: såtu dari lïma
[Nov 5 19:46:30 2008.91] [reactOnNPC] NPC message saved (3): "^566A1E^8C606Esåtu^000000 dari ^C86306lïma^000000".
[Nov 5 19:46:30 2008.92] Unknown #110264398:  
[Nov 5 19:46:30 2008.92] [reactOnNPC] NPC message saved (4): " ".
[Nov 5 19:46:30 2008.92] Unknown #110264398:  sëmbïlánpülûh  detik untuk merespon
[Nov 5 19:46:30 2008.92] [reactOnNPC] NPC message saved (5): "^0DA0C6 ^957B87^95B28Esëmbïlán^939023pülûh ^40B05B^000000^846D9B detik untuk merespon".
[Nov 5 19:46:30 2008.92] Unknown #110264398: Auto-continuing talking
[Nov 5 19:46:30 2008.92] [reactOnNPC] onNPCAction type is: continue.
[Nov 5 19:46:30 2008.94] [reactOnNPC] React to NPC with delay. Execute command "talk num " after 5 seconds.
[Nov 5 19:46:30 2008.99] NPC Exists: BotKillerFnc1 (140, 180) (ID 110264398) - (9)
[Nov 5 19:46:30 2008.77] BotKillerFnc1: Type 'talk num <number #>' to input a number.
[Nov 5 19:46:30 2008.21] [reactOnNPC] onNPCAction type is: number.
[Nov 5 19:46:30 2008.35] [reactOnNPC] Conditions for reactOnNPC_0 not met.
[Nov 5 19:46:30 2008.49] [reactOnNPC] Conditions for reactOnNPC_1 not met.
[Nov 5 19:46:34 2008.18] [reactOnNPC] Reacting to NPC. Executing command "talk num ".
[Nov 5 19:46:34 2008.32] Error in function 'talk num' (Respond to NPC)
You must specify a number.
[Nov 5 19:46:35 2008.15] [reactOnNPC] Reacting to NPC. Executing command "talk num ".
[Nov 5 19:46:35 2008.16] Error in function 'talk num' (Respond to NPC)
You must specify a number.
[Nov 5 19:46:35 2008.36] [reactOnNPC] Reacting to NPC. Executing command "talk num ".
[Nov 5 19:46:35 2008.38] Error in function 'talk num' (Respond to NPC)
You must specify a number.

And so on till I closed the bot :p

Btw, why the debug messages "Text to translate" and "Last code to answer:" aren't appearing either in my console or my log?

[Mucilon]

Well... this loop issue means that the plugin has a bug...
I really don't know why the messages I wrote at the reactOnNPC block aren't showing up...
I will think about this problem and will post some solution!

[Mucilon]

Zealtous
I found a bug at the block I wrote... I changed the switch - case sintax to if - elseif and I just forgot the end line sintax ";"
I also changed the plugin to make the delay option work, but I didn't test it...
Try this block, with the new version plugin:

Code: Select all

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 /(.+)/
}

reactOnNPCv211.pl