AHK: Задание условия на нажатие клавиши

Count := 0, Period := 2000 ; 2сек.
Arr:= ["{F2}", "+{F2}", "^+{]}{e}"]
$F2:: SendInput % Arr[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<Period))+1]

Count := 0, Period := 1100
f6:= ["!{o}{r}{t}", "!{o}{r}{a}"]
$F6:: SendInput % f6[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<Period))+1]

Count := 0, Period := 1100
f10:= ["{!{t 2}{c}", "!{o}{k 2}{enter}{tab 3}"]
$F10:: SendInput % f10[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<Period))+1]

#UseHook
Delay := 1100
Arr := {1:{"LabelName":"Odin"}
        , "vk51":{LabelName:"Q"}}
        
For key in Arr 
{
    Hotkey, %key%, Work
    Arr[key][Count] := 0
}
Return

Work: 
    Arr[A_ThisHotkey][Count] := (A_TickCount - (Arr[A_ThisHotkey]["Time"]) < Delay) ? (Arr[A_ThisHotkey][Count] + 1) : 1
    Arr[A_ThisHotkey]["Time"] := A_TickCount 
    ; Раскоментировать, если при превышении лимита меток надо сразу запускать первую (зациклить).
    ; IsLabel(Arr[A_ThisHotkey]["LabelName"] "_" Arr[A_ThisHotkey][Count]) ? 0 : (Arr[A_ThisHotkey][Count] := 1)
    Try Gosub, % Arr[A_ThisHotkey]["LabelName"] "_" Arr[A_ThisHotkey][Count]
    Return
    
Odin_1:
Odin_2:
Odin_3:
Odin_4:
Q_1:
Q_2:
Q_3:
    ToolTip % A_ThisLabel
    Return

#UseHook
Delay := 1100
Arr := {1:{"Label":"Odin"}}
        
For key in Arr  {
    Hotkey, %key%, Work
    Arr[key]["C"] := 0
}
Return

Work: 
    o := Arr[A_ThisHotkey], o["C"] := A_TickCount - o["T"] < Delay ? o["C"] + 1 : 1 
    o["T"] := A_TickCount, IsLabel(o["Label"] "_" o["C"]) ? 0 : (o["C"] := 1)
    Try Gosub, % o["Label"] "_" o["C"]
    Return
    
Odin_1:
    Send ^+{Esc}
    Return
    
Odin_2:
    MsgBox,,,Hello!,0.3
    Return

#UseHook
Delay := 1100
Arr := {1:{"Label":"Odin"}
        , "+vk51":{"Label":"Shift+Q"}}
        
For key in Arr  {
    Hotkey, %key%, Work
    Arr[key]["C"] := 0
}
Return

Work: 
    o := Arr[A_ThisHotkey], o["C"] := A_TickCount - o["T"] < Delay ? o["C"] + 1 : 1 
    IsLabel(o["Label"] "_" o["C"]) ? (o["T"] := A_TickCount) : 0
    ; Раскоментировать, если при превышении лимита меток надо сразу запускать первую (зациклить). 
    ; И закомментировать строку выше.
    ; o["T"] := A_TickCount, IsLabel(o["Label"] "_" o["C"]) ? 0 : (o["C"] := 1) 
    Try Gosub, % o["Label"] "_" o["C"]
    Return
    
Odin_1:
    Send ^+{Esc}
    Return
    
Odin_2:
    MsgBox,,,Hello!,0.3
    Return

Shift+Q_1: 
    MsgBox,,,Shift+Q 1,0.3
    Return

#UseHook 
Arr := {1:{"Label":"Odin", "Delay":1100}
        , "vk51":{"Label":"Q", "Delay":2200}}
        
For key in Arr  {
    Hotkey, %key%, Work
    Arr[key]["C"] := 0
}
Return

Work:
    o := Arr[A_ThisHotkey], o["C"] := A_TickCount - o["T"] < o["Delay"] ? o["C"] + 1 : 1 
    o["T"] := A_TickCount, IsLabel(o["Label"] "_" o["C"]) ? 0 : (o["C"] := 1) 
    ; Раскоментировать, если при превышении лимита надо ожидать "Delay" перед вызовом первой. 
    ; И закомментировать строку выше.
    ; IsLabel(o["Label"] "_" o["C"]) ? (o["T"] := A_TickCount) : 0
    Try Gosub, % o["Label"] "_" o["C"]
    Return
     
    
Odin_1:
Odin_2:
Odin_3:
Odin_4:
Q_1:
Q_2:
Q_3:
    MsgBox,,, % A_ThisLabel, 0.2
    Return

#MaxHotkeysPerInterval 999
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
SetTitleMatchMode 2
DetectHiddenWindows On
SendMode Input
SetKeyDelay -1

#IfWinActive, Vegas Pro 13.0

#UseHook
ArrVegas:=	{vk53:{"Label":"S", "Delay":250}
			, "F2":{"Label":"F2", "Delay":250}}
		
For key in ArrVegas  {
	Hotkey, %key%, Work
	ArrVegas[key]["C"] := 0
}
Return

