#SingleInstance,Force
AutoTrim,Off
CoordMode,Mouse,Screen
CoordMode,ToolTip
CoordMode,Pixel
Menu,Tray,UseErrorLevel
process,priority,,high
;SendMode,input
SetBatchLines,-1
SetControlDelay,0
SetKeyDelay,-1
SetTitleMatchMode,2
SetWinDelay,20
SetWorkingDir,%A_ScriptDir%
StringCaseSense,On
DetectHiddenWindows,On
SetFormat, IntegerFast, h
vkod:={"~*del":"vk2e down","~*up":"vk26 down","~*Down":"vk28 down","~*left":"vk25 down","~*right":"vk27 down","~*ins":"vk2d down","~*home":"vk24 down","~*end":"vk23 down","~*pgup":"vk21 down","~*pgdn":"vk22 down","~*del up":"vk2e up","~*up up":"vk26 up","~*Down up":"vk28 up","~*left up":"vk25 up","~*right up":"vk27 up","~*ins up":"vk2d up","~*home up":"vk24 up","~*end up":"vk23 up","~*pgup up":"vk21 up","~*pgdn up":"vk22 up"}
timecorrection:=0
Loop, 0xFF
{
if (A_Index=0x79 or A_Index=0x7a or A_Index=0x7b)
continue
Hotkey,% "~*vk" . A_Index . " down",Label,On T0
Hotkey,% "~*vk" . A_Index . " up",Label,On
}
Hotkey,~*del,Label,On T0
Hotkey,~*up,Label,On T0
Hotkey,~*Down,Label,On T0
Hotkey,~*left,Label,On T0
Hotkey,~*right,Label,On T0
Hotkey,~*ins,Label,On T0
Hotkey,~*home,Label,On T0
Hotkey,~*end,Label,On T0
Hotkey,~*pgup,Label,On T0
Hotkey,~*pgdn,Label,On T0
Hotkey,~*del up,Label,On T0
Hotkey,~*up up,Label,On T0
Hotkey,~*Down up,Label,On T0
Hotkey,~*left up,Label,On T0
Hotkey,~*right up,Label,On T0
Hotkey,~*ins up,Label,On T0
Hotkey,~*home up,Label,On T0
Hotkey,~*end up,Label,On T0
Hotkey,~*pgup up,Label,On T0
Hotkey,~*pgdn up,Label,On T0
Return
Label:
critical
;tooltip,%a_tickcount%`n%A_ThisHotkey%`n%a_priorhotkey%
if (A_ThisHotkey=a_priorhotkey)
return
time:=a_tickcount-oldtime
if A_ThisHotkey not contains vk
key:=vkod[A_ThisHotkey]
else
key:=RegExreplace(A_ThisHotkey, "~\*(vk)0x(.*)", "$1$2" )
if waittocontinue=1
{
if key contains up
waittocontinue=0
return
}
if play=1
oldrec:=rec
play=
count++
if (time<0x11)
time-=time
rec%count%:=time-timecorrection
count++
rec%count%:=key
;t.=time "|" key "|"
;tooltip,%a_tickcount%`n%A_ThisHotkey%`n%a_priorhotkey%
;ToolTip,"%key%"`n%A_TimeSincePriorHotkey%
oldtime:=a_tickcount
Return
;if vk<7 save coords
f10:: ; rec
tooltip
oldtime:=a_tickcount
rec=
play=
count=
t=
return
F12:: ; play
PlayRec=
play=1
loop,% count
{
; critical
;tooltip,% A_loopfield "`n" play "`n" Play
if play=
break
Play:=rec%a_index%
if (a_index & 1)
{
if Play=wait
{
tooltip,Нажми любую кнопку чтобы продолжить.
waittocontinue=1
while waittocontinue
sleep,10
tooltip
}
else if (Play>0 and oldPlay!="wait")
DllCall("Sleep",UInt,Play)
oldPlay:=Play
}
else
send,{%Play%}
PlayRec%a_index%:=Play
c:=a_index
}
play=0
;loop,% c
; rec%a_index%:=PlayRec%a_index%
return
F11:: ; play old
count++
rec%count%=wait
count++
rec%count%=vk07 up
;fileappend,%t%,Rec
;play=1
;loop,c
;{
;; critical
;;tooltip,% A_loopfield "`n" play "`n" key
; if play=
; break
; key:=PlayRec%a_index%
; if (a_index & 1)
; {
; if key>0
; DllCall("Sleep",UInt,key)
; }
; else
; send,{%key%}
;}
;play=0
return
