Function key triple map

;Function key triple map
;====================
;Single press retains function
;Double press = Shift + Function Key
;Long press (+1 Second) = Ctrl + Function Key
SetBatchLines, -1
#NoEnv
SendMode Input

$F1::
$F2::
$F3::
$F4::
$F5::
$F6::
$F7::
$F8::
$F9::
$F10::
$F11::
$F12::
    key := SubStr(A_ThisHotkey, 2, 2)
    KeyWait, %key%, T1
    If ErrorLevel {
        Send, ^{%key%}
    } Else {
        KeyWait, %Key%, D T0.1
        If ErrorLevel {
            Send, {%Key%}
        } Else {
            Send, +{%Key%}
        }
    }
    KeyWait, %Key%
Return