TypeString (German)

-- Thanks to Nightmare85 for getting the German version working.

function OnEvent(event, arg, family)

    if event == "MOUSE_BUTTON_PRESSED" and arg == 4 then
        TypeString('^1aTöܲäß´°!"§$%&/()=?`5²\n{[]}\\<>@,;.:-_µ°°#+*|~+END')
    end

    if event == "G_PRESSED" and arg == 4 then
        TypeString('^1aTöܲäß´°!"§$%&/()=?`5²\n{[]}\\<>@,;.:-_µ°°#+*|~+END')
    end

end

function TypeString(str, hold, delay)
    local h = hold or 1
    local d = delay or 10
    local i, n = 1, # str

    local function TypeKey(k, h, d)
        if _KEYBOARD[k].modifier then
            PressKey( _KEYBOARD[k].modifier )
            if d > 0 then Sleep(d) end
            PressKey( _KEYBOARD[k].key )
            if h > 0 then Sleep(h) end
            ReleaseKey( _KEYBOARD[k].key )
            if d > 0 then Sleep(d) end
            ReleaseKey( _KEYBOARD[k].modifier )
        else
            PressKey( _KEYBOARD[k].key )
            if h > 0 then Sleep(h) end
            ReleaseKey( _KEYBOARD[k].key )
        end
    end

    while i <= n do
        if i > 1 and d > 0 then
            Sleep(d)
        end
        TypeKey( string.sub(str,i,i), h, d )
        i = i + 1
    end

end

