"kana.ahk"
By RainbowDashite (https://pastebin.com/u/RainbowDashite)

URL: https://pastebin.com/Gt7LKQR8
Created on: Saturday 28th of December 2013 11:54:56 AM CDT
Retrieved on: Saturday 31 of October 2020 04:00:58 PM UTC


 /*
    ????? ????? ????? ????? ????? ????? ????? ? ? ? ????? ?? ?? ?
    ????? ????? ????? ????? ????? ????? ????? ??? ????? ?? ?
    */
    pureVowels() {
            Hotkey, a, toggle
            Hotkey, e, toggle
            Hotkey, i, toggle
            Hotkey, o, toggle
            Hotkey, u, toggle
    }
     
    vdeterm(hiragana, katakana) {
            global kana
            pureVowels()
            SplashTextOn, 200, 20, Starting consonant, %A_ThisHotkey%
            letters := (kana = "hira") ? hiragana : katakana
            Input vowel, l2, \, a,i,u,e,o
            SplashTextOff
            If vowel = a
                    Send % Substr(letters, 1, 1)
            Else if vowel = i
                    Send % Substr(letters, 2, 1)
            Else if vowel = u
                    Send % Substr(letters, 3, 1)
            Else if vowel = e
                    Send % substr(letters, 4, 1)
            Else if vowel = o
                    Send % substr(letters, 5, 1)
            Else if vowel = ya
            {
                    Send % substr(letters, 6, 1)
                    Sleep 60
                    Send % singleVowelDeterm("?", "?")
            }
            Else if vowel = yu
            {
                    Send % substr(letters, 6, 1)
                    Sleep 60
                    Send % singleVowelDeterm("?", "?")
            }
            Else if vowel = yo
            {
                    Send % substr(letters, 6, 1)
                    Sleep 60
                    Send % singleVowelDeterm("?", "?")
            }
            Else if vowel = wa
            {
                    Send % substr(letters, 6, 1)
                    Sleep 60
                    Send % singleVowelDeterm("?", "?")
            }
            Else, Send, %A_Space%
            pureVowels()
    }
     
    singleVowelDeterm(hiragana, katakana) {
            global kana
            if kana = hira
                    Send %hiragana%
            else
                    Send %katakana%
    }
     
    kana = hira
    RControl::
    kana := (kana = "hira") ? "kata" : "hira"
    rendaku := (kana = "hira") ? "g" : "k"
    TrayTip, Kana mode changed, You are now typing in %kana%%rendaku%ana., 10, 1
    return
     
    a::singleVowelDeterm("?", "?")
    i::singleVowelDeterm("?", "?")
    u::singleVowelDeterm("?", "?")
    e::singleVowelDeterm("?", "?")
    o::singleVowelDeterm("?", "?")
    +n::singleVowelDeterm("?", "?")
    c::singleVowelDeterm("?", "?")
    +a::singleVowelDeterm("?", "?")
    +i::singleVowelDeterm("?", "?")
    +u::singleVowelDeterm("?", "?")
    +e::singleVowelDeterm("?", "?")
    +o::singleVowelDeterm("?", "?")
     
    q::Send ?
    x::Send ?
    +x::Send ?
     
    k::vdeterm("???????", "???????")
    s::vdeterm("?????? ", "?????? ")
    t::vdeterm("?????? ", "?????? ")
    n::vdeterm("????? ", "?????? ")
    h::vdeterm("??????", "?????? ")
    m::vdeterm("?????? ", "?????? ")
    y::vdeterm("? ? ?  ", "? ? ?  ")
    r::vdeterm("?????? ", "?????? ")
    w::vdeterm("?? ??  ", "?? ??  ")
    g::vdeterm("???????", "???????")
    z::vdeterm("?????? ", "?????? ")
    d::vdeterm("?????? ", "?????? ")
    b::vdeterm("?????? ", "?????? ")
    p::vdeterm("?????? ", "?????? ")
    v::vdeterm("      ", "?????  ")
     
    Esc::
    MsgBox Kana mode terminated.
    ExitApp