Created
June 15, 2014 06:20
-
-
Save AndrioCelos/ce82e98aaa9a1f82a784 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| event (OnTextInput, SymbolShortcut) { | |
| if (%Processing == $true) {return;} | |
| %Processing = $true; | |
| %output = ""; | |
| %i = 0; | |
| while (%i < $str.length($0)) { | |
| if (%i == 0 && $str.mid($0, %i, 2) == "//") {%output .= "/say /"; %i += 2; continue;} | |
| %c = $str.mid($0, %i, 1); | |
| if (%c == "`") { | |
| if ($str.cmp($str.mid($0, %i, 5), "`ctcp", true) == 0) {%output .= $char(1); %i += 5; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`tab", true) == 0) {%output .= $char(9); %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`cr", true) == 0) {%output .= $cr; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`lf", true) == 0) {%output .= $lf; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 2), "``", true) == 0) {%output .= "`"; %i += 2; continue;} | |
| if ($str.cmp($str.mid($0, %i, 5), "`nbsp", true) == 0) {%output .= " "; %i += 5; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`A`", true) == 0) {%output .= "À"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`A'", true) == 0) {%output .= "Á"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`A^", true) == 0) {%output .= "Â"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`A~", true) == 0) {%output .= "Ã"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`A:", true) == 0) {%output .= "Ä"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 6), "`Aring", true) == 0) {%output .= "Å"; %i += 6; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`AE", true) == 0) {%output .= "Æ"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`C,", true) == 0) {%output .= "Ç"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`E`", true) == 0) {%output .= "È"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`E'", true) == 0) {%output .= "É"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`E^", true) == 0) {%output .= "Ê"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`E:", true) == 0) {%output .= "Ë"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`I`", true) == 0) {%output .= "Ì"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`I'", true) == 0) {%output .= "Í"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`I^", true) == 0) {%output .= "Î"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`I:", true) == 0) {%output .= "Ï"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`N~", true) == 0) {%output .= "Ñ"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`O`", true) == 0) {%output .= "Ò"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`O/", true) == 0) {%output .= "Ó"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`O^", true) == 0) {%output .= "Ô"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`O~", true) == 0) {%output .= "Õ"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`O:", true) == 0) {%output .= "Ö"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`O/", true) == 0) {%output .= "Ø"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`U`", true) == 0) {%output .= "Ù"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`U'", true) == 0) {%output .= "Ú"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`U^", true) == 0) {%output .= "Û"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`U:", true) == 0) {%output .= "Ü"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`Y'", true) == 0) {%output .= "Ý"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`a`", true) == 0) {%output .= "à"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`a'", true) == 0) {%output .= "á"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`a^", true) == 0) {%output .= "â"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`a~", true) == 0) {%output .= "ã"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`a:", true) == 0) {%output .= "ä"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 6), "`aring", true) == 0) {%output .= "å"; %i += 6; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`ae", true) == 0) {%output .= "æ"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`c,", true) == 0) {%output .= "ç"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`e`", true) == 0) {%output .= "è"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`e'", true) == 0) {%output .= "é"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`e^", true) == 0) {%output .= "ê"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`e:", true) == 0) {%output .= "ë"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`i`", true) == 0) {%output .= "ì"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`i/", true) == 0) {%output .= "í"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`i^", true) == 0) {%output .= "î"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`i:", true) == 0) {%output .= "ï"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`n~", true) == 0) {%output .= "ñ"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`o`", true) == 0) {%output .= "ò"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`o'", true) == 0) {%output .= "ó"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`o^", true) == 0) {%output .= "ô"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`o~", true) == 0) {%output .= "õ"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`o:", true) == 0) {%output .= "ö"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`o/", true) == 0) {%output .= "ø"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`u`", true) == 0) {%output .= "ù"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`u'", true) == 0) {%output .= "ú"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`u^", true) == 0) {%output .= "û"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`u:", true) == 0) {%output .= "ü"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`y'", true) == 0) {%output .= "ý"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`y:", true) == 0) {%output .= "ÿ"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`sec", true) == 0) {%output .= "§"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`(C)", true) == 0) {%output .= "©"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`not", true) == 0) {%output .= "¬"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`(R)", true) == 0) {%output .= "®"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`TM", true) == 0) {%output .= "™"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`deg", true) == 0) {%output .= "°"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 6), "`micro", true) == 0) {%output .= "µ"; %i += 6; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`dot", true) == 0) {%output .= "·"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`--;", true) == 0) {%output .= "–"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 5), "`---;", true) == 0) {%output .= "—"; %i += 5; continue;} | |
| if ($str.cmp($str.mid($0, %i, 6), "`pound", true) == 0) {%output .= "£"; %i += 6; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`yen", true) == 0) {%output .= "¥"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 5), "`euro", true) == 0) {%output .= "€"; %i += 5; continue;} | |
| if ($str.cmp($str.mid($0, %i, 5), "`sup1", true) == 0) {%output .= "¹"; %i += 5; continue;} | |
| if ($str.cmp($str.mid($0, %i, 5), "`sup2", true) == 0) {%output .= "²"; %i += 5; continue;} | |
| if ($str.cmp($str.mid($0, %i, 5), "`sup3", true) == 0) {%output .= "³"; %i += 5; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`1/4", true) == 0) {%output .= "¼"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`1/2", true) == 0) {%output .= "½"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`3/4", true) == 0) {%output .= "¾"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`<-", true) == 0) {%output .= "←"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 2), "`^", true) == 0) {%output .= "↑"; %i += 2; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`->", true) == 0) {%output .= "→"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 2), "`v", true) == 0) {%output .= "↓"; %i += 2; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`^v", true) == 0) {%output .= "↕"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`<>", true) == 0) {%output .= "↔"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`+-", true) == 0) {%output .= "±"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 2), "`*", true) == 0) {%output .= "×"; %i += 2; continue;} | |
| if ($str.cmp($str.mid($0, %i, 2), "`/", true) == 0) {%output .= "÷"; %i += 2; continue;} | |
| if ($str.cmp($str.mid($0, %i, 7), "`subset", true) == 0) {%output .= "⊂"; %i += 7; continue;} | |
| if ($str.cmp($str.mid($0, %i, 9), "`superset", true) == 0) {%output .= "⊃"; %i += 9; continue;} | |
| if ($str.cmp($str.mid($0, %i, 8), "`=subset", true) == 0) {%output .= "⊆"; %i += 8; continue;} | |
| if ($str.cmp($str.mid($0, %i, 10), "`=subset", true) == 0) {%output .= "⊇"; %i += 10; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`in", true) == 0) {%output .= "∈"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 9), "`contains", true) == 0) {%output .= "∋"; %i += 9; continue;} | |
| if ($str.cmp($str.mid($0, %i, 8), "`product", true) == 0) {%output .= "∏"; %i += 8; continue;} | |
| if ($str.cmp($str.mid($0, %i, 4), "`sum", true) == 0) {%output .= "∑"; %i += 4; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`-;", true) == 0) {%output .= "−"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`rt", true) == 0) {%output .= "√"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`!=", true) == 0) {%output .= "≠"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`~=", true) == 0) {%output .= "≈"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`<=", true) == 0) {%output .= "≤"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`>=", true) == 0) {%output .= "≥"; %i += 3; continue;} | |
| if ($str.cmp($str.mid($0, %i, 3), "`pi", true) == 0) {%output .= "π"; %i += 3; continue;} | |
| } | |
| %output .= %c; %i++; | |
| } | |
| say -x %output; | |
| %Processing = $false; | |
| halt; | |
| } |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment