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