if WinActivate, Компас 
{
    XButton1:: Send, {Delete}
    starttime := A_TickCount
    doubleclick:=0
    
    ^RButton::
    starttime1 := A_TickCount
    KeyWait, RButton
    elapsedtime := A_TickCount - starttime1
    IF (elapsedtime > 350)
    {
        ;Долгое нажатие
        ;soundbeep, 100, 500
        Send::{RButton}    
    }            
    else
    {
        elapsedtime := A_TickCount - starttime
        IF (elapsedtime < 250) and (doubleclick=1)
         {
                ;Двойной клик
                ;Send:: RButton
                ;soundbeep, 1000, 50
                Send:: {^Enter}               
                doubleclick:=0
                return
           }
        else::
            {
            ;Одиночный клик
            ;soundbeep, 1500, 100
            Send:: {^Enter}      
            doubleclick:=1
            }    
    }
    starttime := A_TickCount
    return
}

sbPressCountKeys:
  ;Если пауза меньше "сPause_PressKey" количества миллисекунд, то нажатие двойное, а если больше, то 
  ; оно расценивается как 2 одиночных.
  If not сSecond_PressKey
  {
    сSecond_PressKey := 1
    SetTimer, sbDoublePressKey, -%сPause_PressKey%
  }
  Else
  {
    сSecond_PressKey := 0
    SetTimer, %A_ThisHotkey%(2), -1
  }
Return

sbDoublePressKey:
  If not сSecond_PressKey
    Return
  сSecond_PressKey := 0
  SetTimer, %A_ThisHotkey%(1), -1
Return

fnHoldingBaseKey(vSleep, vCount)
  {
   Global сBaseKey  
    while ((GetKeyState(сBaseKey, "P")) && vCount)
      {
       sleep %vSleep%
       vCount--
      }
    if (vCount)
         return false
    return  true