#NoEnv
SendMode, Input
SetBatchLines -1
CoordMode, Mouse, Screen


mouseXY(x, y)
{
    DllCall("mouse_event",uint,1,int,x,int,y,uint,0,int,0)
}

strafe(left)
{
  moveCount := 35
  sleepInterval := 2
  relativeMove := 30

  if (left)
  {
    key := "a"
    move := -relativeMove
  } else
  {
    key := "d"
    move := relativeMove
  }
  send {%key% down}
  DllCall("Sleep", "UInt", 5)
  Loop, %moveCount%
  {
    mouseXY(move, 0)
    DllCall("Sleep", "UInt", sleepInterval)
  }
  send {%key% up}
}

alt:: Hotkey, $XButton1, Toggle

End::
ExitApp

$XButton1::
while getkeystate("XButton1","P")
{
strafe(false)
strafe(true)
}
return