[bypass Antibot] - Converting text to digital
Posted: 14 Aug 2013, 03:25
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)