AutoHotkey Community

mgr_MonitorGesture()
{ ; Monitor the mouse directions to get the gesture
   MouseGetPos, OriginX, OriginY
   While GetKeyState("RButton", "P"){
      If GetKeyState("Esc", "P")
         Return
      Sleep, 10
      MouseGetPos, MouseX, MouseY   
      If ( Sqrt((MouseX-OriginX)**2+(MouseY-OriginY)**2) >= 5 ){ ; 5 is the ex-MinimalDistance.
         Directions   .=   "-" mgr_GetDirection(MouseX-OriginX, MouseY-OriginY)
         Gesture      :=   mgr_GetModifiers() mgr_Filter(Directions)
         Command      :=   mgr_GetCommand(Gesture, 1)
         Msg         := Command ? Command : Gesture
         If (Msg<>LastMsg) ; Avoid flickering effect
            ToolTip, % Msg
         OriginX := MouseX , OriginY := MouseY , LastMsg := Msg
      }
   }
   Return, Gesture
}

   UL-L-DL-D-DR-D-DL-L-UL:
   UL-L-DR-D-DL-L:
   L-DR-D-L-UL:
   UL-L-DL-DR-DL-L-UL:
   L-DL-DR-D-DL-L-UL:
   UL-L-D-DR-L:
   L-D-DR-DL-L:
             …………
ToolTip,You trigger the "s" gesture.
return

   L-D-L:
ToolTip,You trigger the "L-D-L" gesture.
return

#SingleInstance, Force
#NoEnv

SetWorkingDir, %A_ScriptDir%
SetBatchLines, -1

#Include, C:\Users\User\Documents\Work\Com\Scripts\v0.8.2\MGR\MGR.ahk
#Include, C:\Users\User\Documents\Work\Com\Scripts\v0.8.2\MGR\MGR_UDF.ahk

Return

; Toggle the state of MGR
~MButton & RButton::
Hotkey,   *RButton,   Toggle
Hotkey,   #RButton,   Toggle
Return

#ifWinActive ahk_class Sticky_Notes_Note_Window
{
}

~$WheelUp::
~$WheelDown::
   if (A_PriorHotkey = A_ThisHotkey && (G_TimeSincePriorHotkey := A_TimeSincePriorHotkey) < G_Timeout)
      {   ; if it's the same hotkey and in the timeframe we want
      StringTrimLeft,G_ThisHotkey,A_ThisHotkey,2  ; remove ~$ from the string of the hotkey
      MouseClick,%G_ThisHotkey%,,,(G_Timeout - G_TimeSincePriorHotkey)*G_limit//G_Timeout
      }
   Return

mgr_MonitorRButton()
{ ; Monitor the mouse right button
   mgr_MonitorRButton:
   MouseGetPos, mX1, mY1
   While GetKeyState("RButton", "P"){
      Sleep, 10
      MouseGetPos, mX2, mY2
      If (Abs(mX2-mX1)>5 || Abs(mY2-mY1)>5)
         {
         If ( Gesture := mgr_MonitorGesture() )
            If ( Command := mgr_GetCommand(Gesture) )
               SendInput, %Command%
         ToolTip
         Return
         }
      If (Abs(mX2-mX1)<5 AND Abs(mY2-mY1)<5 AND WheelUp=1)
         {
         Send {Volume_Up}
         Return
         }
      If (Abs(mX2-mX1)<5 AND Abs(mY2-mY1)<5 AND WheelDown=1)
         {
         Send {Volume_Down}
         Return
         }
      If (Abs(mX2-mX1)<5 AND Abs(mY2-mY1)<5 AND A_TimeSinceThisHotkey>400 AND WheelUp!=1 AND WheelDown!=1)
         {
         MouseMove, 720, 610
         Send ^!{Tab}
         KeyWait, RButton
         Sleep, 10
         Send {LButton}
         Return
         }
   }
   SendInput, % mgr_GetModifiers() "{RButton}"
   Return
}

WheelUp::Scroll()
WheelDown::Scroll()

#If MouseIsOver("Shell_TrayWnd")
WheelUp::SendInput, {Volume_Up 5}
WheelDown::SendInput, {Volume_Down 5}


/*
Detect where the mouse is over (inspired by AHK helpfile)
Author : R3gX
*/
MouseIsOver(ValueToCompare){
   If !StrLen(ValueToCompare)
      Return, 0
    MouseGetPos,,, CurrentWinID
   WinGetTitle, CurrentWinTitle, ahk_id %CurrentWinID%
   WinGetClass, CurrentWinClass, ahk_id %CurrentWinID%
   If   (   ValueToCompare=CurrentWinID
      or   InStr(CurrentWinTitle, ValueToCompare)
      or   ValueToCompare=CurrentWinClass )
      Return, 1
   Else
      Return, 0
}

/*
Accelerates the scrolling
Author         : BoffinbraiN (Thanks!)
Modified by      : R3gX
Original link   : http://www.autohotkey.com/forum/viewtopic.php?t=52470
*/
Scroll(){
   static distance := 0 , vmax := 1 , timeout=500, boost=30, limit=60
   t := A_TimeSincePriorHotkey
   If (A_PriorHotkey=A_ThisHotkey && t<timeout){
      ; Remember how many times we've scrolled in the current direction
      distance++
      ; Calculate acceleration factor using a 1/x curve
      v := (t>1 && t<80) ? (250/t)-1 : 1
      ; Apply boost
      If (boost>1 && distance>boost){
         ; Hold onto the highest speed we've achieved during this boost
         If (v>vmax)
            vmax := v
         Else
            v := vmax
         v *= distance/boost
      }
      ; Validate
      v := (v>1) ? ((v>limit) ? limit : Floor(v)) : 1
      MouseClick, %A_ThisHotkey%, , , v
   } Else {
      ; Combo broken, so reset session variables
      distance := 0 , vmax := 1
      MouseClick %A_ThisHotkey%
   }
}