different actions for the "." key

[John1]

Hello,

I have this, when i press a key one, two times or longer it does different actions.
How could i write this the "." "," "-" keys?

Thank you!

Code: Select all

;A (A)
A::
    KeyWait, A , T0.1

    if (ErrorLevel)
        gosub GoSub_10_A3        ;Long

    else {
        KeyWait, A, D T0.1      

        if (ErrorLevel)            ; 1x
            gosub GoSub_10_A1

        else
            gosub GoSub_10_A2   ; 2x
    }

    KeyWait, A
    
return

GoSub_10_A1:
SoundBeep
return


GoSub_10_A2:
SoundBeep
return


GoSub_10_A3:
SoundBeep
return
;E (A)

[flyingDman]

See here: viewtopic.php?f=76&t=102270

My favorite is Morse() https://www.autohotkey.com/board/topic/15574-morse-find-hotkey-press-and-hold-patterns/ , an oldie

Code: Select all

$.::
   p := Morse()
   If (p = "0")
		send, .
   If (p = "00")
		send, `,
   If (p = "000")
		send, -
Return

[John1]

@flyingDman
Thanks a lot for your reply!

[John1]

@flyingDman

I tried with your method. I did not understand how to make it that fast like my version with T0.1.

Thank you!