Work:
	o := ArrVegas[A_ThisHotkey], o["C"] := A_TickCount - o["T"] < o["Delay"] ? o["C"] + 1 : 1 
	o["T"] := A_TickCount, IsLabel(o["Label"] "_" o["C"]) ? 0 : (o["C"] := 1) 
	; Раскоментировать, если при превышении лимита надо ожидать "Delay" перед вызовом первой. 
	; И закомментировать строку выше.
	; IsLabel(o["Label"] "_" o["C"]) ? (o["T"] := A_TickCount) : 0
	Try Gosub, % o["Label"] "_" o["C"]
	Return

S_1:
	SendInput !eee{Right}{Up 4}{Enter}
	Return

S_2:
	SendInput !eee{Right}n!tts
	Return

F2_1:
	SendInput !0^!+k
	Return
			
F2_2:						
	SendInput +^[{vk52}
	Return
	
#IfWinActive, ahk_exe notepad.exe

a:: Send b
b:: Send a

#SingleInstance Force

Arr:=	{vk41:{"Label":"A", "Delay":1000} ;		a
		, vk42:{"Label":"B", "Delay":1000}} ;	b	
		
		
For key in Arr  {
	Hotkey, %key%, Work
	Arr[key]["C"] := 0
}
Return

Work:
	o := Arr[A_ThisHotkey], o["C"] := A_TickCount - o["T"] < o["Delay"] ? o["C"] + 1 : 1 
	;~ o["T"] := A_TickCount, IsLabel(o["Label"] "_" o["C"]) ? 0 : (o["C"] := 1)			; No Wait "Delay"
	IsLabel(o["Label"] "_" o["C"]) ? (o["T"] := A_TickCount) : 0							; Wait "Delay"
	Try Gosub, % o["Label"] "_" o["C"]

A_1:
	MsgBox, Вы нажали на "А"
	return
	
A_2:
	SoundBeep, 9000
	return

B_1:
	SendInput a
	return

Count := 0

s::
	arr:=["s", "ss"]
	gosub MultiKey
	return

d::
	arr:=["d", "dd", "ddd"]
	gosub MultiKey
	return

MultiKey:
	SendInput % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<1000))+1]
	return

Count := 0

s::
	%A_ThisHotkey%:=["s", "ss"]

	SendInput % %A_ThisHotkey%[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<1000))+1]
	return

	Count := 0
	
	s:=["s", "ss"]

	d:=["d", "dd", "ddd"]

	SendInput % %Клавиша, которая была нажата%[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<1000))+1]
	return

#SingleInstance Force

/*
[Section]
Mode=2
[End]
*/

Count := 0
IniRead, Mode, %A_ScriptFullPath%, Section, Mode
Arr := {"$f120":{1:"!{vk54 2}{vk43}"               ; Mode 0
                ,2:"!{vk4F}{vk4B 2}{Enter}{Tab}"}
		,"$s0":{1:"!{vk45}{Up 9}{Right}{vk53}"     ; Mode 0
		       ,2:"!{vk54 2}{vk43}!{vk45 3}{Right}{vk4E}!{vk54 2}"}
	   ,"$f21":{1:"{vk4B}"                        ; Mode = 1
	          ,2:"^!+{vk4B}"
			  ,3:"+^{vkDB}{vkC0}{vk52}"} 
      ,"$f22":{1:"^!+{vk4B}"                      ; Mode = 2 
	          ,2:"+^{vkDB}{vkC0}{vk52}"}}             
Return

$s::
$f12::
$f2::
   Key := A_ThisHotkey . Arr.HasKey(A_ThisHotkey Mode)*Mode
   ,Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<250))+1
   SendInput % Arr[Key][Count]
Return

^F1:: IniWrite, % (Mode := 1), %A_ScriptFullPath%, Section, Mode 
^F2:: IniWrite, % (Mode := 2), %A_ScriptFullPath%, Section, Mode

F1::
	Count := 0
	arr:= ["^s", "^o"]
	; arr:= ["File, Save", "File, Open..."]
SendInput % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<1000))+1]
; WinMenuSelectItem, Notepad, , % ?????
	return

F1::
	Count := 0
	arr:= ["^s", "File, Open..."]
	; if ???
	SendInput % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<1000))+1]
	; else
	; WinMenuSelectItem, Notepad, , % arr[1], % arr[2]
	return

F1::
	Count := 0
	arr:= ["^s", "File, Open..."]
	; если в параметре переменной имеются слова File, Edit, View.. , то отправлять команду WinMenuSelectItem
	WinMenuSelectItem, Notepad, , % arr[1], % arr[2]
	;  иначе, SendInput
	SendInput % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey)&&(A_TimeSincePriorHotkey<1000))+1]
	return

Count := 0

f2::
arr:=["1", "2", "3"]
gosub % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
return

1:
ToolTip 1
return
2:
ToolTip 2
return
3:
ToolTip 3
return

