#SingleInstance force
#Persistent
#MaxThreadsPerHotkey 2000
Process, Priority, , High
SetKeyDelay -1, 0
PaceControl := "c"
SetTimer, WatchKeys, 10
return
WatchKeys:
if(!GetKeyState("LShift", "P"))
{
Send % (GetKeyState( "" . PaceControl . "" ) && !GetKeyState( "" . PaceControl . "", "P")) ? "{" . PaceControl . " up}" : ""
Send % GetKeyState("Numpad2") ? "{Numpad2 up}" : ""
Send % GetKeyState("Numpad4") ? "{Numpad4 up}" : ""
Send % GetKeyState("Numpad6") ? "{Numpad6 up}" : ""
Send % GetKeyState("Numpad8") ? "{Numpad8 up}" : ""
}
return
LShift & Up::
Send % GetKeyState( "" . PaceControl . "" ) ? "" : "{" . PaceControl . " down}"
Send {Numpad8 down}
return
LShift & Up up::
Send {Numpad8 up}
return
LShift & Down::
Send % GetKeyState( "" . PaceControl . "" ) ? "" : "{" . PaceControl . " down}"
Send {Numpad2 down}
return
LShift & Down up::
Send {Numpad2 up}
return
LShift & Left::
Send % GetKeyState( "" . PaceControl . "" ) ? "" : "{" . PaceControl . " down}"
Send {Numpad4 down}
return
LShift & Left up::
Send {Numpad4 up}
return
LShift & Right::
Send % GetKeyState( "" . PaceControl . "" ) ? "" : "{" . PaceControl . " down}"
Send {Numpad6 down}
return
LShift & Right up::
Send {Numpad6 up}
return
Up::Up
Down::Down
Left::Left
Right::Right
#Persistent
#MaxThreadsPerHotkey 2000
Process, Priority, , High
SetKeyDelay -1, 0
PaceControl := "c"
SetTimer, WatchKeys, 10
return
WatchKeys:
if(!GetKeyState("LShift", "P"))
{
Send % (GetKeyState( "" . PaceControl . "" ) && !GetKeyState( "" . PaceControl . "", "P")) ? "{" . PaceControl . " up}" : ""
Send % GetKeyState("Numpad2") ? "{Numpad2 up}" : ""
Send % GetKeyState("Numpad4") ? "{Numpad4 up}" : ""
Send % GetKeyState("Numpad6") ? "{Numpad6 up}" : ""
Send % GetKeyState("Numpad8") ? "{Numpad8 up}" : ""
}
return
LShift & Up::
Send % GetKeyState( "" . PaceControl . "" ) ? "" : "{" . PaceControl . " down}"
Send {Numpad8 down}
return
LShift & Up up::
Send {Numpad8 up}
return
LShift & Down::
Send % GetKeyState( "" . PaceControl . "" ) ? "" : "{" . PaceControl . " down}"
Send {Numpad2 down}
return
LShift & Down up::
Send {Numpad2 up}
return
LShift & Left::
Send % GetKeyState( "" . PaceControl . "" ) ? "" : "{" . PaceControl . " down}"
Send {Numpad4 down}
return
LShift & Left up::
Send {Numpad4 up}
return
LShift & Right::
Send % GetKeyState( "" . PaceControl . "" ) ? "" : "{" . PaceControl . " down}"
Send {Numpad6 down}
return
LShift & Right up::
Send {Numpad6 up}
return
Up::Up
Down::Down
Left::Left
Right::Right