solution (thanks glennlevi):
This antibot installed on the server:glennlevi wrote:Rejoice! I have found out what was wrong with mortimal's 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 }
It cannot answer numbers in hundreds because of "\s+and" << this line. When the police asks you the question, it says (one hundred forty five, two hundred sixty one, etc.) and not (one hundred and forty five, two hundred and sixty one, etc). So just remove the quoted line above and then the macro will work ^_^
ZetaRO
Links:
macro.txt (rename the file)