Input, key, L1
if (key = "f2") {
arr := ["f2_1","f2_2","f2_3"]
}
else if (key = "q") {
arr := ["q_1","q_2","q_3"]
}

Loop
{
Input, key, V L1
gosub % key
}

q:
ToolTip q
return
w:
ToolTip w
return
e:
ToolTip e
return

#InstallKeybdHook
#InstallMouseHook
Count := 0
f2::
arr:=["1", "2", "3"]
if (A_TimeSincePriorHotkey < 50) and (A_TimeSincePriorHotkey != -1) and (count = arr.Length())
   return
If (A_PriorKey != A_ThisHotkey) or (count = arr.Length())
   count := 0
gosub % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
return

1:
ToolTip 1
return
2:
ToolTip 2
return
3:
ToolTip 3
return

Loop
{
   Input, key, V L1, {f1}
   if (key = "")
      key := RegExReplace(ErrorLevel, "^EndKey:")
   if key in q,w,e,f1
      GoSub %key%
}

q:
ToolTip q
return
w:
ToolTip w
return
e:
ToolTip e
return
f1:
ToolTip f1
return


q::
w::
e::
f1::
return

f2::
KeyWait, %A_ThisHotkey%, T0.1
If ErrorLevel
   msgbox зажата

#InstallKeybdHook
#InstallMouseHook
Count := 0
f1::
f2::
KeyWait, %A_ThisHotkey%, T0.2
If ErrorLevel
   ToolTip зажата
if (A_ThisHotkey = "f2")
arr:=["f2_1", "f2_2", "f2_3"]
if (A_ThisHotkey = "f1")
arr:=["f1_1", "f1_2", "f1_3"]
If (A_PriorKey != A_ThisHotkey) or (count = arr.Length())
   count := 0
gosub % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
return

#InstallKeybdHook
#InstallMouseHook
Count := 0
f1::
f2::
push := ""
if (A_ThisHotkey = "f2")
{
   push := 1
   arr:=["1", "2", "3"]
}
if (A_ThisHotkey = "f1")
   arr:=["4", "5", "6"]
If (A_PriorKey != A_ThisHotkey)
   pushArr := "", count := 0
if (push = 1) or (count +1 = arr.Length())
{
   KeyWait, %A_ThisHotkey%, T0.2
   If ErrorLevel
   {
      if (push = 1)
      {
         ToolTip зажата
         push := ""
         KeyWait, %A_ThisHotkey%
         return
      }
      else
         pushArr := 1
   }
}
If (count = arr.Length())
{
   if (pushArr = 1)
   {
      pushArr := ""
      KeyWait, %A_ThisHotkey%
      return
   }
   else
      count := 0
}
gosub % arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
return


1:
ToolTip 1
return
2:
ToolTip 2
return
3:
ToolTip 3
return
4:
ToolTip 4
return
5:
ToolTip 5
return
6:
ToolTip 6
return

#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
Count := 0
f1::
arr:=["1,1_1,1_2", "2,2_1", "3"]
if (A_TimeSincePriorHotkey < 50) and (A_TimeSincePriorHotkey != -1) and (count = arr.Length())
   return
If (A_PriorKey != A_ThisHotkey) or (count = arr.Length())
   count := 0
array := arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
loop, parse, array, `,
{
   gosub % A_LoopField
   sleep 500
}
return

1:
ToolTip % a_thislabel
return
1_1:
ToolTip % a_thislabel
return
1_2:
ToolTip % a_thislabel
return
2:
ToolTip % a_thislabel
return
2_1:
ToolTip % a_thislabel
return
3:
ToolTip % a_thislabel
return

#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
Count := 0
f1::
arr:=["1,1_1,1_2", "2,2_1", "3"]
If (A_PriorKey != A_ThisHotkey)
   count := 0
array := arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
loop, parse, array, `,
{
   gosub % A_LoopField
   sleep 200
}
if (count  = arr.Length())
{
   count := 0
   KeyWait % A_ThisHotkey
   return
}
return

1:
ToolTip % a_thislabel
return
1_1:
ToolTip % a_thislabel
return
1_2:
ToolTip % a_thislabel
return
2:
ToolTip % a_thislabel
return
2_1:
ToolTip % a_thislabel
return
3:
ToolTip % a_thislabel
return

if (A_TimeSincePriorHotkey < 50) and (A_TimeSincePriorHotkey != -1) and (count = arr.Length())
   return

#SingleInstance Force

f2:: 
MultikeyReset("{vk4B}", "{vk44}+{5}+{9}+{3}", "{vk58}^+{vk41}")
return

MultikeyReset(arr1, arr2, arr3){
#InstallKeybdHook
#InstallMouseHook
   count := 0
arr:=[arr1, arr2, arr3]
If (A_PriorKey != A_ThisHotkey)
   count := 0
array := arr[Count := Count*((A_PriorHotkey = A_ThisHotkey))+1]
loop, parse, array, `,
{
   SendInput % A_LoopField
   sleep 200
}
if (count  = arr.Length())
{
   count := 0
   KeyWait % A_ThisHotkey
   return
}
}
return