cas.ahk

glyphs := {"0": {a: "ᐊ", i: "ᐃ", e: "ᐁ", u: "ᐅ",    aa: "ᐋ", ii: "ᐄ", uu: "ᐆ",        f: ""}}
glyphs["p"]  := {a: "ᐸ", i: "ᐱ", e: "ᐯ", u:"ᐳ",     aa: "ᐹ", ii: "ᐲ", uu: "ᐴ",        f: "ᑉ"}
glyphs["t"]  := {a: "ᑕ", i: "ᑎ", e: "ᑌ", u:"ᑐ",     aa: "ᑖ", ii: "ᑏ", uu: "ᑑ",        f: "ᑦ"}
glyphs["k"]  := {a: "ᑲ", i: "ᑭ", e: "ᑫ", u:"ᑯ",     aa: "ᑳ", ii: "ᑮ", uu: "ᑰ",        f: "ᒃ"}
glyphs["c"]  := {a: "ᒐ", i: "ᒋ", e: "ᒉ", u:"ᒍ",     aa: "ᒑ", ii: "ᒌ", uu: "ᒎ",        f: "ᒡ"}
glyphs["m"]  := {a: "ᒪ", i: "ᒥ", e: "ᒣ", u:"ᒧ",     aa: "ᒫ", ii: "ᒦ", uu: "ᒨ",        f: "ᒻ"}
glyphs["n"]  := {a: "ᓇ", i: "ᓂ", e: "ᓀ", u:"ᓄ",     aa: "ᓈ", ii: "ᓃ", uu: "ᓅ",        f: "ᓐ"}
glyphs["s"]  := {a: "ᓴ", i: "ᓯ", e: "ᓭ", u:"ᓱ",     aa: "ᓵ", ii: "ᓰ", uu: "ᓲ",        f: "ᔅ"}
glyphs["sh"] := {a: "ᔕ", i :"ᔑ", e: "ᔐ", u:"ᔓ",     aa: "ᔖ", ii:"ᔒ", uu: "ᔔ",         f: "ᔥ"}
glyphs["y"]  := {a: "ᔭ", i: "ᔨ", e: "ᔦ", u:"ᔪ",     aa: "ᔮ", ii: "ᔩ", uu: "ᔫ",        f: "ᔾ"}
glyphs["r"]  := {a: "ᕋ", i:"ᕆ", e: "ᕃ", u:"ᕈ",      aa: "ᕌ", ii:"ᕇ", uu: "ᕉ",         f: "ᕐ"}
glyphs["l"]  := {a: "ᓚ", i:"ᓕ", e: "ᓓ", u:"ᓗ",      aa: "ᓛ", ii:"ᓖ", uu: "ᓘ",         f: "ᓪ"}
glyphs["f"]  := {a: "ᕙ", i:"ᕕ", e: "ᕓ", u:"ᕗ",      aa: "ᕚ", ii:"ᕖ", uu: "ᕘ",         f: "ᕝ"}
glyphs["th"] := {a: "ᕦ", i:"ᕠ", e: "ᕞ", u:"ᕤ",      aa: "ᕧ", ii:"ᕢ", uu: "ᕥ",         f: "ᕪ"}
glyphs["w"]  := {a: "ᐗ", i:"ᐎ", e: "ᐌ", u:"ᐒ",      aa: "ᐙ", ii:"ᐐ", uu: "ᐔ",         f: "ᐤ"}
glyphs["h"]  := {a: "ᐦᐁ", i:"ᐦᐃ", e: "ᐦᐁ", u:"ᐦᐅ",      aa: "ᐦᐋ", ii:"ᐦᐄ", uu: "ᐦᐆ",        f: "ᐦ"}
MsgBox Canadian Syllabics (Eastern Cree) mode activated.

a::
i::
e::
u::
Send % glyphs["0", A_ThisHotkey]
Return
o::Send glyphs["0", "aa"]
j::Send glyphs["0", "ii"]
v::Send glyphs["0", "uu"]

p::
t::
k::
c::
m::
n::
s::
<^>!s::
y::
r::
l::
f::
<^>!t::
w::
h::
Hotkey a, Off
Hotkey e, Off
Hotkey i, Off
Hotkey u, Off
Hotkey o, Off
Hotkey j, Off
Hotkey v, Off
Input vowel, l1
if vowel not in a,i,e,u,o,j,v
    vowel = f
consonant := A_ThisHotkey = "<^>!s" ? "sh" : A_ThisHotkey = "<^>!t" ? "th" : A_ThisHotkey
vowel := vowel = "o" ? "aa" : vowel = "j" ? "ii" : vowel = "v" ? "uu" : vowel
Send % glyphs[consonant][vowel]
Hotkey a, On
Hotkey e, On
Hotkey i, On
Hotkey u, On
Hotkey o, On
Hotkey j, On
Hotkey v, On
Return

Esc::
MsgBox Canadian Syllabics (Eastern Cree) mode deactivated.
ExitApp