AutoHotkey Community

#InstallKeybdHook


~F12 up::                       
Goto, gather

   gather:
      {
      Loop
      {
      goto Action
      If IsKeyPressed("F12")
      Send, {+end}
      Break
      }
      }
   Return

      IsKeyPressed(v_KeyName)
      {
      GetKeyState, state, %v_KeyName%, P
      If state = D  ; The key has been pressed
      {
      Return 1
      }
      Return 0
      }

Action:
soundbeep 250
Loop 25
{
        sleep 500
      Soundbeep 50
      MouseClick, left ; Swing
      Sleep, 10200 ;waits for 10.2 seconds
+end:: Break
}
return

F1::
Status=0
Gosub StartLoop
return

F2::
Status:= !Status  ; toggles value of Status between 1 and 0 to break the loop
return


StartLoop:
loop 100
{
If Status=1
break
Gosub MakeSomeNoise
}
return

MakeSomeNoise:
SoundBeep 250
sleep 200
return

!ESC::
ExitApp
return

soundbeep 250
Loop
Sleep 500
Soundbeep 50
MouseClick, left
Sleep, 10200

#Persistent
SetTimer,getstatus,250
return

F1::
status:=!status
return

getstatus:
If status=1
gosub MakeNoise
return

MakeNoise:
soundbeep 250
Loop 25
{
If Status=0
Break
sleep 500
Soundbeep 50
MouseClick, left
}
Loop 10   ;so you can break during the 10200ms wait
{
If status=0
break
sleep 1020
}

return
!ESC::
ExitApp

if GetKeyState("t", "P")
break

while GetKeyState("LButton")
    {
        MouseGetPos, x, y
        ToolTip, % begin_x ", " begin_y "`n" Abs(begin_x-x) " x " Abs(begin_y-y)
        Sleep, 10
    }

#Persistent
#SingleInstance
Process, Priority, , N
SetBatchLines, -1


F12::
If ( Status = 1 )
  {
   Status := 0
   GoTo, Stop
  }
Else
  {
   Status := 1
   Counter := 0
   GoTo, Action
  }
Return


Action:
ToolTip, Initiated !`nStatus = %Status%`nCouter = %Counter% ; To tests, can delet after
Soundbeep 250
Sleep, 500   ;Seems very short, I hear only one beep. With 1500 play 2 beeps.
Counter += 1
If ( Status = 0 or Counter = 25)
  GoTo, Stop
Soundbeep 50
MouseClick, left
SetTimer, Action102s, 10200
Return


Action102s:
SetTimer, Action102s, Off
If ( Status = 0 )
 GoTo, Stop
;Here you put what you desire Action102s does each 10.2 seconds.
GoTo, Action  ; like this
Return

   
Stop:
SetTimer, Action102s, Off
Status = 0
Counter = 0
ToolTip, Stoped !`nStatus = %Status%`nCouter = %Counter% ; To tests, can delet after
Sleep, 2000 ; To tests, can delet after
ToolTip,  ; To tests, can delet after
Return