R:: ;удобно

While (GetKeyState("sc13", "p"))
 {
	SendInput, {vk1 down}
 }
	SendInput, {vk1 up}	
return

я вроде как сделал что-то работающее, скажите правильно ли? Можно ли его оптимизовать как-то? А также сделать так чтобы можно было на кнопку R нажимать, не ставя скрипт в режим Suspend

R::
click
GetKeyState, state, LBotton
if state = D
SendInput {vk1 Down}

Нужно чтобы при нажатии на R один раз, происходил один клик, при зажатии R происходило зажатие ЛКМ