AutoHotkey Community

MouseClick, Left, X*Step + MouseX + 50, Y*Step + MouseY + 50

F1::
MouseGetPos, MouseX, MouseY
Step := 50 ; the distance between one point and the next
X := -1, Y := -1
Loop
{
   mark := Mod(A_Index,2) ? "X" : "Y"
   sign := Mod(A_Index//2,2)*2-1
   Loop % Ceil(A_Index/2)
   {
 %mark% += sign
 if MouseX := X*Step + MouseX + 50
 break
 else if MouseY := Y*Step + MouseY + 50
 break
 else
 MouseClick, Left, X*Step + MouseX + 50, Y*Step + MouseY + 50, 1, 0

   }
   GetKeyState, state, F1, P
   if state = U
   break
   else
   continue
}
return

esc::reload

Esc::ExitApp

F1::
{
rdir:=2
udir:=3
ldir:=3
ddir:=2
MouseGetPos, x, y
x:=x-50
y:=y-50
Click %x% %y%
loop
  {
     loop %ddir%
       {
       y:=y+50
       Click %x% %y%
       }
    ddir:=ddir+2
    loop %rdir%
      {
      x:=x+50
      Click %x% %y%
      }
    rdir:=rdir+2
    loop %udir%
      {
      y:=y-50
      Click %x% %y%
      }
    udir:=udir+2
    loop %ldir%
      {
      x:=x-50
      Click %x% %y%
      }
    ldir:=ldir+2
  }
}return

(x=0)?continue:Click %x% %y%

SetBatchLines, -1
Esc::ExitApp

F1::
{
rdir:=2
udir:=3
ldir:=3
ddir:=2
MouseGetPos, x, y
xfactor:=x
x:=x-50
y:=y-50
if (x!=xfactor)
   Click %x% %y%
loop
  {
     loop %ddir%
      {
      y:=y+50
      if (x!=xfactor)
         Click %x% %y%
      }
    ddir:=ddir+2
    loop %rdir%
      {
      x:=x+50
      if (x!=xfactor)
         Click %x% %y%
      }
    rdir:=rdir+2
    loop %udir%
      {
      y:=y-50
      if (x!=xfactor)
         Click %x% %y%
      }
    udir:=udir+2
    loop %ldir%
      {
      x:=x-50
      if (x!=xfactor)
         Click %x% %y%
      }
    ldir:=ldir+2
  }
}return

if X > centerX, Y > centerY
MouseClickDrag, left, X, Y, -50, -50 , 0, R

else if X > centerX, Y < centerY
MouseClickDrag, left, X, Y, -50, +50 , 0, R

else if X < centerX, Y > centerY
MouseClickDrag, left, X, Y, +50, -50 , 0, R

else if X < centerX, Y < centerY
MouseClickDrag, left, X, Y, +50, +50 , 0, R

Esc::
reload
return

$F1::
MouseGetPos, CenterX, CenterY
rdir:=2
udir:=3
ldir:=3
ddir:=2
MouseGetPos, x, y
xfactor:=x
yfactor:=y
x:=x-60
y:=y-60
MouseClickDrag, left,-200, -200, 200, 200, 0, R
MouseClick, right,centerx,centery,1,0
MouseClickDrag, left,-200, 0, 200, 200, 0, R
MouseClick, right,centerx,centery,1,0
MouseClickDrag, left, 0, 0, 200, 200, 0, R
MouseClick, right,centerx,centery,1,0
MouseClickDrag, left, 0, -200, 200, 200, 0, R
MouseClick, right,centerx,centery,1,0
MouseMove, X, Y, 0
MouseClickDrag, left, 0, 0, 100, 100, 0, R
MouseClick, right,centerx,centery,1,0
loop
{
     
   loop %ddir%
   {
      y:=y+60
      if (x!=xfactor && y!=yfactor)
      GoSub, Drag

      GetKeyState, state, F1, P
      if state = U
      return
         else if (x > 900 || x < 100 || y > 600 || y < 100)
         return
         else continue
         } ;;dir
ddir:=ddir+2




   loop %rdir%
   {
      x:=x+60
      if (x!=xfactor && y!=yfactor)
      GoSub, Drag

      GetKeyState, state, F1, P
      if state = U
      return
         else if (x > 900 || x < 100 || y > 600 || y < 100)
         return
         else continue
      }
rdir:=rdir+2


   loop %udir%
   {
      y:=y-60
      if (x!=xfactor && y!=yfactor)
      GoSub, Drag

      GetKeyState, state, F1, P
      if state = U
      return
         else if (x > 900 || x < 100 || y > 600 || y < 100)
         return
         else continue
      }
udir:=udir+2


   loop %ldir%
   {

      x:=x-60
      if (x!=xfactor && y!=yfactor)
      GoSub, Drag

      GetKeyState, state, F1, P
      if state = U
      return
         else if (x > 900 || x < 100 || y > 600 || y < 100)
         return
         else continue
         }
ldir:=ldir+2


}return

Drag:
if (x>centerx && y>centery)
{
MouseMove, X, Y, 0
MouseClickDrag, left, 0, 0, -130, -100, 0, R
MouseClick, right,centerx,centery,1,0
}
else if (x>centerx && y<centery)
{
MouseMove, X, Y, 0
MouseClickDrag, left, 0, 0, -130, 100, 0, R
MouseClick, right,centerx,centery,1,0
}
else if (x<centerx && y>centery)
{
MouseMove, X, Y, 0
MouseClickDrag, left, 0, 0, 130, -100, 0, R
MouseClick, right,centerx,centery,1,0
}
else if (x<centerx && y<centery)
{
MouseMove, X, Y, 0
MouseClickDrag, left, 0, 0, 130, 100, 0, R
MouseClick, right,centerx,centery,1,0
}
return

SetBatchLines, -1

WinWaitActive, Untitled
Sleep, 1000
WinGetActiveStats, t, w, h, x, y
MouseMove, w/2, h/2, 0
Send, {LButton down}
Loop
{
   r := SquareSpiral(A_Index, 50, 2, -1)
   StringSplit, r, r, `,
   MouseMove, w/2 + r1, h/2 + r2, 0
   Sleep, 100
}


Return


Escape::
Send, {LButton up}
ExitApp
Return

;SquareSpiral
;   Information:
;   Description   Returns coordinates of points on a square spiral.
;   Author        Wouther
;
;   Parameters:
;   n   The number of the point. (obligatory)
;   s   Distance between lines. (default is 1 px)
;   d   Starting direction. Right is 1, down is 2, left is 3 and up is 4. (default is right)
;   r   Direction of rotation. Counterclockwise is -1 and Clockwise = 1. (default is counterclockwise)
;
;   Returns:
;   x,y   Comma-seperated coordinates of the 'n'-th point.
SquareSpiral(n, s = 1, d = 1, r = -1)
{
   f := Mod(n, 4)

   x := s*Ceil(n/4)
   y := s*Ceil(n/4)

   x *= (f = 1 || f = 2) ? -1 : 1
   y *= (f = 2 || f = 3) ? -1 : 1

   y -= (f = 1) ? s : 0

   m := (d = 3 || d = 4) ? -1*r : r
   a := (d = 1 || d = 3) ? "y" : "x"
   %a% += (f = 1) ? m*s

   Return x . "," . y
}