AutoHotKey64.ahk

#Requires AutoHotkey v2
#SingleInstance
ListLines(0), KeyHistory(0)
ProcessSetPriority("High")

for k, v in Map("a","d","w","s")
    Set(k, v, 0), Set(v, k, 0), Set(k, v, 1), Set(v, k, 1)

Set(a, b, up) {
    if up
        return Hotkey("*" a " Up", (
                (a, b, *) => (
                    Hotkey("*" a, "On"), SendInput("{Blind}{" (GetKeyState(b, "P") and !GetKeyState(b) ? a " up}{" b " down}" : a " up}" ))
                )
            ).Bind(a, b)
        )
    Hotkey("*" a, (
            (a, b, *) => (
                Hotkey("*" a, "Off"), SendInput("{Blind}{" (GetKeyState(b) ? b " up}{" a " down}" : a " down}" ))
            )
        ).Bind(a, b)
    )
}