#NoEnv
#SingleInstance,Force
SetTitleMatchMode,2
SetBatchLines,-1
CoordMode,Mouse,Screen
CoordMode,ToolTip
SetKeyDelay,0
SendMode,Input



; Настройки:
class=EPSX     ; класс окна.

; клавиши.
Mouse_Up=up
Mouse_Down=down
Mouse_left=left
Mouse_Right=right
Mouse_LB=vk58 ; X
Mouse_RB=vk59 ; Y
Mouse_MB=vk5a ; Z

Delay=20       ; чувствительность.
coeffx=1.5     ; коэффициенты для мыши.
coeffy=1.5

Gui=1          ; прицел - требуется файл "xros.png", содержащий изображение прицела с прозрачным фоном.
Xoffset=-10    ; смещение прицела относительно центра экрана.
Yoffset=5
w=32           ; Размеры прицела.
h=32


; Начало.
if gui
{
  x:=(a_screenwidth/2-1-w/2)+Xoffset
  y:=(a_screenheight/2-1-h/2)+Yoffset

  Gui,-Caption +AlwaysOnTop +E0x08000020 +Lastfound
  Gui,Margin,0,0
  Gui,Add,Picture,w%w% h%h%,%a_scriptdir%\xros.png
  Gui,Show,NA x%x% y%y% w%w% h%h%
  ID:=WinExist()
  WinSet,ExStyle,+0x20,ahk_id %ID%
  WinSet,TransColor,0xF0F0F0,ahk_id %ID%
  Gui,hide
}

loop ; ШИМ мышь-клавиши
{
  if !WinActive("ahk_class " . class)
  {
    if gui
      gui,hide
    sleep,1000
    continue
  }

  mousemove,a_screenwidth/2,a_screenheight/2,0
  DllCall("Sleep",UInt,Delay)
  mousegetpos,x1,y1
  x:=a_screenwidth/2-x1, y:=a_screenheight/2-y1
 ; ------------------------------- право лево ----------------------------------
  if (x!=0 and !dooncex)
  {
    dooncex=1
    pressx:=abs(x)          ; x>0 = left; x<0 = right
    xx:=x
    send,% "{" Mouse_left " " (x<0 ? "Up" : "Down") "}{" Mouse_right " " (x>0 ? "Up" : "Down") "}"
  }
  else if (x=0 and dooncex)
  {
    dooncex=
    send,% "{" Mouse_left " up}{" Mouse_right " up}"
  }
  if ((pressx:=pressx-coeffx)<0 and pressx>-coeffx-1)
  {
    dooncex=
    send,% "{" (xx>0 ? Mouse_left : Mouse_right) " up}"
  }
 ; ------------------------------- верх низ ----------------------------------
  if (y!=0 and !dooncey)
  {
    dooncey=1
    pressy:=abs(y)            ; y>0 = up; y<0 = Down
    yy:=y
    send,% "{" Mouse_Up " " (y<0 ? "Up" : "Down") "}{" Mouse_Down " " (y>0 ? "Up" : "Down") "}"
  }
  else if (y=0 and dooncey)
  {
    dooncey=
    send,% "{" Mouse_Up " up}{" Mouse_Down " up}"
  }
  if ((pressy:=pressy-coeffy)<0 and pressy>-coeffy-1)
  {
    dooncey=
    send,% "{" (yy>0 ? Mouse_Up : Mouse_Down) " up}"
  }
 ; ------------------------------- gui update ----------------------------------
  if (gui and !showw:=showw>50 ? 0 : showw="" ? 1 : showw+1)
  {
    Gui, Show, na
    WinSet, AlwaysOnTop, On,ahk_id %ID%
  }
}
return


#if WinActive("ahk_class " . class)

lbutton::
send,{%Mouse_LB% down}
return
lbutton up::
send,{%Mouse_LB% up}
return

rbutton::
send,{%Mouse_RB% down}
return
rbutton up::
send,{%Mouse_RB% up}
return

mbutton::
send,{%Mouse_MB% down}
return
mbutton up::
send,{%Mouse_MB% up}
return

#if

!esc:: ; Alt+Esc
exitapp

#NoEnv
#SingleInstance,Force
SetTitleMatchMode,2
SetBatchLines,-1
CoordMode,Mouse,Screen
CoordMode,ToolTip
SetKeyDelay,0
SendMode,Input

timer:=0
coeffx=0.5   ; коэффициенты для мыши
coeffy=0.4

;class=Notepad     ; класс окна.
;#ifwinactive,ahk_class Notepad   ; тут тоже.