--German keyboard layout
_KEYBOARD =
{
    --Special commands: 2 keys
    ["\n"] = { key = "enter" },
    ["\r"] = { key = "enter" },
    ["\t"] = { key = "tab" },

    --Special characters: 7 keys
    [","] = { key = "comma" },
    ["."] = { key = "period" },
    ["+"] = { key = "rbracket" },
    ["-"] = { key = "slash" },
    [" "] = { key = "spacebar" },
    ["<"] = { key = "non_us_slash" },
    ["#"] = { key = "backslash" },

    --Special characters with Shift: 6 keys
    ["*"] = { key = "rbracket", modifier = "lshift" },
    [";"] = { key = "comma", modifier = "lshift" },
    [":"] = { key = "period", modifier = "lshift" },
    ["_"] = { key = "slash", modifier = "lshift" },
    ["'"] = { key = 0x2b, modifier = "lshift" },
    [">"] = { key = "non_us_slash", modifier = "lshift" },

    --Special characters with Ctrl+Shift: 2 keys
    ["|"] = { key = "non_us_slash", modifier = "ralt" },
    ["~"] = { key = "rbracket", modifier = "ralt" },

    --Numerals: 13 keys
    ["^"] = { key = "tilde" },
    ["1"] = { key = "1" },
    ["2"] = { key = "2" },
    ["3"] = { key = "3" },
    ["4"] = { key = "4" },
    ["5"] = { key = "5" },
    ["6"] = { key = "6" },
    ["7"] = { key = "7" },
    ["8"] = { key = "8" },
    ["9"] = { key = "9" },
    ["0"] = { key = "0" },
    ["ß"] = { key = "minus" },
    ["´"] = { key = "equal" },

    --Numerals with Shift: 13 keys
    ["°"] = { key = "tilde", modifier = "lshift" },
    ["!"] = { key = "1", modifier = "lshift" },
    ['"'] = { key = "2", modifier = "lshift" },
    ["§"] = { key = "3", modifier = "lshift" },
    ["$"] = { key = "4", modifier = "lshift" },
    ["%"] = { key = "5", modifier = "lshift" },
    ["&"] = { key = "6", modifier = "lshift" },
    ["/"] = { key = "7", modifier = "lshift" },
    ["("] = { key = "8", modifier = "lshift" },
    [")"] = { key = "9", modifier = "lshift" },
    ["="] = { key = "0", modifier = "lshift" },
    ["?"] = { key = "minus", modifier = "lshift" },
    ["`"] = { key = "equal", modifier = "lshift" },

    --Numerals with Ctrl+Shift:  7 keys
    ["²"] = { key = "2", modifier = "ralt" },
    ["³"] = { key = "3", modifier = "ralt" },
    ["{"] = { key = "7", modifier = "ralt" },
    ["["] = { key = "8", modifier = "ralt" },
    ["]"] = { key = "9", modifier = "ralt" },
    ["}"] = { key = "0", modifier = "ralt" },
    ["\\"] = { key = "minus", modifier = "ralt" },

    --Letters: 29 keys
    ["a"] = { key = "a" },
    ["b"] = { key = "b" },
    ["c"] = { key = "c" },
    ["d"] = { key = "d" },
    ["e"] = { key = "e" },
    ["f"] = { key = "f" },
    ["g"] = { key = "g" },
    ["h"] = { key = "h" },
    ["i"] = { key = "i" },
    ["j"] = { key = "j" },
    ["k"] = { key = "k" },
    ["l"] = { key = "l" },
    ["m"] = { key = "m" },
    ["n"] = { key = "n" },
    ["o"] = { key = "o" },
    ["p"] = { key = "p" },
    ["q"] = { key = "q" },
    ["r"] = { key = "r" },
    ["s"] = { key = "s" },
    ["t"] = { key = "t" },
    ["u"] = { key = "u" },
    ["v"] = { key = "v" },
    ["w"] = { key = "w" },
    ["x"] = { key = "x" },
    ["y"] = { key = "y" },
    ["z"] = { key = "z" },
    ["ä"] = { key = "quote" },
    ["ö"] = { key = "semicolon" },
    ["ü"] = { key = "lbracket" },

    -- Letters with Shift: 29 keys
    ["A"] = { key = "a", modifier = "lshift" },
    ["B"] = { key = "b", modifier = "lshift" },
    ["C"] = { key = "c", modifier = "lshift" },
    ["D"] = { key = "d", modifier = "lshift" },
    ["E"] = { key = "e", modifier = "lshift" },
    ["F"] = { key = "f", modifier = "lshift" },
    ["G"] = { key = "g", modifier = "lshift" },
    ["H"] = { key = "h", modifier = "lshift" },
    ["I"] = { key = "i", modifier = "lshift" },
    ["J"] = { key = "j", modifier = "lshift" },
    ["K"] = { key = "k", modifier = "lshift" },
    ["L"] = { key = "l", modifier = "lshift" },
    ["M"] = { key = "m", modifier = "lshift" },
    ["N"] = { key = "n", modifier = "lshift" },
    ["O"] = { key = "o", modifier = "lshift" },
    ["P"] = { key = "p", modifier = "lshift" },
    ["Q"] = { key = "q", modifier = "lshift" },
    ["R"] = { key = "r", modifier = "lshift" },
    ["S"] = { key = "s", modifier = "lshift" },
    ["T"] = { key = "t", modifier = "lshift" },
    ["U"] = { key = "u", modifier = "lshift" },
    ["V"] = { key = "v", modifier = "lshift" },
    ["W"] = { key = "w", modifier = "lshift" },
    ["X"] = { key = "x", modifier = "lshift" },
    ["Y"] = { key = "y", modifier = "lshift" },
    ["Z"] = { key = "z", modifier = "lshift" },
    ["Ä"] = { key = "quote", modifier = "lshift" },
    ["Ö"] = { key = "semicolon", modifier = "lshift" },
    ["Ü"] = { key = "lbracket", modifier = "lshift" },

    -- Letters with Ctrl+Shift: 3 keys
    ["@"] = { key = "q", modifier = "ralt" },
    ["µ"] = { key = "m", modifier = "ralt" },
    --["€"] = { key = "e", modifier = "ralt" },
    --activate this line only when needed, otherwise the ["?"] might not work
}