long press.ahk

;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses.  They're structured in a way to make learning AHK EASY
; Right now you can  get a coupon code here: https://the-Automator.com/Learn
;*******************************************************
shift := []

Loop 10 {
	shift.Push(A_Index - 1)
}

Loop % Asc("z") - Asc("a") + 1 {
	shift.Push(Chr(Asc("a") + A_Index - 1))
}

for i, key in shift {
	fun := Func("KeyPressed").Bind(key, 300)
	Hotkey, % "$" key, % fun
}

KeyPressed(key, duration) {
	time := A_TickCount
	While(GetKeyState(key, "P")) {
		if(A_TickCount - time > duration) {
			Break
		}
		Sleep, 25
	}
	Send, % A_TickCount - time > duration ? "+" key : key
	KeyWait, % key
}