Need Help BotKiller #1 - Method 1 (Word Numbers)

Other plugins for extending OpenKore's functionality. This forum is only for posting new plugins and commenting on existing plugins. For support, use the Support forum.

Moderator: Moderators

Message
Author
-Saint Seiya-
The Way Of Human
The Way Of Human
Posts: 182
Joined: 11 Apr 2008, 07:03

Need Help BotKiller #1 - Method 1 (Word Numbers)

#1 Post by -Saint Seiya- »

Image
i search and found this but it doesnt seems to work

Code: Select all

reactOnNPC talk num @eval(my $numerotxt = #2~1;my $answer;switch ($numerotxt) { case /one hundred/ {$answer=1} case /two hundred/ {$answer=2} case /tree hundred/ {$answer=3} case /four hundred/ {$answer=4} case /five hundred/ {$answer=5} case /six hundred/ {$answer=6} case /seven hundred/ {$answer=7} case /eight hundred/ {$answer=8} case /nine hundred/ {$answer=9} case /thrêe hundred/ {$answer=3} case /föûr hundred/ {$answer=4} case /fïve hundred/ {$answer=5} case /sïx hundred/ {$answer=6} case /sêvên hundred/ {$answer=7} case /eïght hundred/ {$answer=8} case /nïne hundred/ {$answer=9}}switch ($numerotxt) { case /ten/ {$answer.=1} case /twenty/ {$answer.=2} case /thirty/ {$answer.=3} case /forty/ {$answer.=4} case /fifty/ {$answer.=5} case /sixty/ {$answer.=6} case /seventy/ {$answer.=7} case /eighty/ {$answer.=8} case /ninety/ {$answer.=9} else {$answer.=0}}switch ($numerotxt) { case /one/ {$answer.=1} case /two/ {$answer.=2} case /tree/ {$answer.=3} case /four/ {$answer.=4} case /five/ {$answer.=5} case /six/ {$answer.=6} case /seven/ {$answer.=7} case /eight/ {$answer.=8} case /nine/ {$answer.=9} else {$answer.=0} { case /tên/ {$answer.=1} case /twênty/ {$answer.=2} case /thïrty/ {$answer.=3} case /förty/ {$answer.=4} case /fïfty/ {$answer.=5} case /sïxty/ {$answer.=6} case /sêvêntÿ/ {$answer.=7} case /eightÿ/ {$answer.=8} case /ninêtÿ/ {$answer.=9} else {$answer.=0}}switch ($numerotxt) { case /thrêe/ {$answer.=3} case /föûr/ {$answer.=4} case /fïve/ {$answer.=5} case /sïx/ {$answer.=6} case /sêvên/ {$answer.=7} case /eïght/ {$answer.=8} case /nïne/ {$answer.=9} else {$answer.=0}}return $answer;)
type number
msg_0 [Police]
msg_1 Input this number:
msg_2 /(\w+)/
there's another link but i keep on getting UTF-8 errors whenever i put that macro in. here's the code

Code: Select all

automacro XYY{
   console /.*:\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s+Hundred\s+and\s+.?(tên|elêvên|twêlve|thïrtêên|föûrtêên|fïftêên|sïxtêên|sêvêntêên|eïghtêên|nïnêtêên|ten|eleven|twelve|thirteen|fourteen|fifteen|sixteen|seventeen|eighteen|nineteen).?\s*$/i
   call XYY
}
macro XYY{
[
   $h = @eval({"one" => 100,"two" => 200,"thrêe" => 300,"föûr" => 400,"fïve" => 500,"sïx" => 600,"sêvên" => 700,"eïght" => 800,"nïne" => 900,"three" => 300,"four" => 400,"five" => 500,"six" => 600,"seven" => 700,"eight" => 800,"nine" => 900}->{"$.lastMatch1"})
   $pt = @eval({"ten" => 10,"eleven" => 11,"twelve" => 12,"thirteen" => 13,"fourteen" => 14,"fifteen" => 15,"sixteen" => 16,"seventeen" => 17,"eighteen" => 18,"nineteen" => 19,"tên" => 10,"elêvên" => 11,"twêlve" => 12,"thïrtêên" => 13,"föûrtêên" => 14,"fïftêên" => 15,"sïxtêên" => 16,"sêvêntêên" => 17,"eïghtêên" => 18,"nïnêtêên" => 19}->{"$.lastMatch2"})
   $res = @eval($h + $pt)
   log $res
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   pause 5
   do talk num $res
}

automacro XXX{
   console /^.*:\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s+Hundred\s+and\s+.?(twênty|thïrty|förty|fïfty|sïxty|sêvêntÿ|eightÿ|ninêtÿ|twenty|thirty|forty|fifty|sixty|seventy|eighty|ninety).?\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s*$/i
   call XXX
}

macro XXX{
[
   $h = @eval({"one" => 100,"two" => 200,"thrêe" => 300,"föûr" => 400,"fïve" => 500,"sïx" => 600,"sêvên" => 700,"eïght" => 800,"nïne" => 900,"three" => 300,"four" => 400,"five" => 500,"six" => 600,"seven" => 700,"eight" => 800,"nine" => 900}->{"$.lastMatch1"})
   $t = @eval({"twenty" => 20,"thirty" => 30,"forty" => 40,"fifty" => 50,"sixty" => 60,"seventy" => 70,"eighty" => 80,"ninety" => 90,"twênty" => 20,"thïrty" => 30,"förty" => 40,"fïfty" => 50,"sïxty" => 60,"sêvêntÿ" => 70,"eightÿ" => 80,"ninêtÿ" => 90}->{"$.lastMatch2"})
   $o = @eval({"one" => 1,"two" => 2,"thrêe" => 3,"föûr" => 4,"fïve" => 5,"sïx" => 6,"sêvên" => 7,"eïght" => 8,"nïne" => 9,"three" => 3,"four" => 4,"five" => 5,"six" => 6,"seven" => 7,"eight" => 8,"nine" => 9}->{"$.lastMatch3"})
   $res = @eval($h + $t + $o)
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   pause 5
   do talk num $res
}

automacro X0X{
   console /^.*:\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s+Hundred\s+and\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s*$/i
   call X0X
}

macro X0X{
[
   $h = @eval({"one" => 100,"two" => 200,"thrêe" => 300,"föûr" => 400,"fïve" => 500,"sïx" => 600,"sêvên" => 700,"eïght" => 800,"nïne" => 900,"three" => 300,"four" => 400,"five" => 500,"six" => 600,"seven" => 700,"eight" => 800,"nine" => 900}->{"$.lastMatch1"})
   $o = @eval({"one" => 1,"two" => 2,"thrêe" => 3,"föûr" => 4,"fïve" => 5,"sïx" => 6,"sêvên" => 7,"eïght" => 8,"nïne" => 9,"three" => 3,"four" => 4,"five" => 5,"six" => 6,"seven" => 7,"eight" => 8,"nine" => 9}->{"$.lastMatch2"})
   $res = @eval($h + $o)
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   pause 5
   do talk num $res
}

automacro XX0{
   console /^.*:\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s+Hundred\s+and\s+.?(twênty|thïrty|förty|fïfty|sïxty|sêvêntÿ|eightÿ|ninêtÿ|twenty|thirty|forty|fifty|sixty|seventy|eighty|ninety).?\s*$/i
   call XX0
}

macro XX0{
[
   $h = @eval({"one" => 100,"two" => 200,"thrêe" => 300,"föûr" => 400,"fïve" => 500,"sïx" => 600,"sêvên" => 700,"eïght" => 800,"nïne" => 900,"three" => 300,"four" => 400,"five" => 500,"six" => 600,"seven" => 700,"eight" => 800,"nine" => 900}->{"$.lastMatch1"})
   $t = @eval({"twenty" => 20,"thirty" => 30,"forty" => 40,"fifty" => 50,"sixty" => 60,"seventy" => 70,"eighty" => 80,"ninety" => 90,"twênty" => 20,"thïrty" => 30,"förty" => 40,"fïfty" => 50,"sïxty" => 60,"sêvêntÿ" => 70,"eightÿ" => 80,"ninêtÿ" => 90}->{"$.lastMatch2"})
   $res = @eval($h + $t)
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   pause 5
   do talk num $res
}

automacro X00{
   console /^^.*:\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s+Hundred(\s+and)?\s*$/i
   call X00
}

macro X00{
[
   $res = @eval({"one" => 100,"two" => 200,"thrêe" => 300,"föûr" => 400,"fïve" => 500,"sïx" => 600,"sêvên" => 700,"eïght" => 800,"nïne" => 900,"three" => 300,"four" => 400,"five" => 500,"six" => 600,"seven" => 700,"eight" => 800,"nine" => 900}->{"$.lastMatch1"})
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   do talk num $res
}


automacro XX{
   console /^.*:\s+.?(twênty|thïrty|förty|fïfty|sïxty|sêvêntÿ|eightÿ|ninêtÿ|twenty|thirty|forty|fifty|sixty|seventy|eighty|ninety).?\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s*$/i
   call XX
}

macro XX{
[
   $t = @eval({"twenty" => 20,"thirty" => 30,"forty" => 40,"fifty" => 50,"sixty" => 60,"seventy" => 70,"eighty" => 80,"ninety" => 90,"twênty" => 20,"thïrty" => 30,"förty" => 40,"fïfty" => 50,"sïxty" => 60,"sêvêntÿ" => 70,"eightÿ" => 80,"ninêtÿ" => 90}->{"$.lastMatch1"})
   $o = @eval({"one" => 1,"two" => 2,"thrêe" => 3,"föûr" => 4,"fïve" => 5,"sïx" => 6,"sêvên" => 7,"eïght" => 8,"nïne" => 9,"three" => 3,"four" => 4,"five" => 5,"six" => 6,"seven" => 7,"eight" => 8,"nine" => 9}->{"$.lastMatch2"})
   $res = @eval($t + $o)
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   pause 5
   do talk num $res
}


automacro YY{
   console /^.*:\s+.?(tên|elêvên|twêlve|thïrtêên|föûrtêên|fïftêên|sïxtêên|sêvêntêên|eïghtêên|nïnêtêên|ten|eleven|twelve|thirteen|fourteen|fifteen|sixteen|seventeen|eighteen|nineteen).?\s*$/i
   call YY
}
macro YY{
[
   $res = @eval({"ten" => 10,"eleven" => 11,"twelve" => 12,"thirteen" => 13,"fourteen" => 14,"fifteen" => 15,"sixteen" => 16,"seventeen" => 17,"eighteen" => 18,"nineteen" => 19,"tên" => 10,"elêvên" => 11,"twêlve" => 12,"thïrtêên" => 13,"föûrtêên" => 14,"fïftêên" => 15,"sïxtêên" => 16,"sêvêntêên" => 17,"eïghtêên" => 18,"nïnêtêên" => 19}->{"$.lastMatch1"})
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   pause 5
   do talk num $res
}

automacro X0{
   console /^.*:\s+.?(twênty|thïrty|förty|fïfty|sïxty|sêvêntÿ|eightÿ|ninêtÿ|twenty|thirty|forty|fifty|sixty|seventy|eighty|ninety).?\s*$/i
   call X0
}
macro X0{
[
   $res = @eval({"twenty" => 20,"thirty" => 30,"forty" => 40,"fifty" => 50,"sixty" => 60,"seventy" => 70,"eighty" => 80,"ninety" => 90,"twênty" => 20,"thïrty" => 30,"förty" => 40,"fïfty" => 50,"sïxty" => 60,"sêvêntÿ" => 70,"eightÿ" => 80,"ninêtÿ" => 90}->{"$.lastMatch1"})
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   pause 5
   do talk num $res
}

automacro X{
   console /^.*:\s+.?(one|two|thrêe|föûr|fïve|sïx|sêvên|eïght|nïne|one|two|three|four|five|six|seven|eight|nine).?\s*$/i
   call X
}

macro X{
[
   $res = @eval({"one" => 1,"two" => 2,"thrêe" => 3,"föûr" => 4,"fïve" => 5,"sïx" => 6,"sêvên" => 7,"eïght" => 8,"nïne" => 9,"three" => 3,"four" => 4,"five" => 5,"six" => 6,"seven" => 7,"eight" => 8,"nine" => 9}->{"$.lastMatch1"})
]
   log -o--o--o--o--o- $res -o--o--o--o--o-
   pause 5
   do talk num $res
}

-Saint Seiya-
The Way Of Human
The Way Of Human
Posts: 182
Joined: 11 Apr 2008, 07:03

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#2 Post by -Saint Seiya- »

if there's any hint or something which i can try it out please point it out to me thanks

Mortimal
Developers
Developers
Posts: 389
Joined: 01 Nov 2008, 15:31
Noob?: No

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#3 Post by Mortimal »

Save your file in UTF8, БЛЕАТЬ! My macro is working... 100%...
Please use pin function for uploading your file contents!

-Saint Seiya-
The Way Of Human
The Way Of Human
Posts: 182
Joined: 11 Apr 2008, 07:03

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#4 Post by -Saint Seiya- »

hmm mine is not? whats happening?

so you mean you're using the macro i posted? and its working fine?

Mortimal
Developers
Developers
Posts: 389
Joined: 01 Nov 2008, 15:31
Noob?: No

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#5 Post by Mortimal »

I need examples of your not working numbers. logconsole 1 in xkore 1 mode pls. Only lines with word numbers. 10 will be enough.
Please use pin function for uploading your file contents!

eirodized
Noob
Noob
Posts: 2
Joined: 07 Oct 2011, 02:58
Noob?: Yes

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#6 Post by eirodized »

Are those codes for openkore or xkore?

keicee
Noob
Noob
Posts: 9
Joined: 24 Apr 2008, 05:51

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#7 Post by keicee »

how will i know my server's letter&numbers?

i think they are different cause the macro is not working for me. :mrgreen:

Mortimal
Developers
Developers
Posts: 389
Joined: 01 Nov 2008, 15:31
Noob?: No

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#8 Post by Mortimal »

keicee logConsole 1 10 examples of letters put here
Please use pin function for uploading your file contents!

keicee
Noob
Noob
Posts: 9
Joined: 24 Apr 2008, 05:51

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#9 Post by keicee »

Mortimal wrote:keicee logConsole 1 10 examples of letters put here
here it is.

zsêvênn Hundred qsêvêntÿ rsïxg
wnïne Hundred vthïrty föûr
fïvec Hundred kfïftêênn
föûrm Hundred heightÿh eïght
eïght Hundred tthïrtêên
fföûr Hundred xeightÿy two
qsêvên Hundred eightÿ
xsêvênj Hundred thïrty~ thrêe

EDIT: I figured out that it doest work 3 and 4 word numbers example "fïvec Hundred kfïftêênn" "qsêvên Hundred eightÿ jsïx" but it works with 2 word numbers, example "fïvec Hundred" or "eightÿy jsïx"

glennlevi
Plain Yogurt
Plain Yogurt
Posts: 58
Joined: 19 May 2011, 00:40
Noob?: Yes

Re: Need Help BotKiller #1 - Method 1 (Word Numbers)

#10 Post by glennlevi »

Has anyone worked further into this? The macro works (set encoding to UTF-8), but only for two digit number like : (forty five, seventy one, etc)

Post Reply