AutoHotkey Community

Step:=8
*j::Settimer Jloop, 15
*j up::Settimer Jloop, Off

Jloop:
    Mult1:=GetKeyState("Shift")
    Mult2:=GetKeyState("Ctrl")
    MouseGetPos, VarX, VarY
    MouseMove, (VarX-(Step-(Step*Mult2/2)+Step*Mult1*2)),VarY
Return

Step:=8
Sleep:=100
*j::Settimer Jloop, 15
*j up::
Settimer Jloop, Off
Sleep:=100
Return

Jloop:
    Mult1:=GetKeyState("Shift")
    Mult2:=GetKeyState("Ctrl")
    MouseGetPos, VarX, VarY
    MouseMove, (VarX-(Step-(Step*Mult2/2)+Step*Mult1*2)),VarY
    Sleep %Sleep%
    Sleep:=0
Return

;----------------------------------------------------------------------
;; Two quick capslock to turn on mouse mode
$CapsLock::

   if ( GetKeyState("CapsLock", "T") )
   {
        newstate = off
   }
   else
   {   
        newstate = on
   }
   SetCapsLockState, %newstate%
   
   if ( A_PriorHotkey != A_ThisHotKey || A_TimeSincePriorHotkey > 400 )
   {
      Return
   }
   
   ;; At this point we know a double-capslock has happened.
   ;; This will start mouse mode. A return value of
   ;; a 1 means that we should start the menu. 0 means return immediately.

   gosub MouseModeStart
Return

MouseModeStart:
   slowStep := 1
   mediumStep := 9
   fastStep := 25
   preDelayTime := 90
   interDelayTime := 40

   CoordMode, ToolTip
   t := "M  M  M  M  M  M  M  M  M  M  M  M  M  M  M  M  M  M "
   tt := t . t . t . t . t
   ToolTip, %tt%, 0, 0

   Hotkey, *j, leftMouse, On
   Hotkey, *l, rightMouse, On
   Hotkey, *k, downMouse, On
   Hotkey, *i, upMouse, On

   Hotkey, *v, exitMouse, On
   Hotkey, *f, fMouse, On
   Hotkey, *d, dMouse, On
   Hotkey, *g, gMouse, On
   Hotkey, *t, tMouse, On
   Hotkey, *Enter, goToMenu, On
Return

exitMouse:
   ToolTip
   Hotkey, *j, Off
   Hotkey, *l, Off
   Hotkey, *k, off
   Hotkey, *i, Off

   Hotkey, *v, Off
   Hotkey, *f, Off
   Hotkey, *d, Off
   Hotkey, *g, Off
   Hotkey, *t, Off
   Hotkey, *Enter, Off
Return

rightMouse:
   gx := 1
   gy := 0
   gkey = l
   Gosub, generalMouse
Return

leftMouse:
   gx := -1
   gy := 0
   gkey = j
   Gosub, generalMouse
Return

upMouse:
   gx := 0
   gy := -1
   gkey = i
   Gosub, generalMouse
Return

downMouse:
   gx := 0
   gy := 1
   gkey = k
   Gosub, generalMouse
Return


generalMouse:
   GoSub generalMouseMove
   Sleep, %preDelayTime%
   SetTimer, generalMouseMove, %interDelayTime%
   KeyWait, %gkey%
   SetTimer, generalMouseMove, Off
Return

generalMouseMove:
   s := GetKeyState("shift")
   c := GetKeyState("ctrl")
   factor := mediumStep
   if s
      factor := fastStep
   if c
      factor := slowStep
   x := factor * gx
   y := factor * gy
   MouseMove, %x%, %y%, 0, R
Return

goToMenu:
   gosub exitMouse
   gosub startMenu
Return

fMouse:
  Click, down
  keywait,f
  Click, up
Return

dMouse:
  Click, right
Return

gMouse:
  Click, WheelDown
Return

tMouse:
  Click, WheelUp
Return