loop ; ШИМ мышь-клавиши
if getkeystate("RButton")
{
  if dooncetab=
  {
    send,{tab down}
    dooncetab=1
  }
  if pressright>-1
  {
    pressright--
    if pressright=0
    {
      send,{vk66 up}
      dooncex=
    }
  }
  if pressleft>-1
  {
    pressleft--
    if pressleft=0
    {
      send,{vk64 up}
      dooncex=
    }
  }
  if pressdown>-1
  {
    pressdown--
    if pressdown=0
    {
      send,{vk62 up}
      dooncey=
    }
  }
  if pressup>-1
  {
    pressup--
    if pressup=0
    {
      send,{vk68 up}
      dooncey=
    }
  }

  if (timer:=timer>30 ? 0 : timer+1)
  {
;    ifwinactive,ahk_class %class%
    {
      mousemove,a_screenwidth/2,a_screenheight/2,0
      mousegetpos,x1,y1
      sleep,10
      mousegetpos,x2,y2
      x:=x1-x2
      y:=y1-y2
      if (x<0 and dooncex="") ;право
      {
        dooncex=1
        pressleft=-1
        pressright:=-x*coeffx
        send,{vk66 down}
        send,{vk64 up}
      }
      if (x>0 and dooncex="") ;лево
      {
        dooncex=1
        pressright=-1
        pressleft:=x*coeffx
        send,{vk66 up}
        send,{vk64 down}
      }
      if (y<0 and dooncey="") ;вниз
      {
        dooncey=1
        pressup=-1
        pressdown:=-y*coeffy
        send,{vk68 up}
        send,{vk62 down}
      }
      if (y>0 and dooncey="") ;вверх
      {
        dooncey=1
        pressdown=-1
        pressup:=y*coeffy
        send,{vk68 down}
        send,{vk62 up}
      }

      if (x=0 and dooncex=1)
      {
        pressright:=pressleft:=-1
        dooncex=
        send,{vk64 up}
        send,{vk66 up}
      }
      if (y=0 and dooncey=1)
      {
        pressup:=pressdown:=-1
        dooncey=
        send,{vk68 up}
        send,{vk62 up}
      }
    }
;    else
;      DllCall("Sleep",UInt,7)
  }
  else
    DllCall("Sleep",UInt,7)
}
else
{
  if dooncetab=1
  {
    send,{tab up}
    dooncetab=
    send,{vk62 up}
    send,{vk64 up}
    send,{vk66 up}
    send,{vk68 up}
  }
  sleep,100
}
return

#if dooncetab

WheelUp::
send,{Down down}
sleep,50
send,{Down up}
return

Wheeldown::
send,{up down}
sleep,50
send,{up up}
return

lbutton::
send,{vk58 down}     ; X
return
lbutton up::
send,{vk58 up}
return

;rbutton::
;send,{vk59 down}     ; Y
;return
;rbutton up::
;send,{vk59 up}
;return

mbutton::
send,{vk5a down}     ; Z
return
mbutton up::
send,{vk5a up}
return

#if

^esc::pause  ; пауза

#NoEnv
#SingleInstance,Force
SetTitleMatchMode,2
SetBatchLines,-1
CoordMode,Mouse,Screen
CoordMode,ToolTip
SetKeyDelay,0
SendMode,Input

timer:=0
coeffx=0.5   ; коэффициенты для мыши
coeffy=0.4

;class=Notepad     ; класс окна.
;#ifwinactive,ahk_class Notepad   ; тут тоже.


loop ; ШИМ мышь-клавиши
if getkeystate("RButton")
{
  if pressright>-1
  {
    pressright--
    if pressright=0
    {
      send,{right up}
      dooncex=
    }
  }
  if pressleft>-1
  {
    pressleft--
    if pressleft=0
    {
      send,{left up}
      dooncex=
    }
  }
  if pressdown>-1
  {
    pressdown--
    if pressdown=0
    {
      send,{down up}
      dooncey=
    }
  }
  if pressup>-1
  {
    pressup--
    if pressup=0
    {
      send,{up up}
      dooncey=
    }
  }

  if (timer:=timer>30 ? 0 : timer+1)
  {
;    ifwinactive,ahk_class %class%
    {
      mousemove,a_screenwidth/2,a_screenheight/2,0
      mousegetpos,x1,y1
;      DllCall("Sleep",UInt,7)
      sleep,10
      mousegetpos,x2,y2
      x:=x1-x2
      y:=y1-y2
      if (x<-1 and dooncex="") ;право
      {
        dooncex=1
        pressleft=-1
        pressright:=-x*coeffx
        send,{right down}
        send,{left up}
      }
      if (x>1 and dooncex="") ;лево
      {
        dooncex=1
        pressright=-1
        pressleft:=x*coeffx
        send,{right up}
        send,{left down}
      }
      if (y<-1 and dooncey="") ;вниз
      {
        dooncey=1
        pressup=-1
        pressdown:=-y*coeffy
        send,{up up}
        send,{down down}
      }
      if (y>1 and dooncey="") ;вверх
      {
        dooncey=1
        pressdown=-1
        pressup:=y*coeffy
        send,{up down}
        send,{down up}
      }

      if (x=0 and dooncex=1)
      {
        pressright:=pressleft:=-1
        dooncex=
        send,{left up}
        send,{right up}
      }
      if (y=0 and dooncey=1)
      {
        pressup:=pressdown:=-1
        dooncey=
        send,{up up}
        send,{down up}
      }
    }
;    else
;x      DllCall("Sleep",UInt,7)
  }
  else
    DllCall("Sleep",UInt,7)
}
else
  sleep,100
return

;lbutton::
;send,{vk58 down}     ; X
;return
;lbutton up::
;send,{vk58 up}
;return
;
;rbutton::
;send,{vk59 down}     ; Y
;return
;rbutton up::
;send,{vk59 up}
;return
;
;mbutton::
;send,{vk5a down}     ; Z
;return
;mbutton up::
;send,{vk5a up}
;return

^esc::  ; выход
exitapp