AutoHotkey Community

gActivateScript = 0

; Insert to activate the macro

~Insert::
KeyWait, Insert
GetKeyState, InsertState, Insert, T
If InsertState = D
{
    gActivateScript = 1
    SoundBeep, 750, 100
    SoundBeep, 750, 100
}
else
{
    gActivateScript = 0
    SoundBeep, 500, 200
}
return

; CTRL + SHIFT + LBUTTON to activate the macro
~+^LButton::
If gActivateScript = 0
{
    gActivateScript = 1
    SoundBeep, 750, 100
    SoundBeep, 750, 100
}
else
{
    gActivateScript = 0
    SoundBeep, 500, 200
}
return


MouseEvent(a_xpos, a_ypos)
{
DllCall("mouse_event", uint,1, int,a_xpos, int,a_ypos, uint,0, int,0 )
}


;Also applies to burst weapons. ie click and hold will perform like a full auto firing mode
~LButton::
Goto, DoFiringLoop
Return

;When crouching and firing at the same time. Using Ctrl as crouch button
~^LButton::
Goto, DoFiringLoop
Return

DoFiringLoop:
if gActivateScript = 1
{
    Loop
    {
       ;Make sure BF2 window is the active window. Don't want weird mouse behaviour appearing at other windows
        IfWinActive, BF2
        {
            MouseClick, left,,, 1, 0, D
           ;delay between simu. mouse btn down and up (50 = normal, 25 = faster)
            Sleep, 50
            MouseClick, left,,, 1, 0, U
            GetKeyState, LButtonState, LButton, P
            If LButtonState = U
            {
               ;break the loop if physical state of mouse btn is up.
                break
            }
           ;delay between each simu. click events
            Sleep, 25
[b];   MouseEvent(0,6)[/b] 
        }
        else
        {
            break
        }
    }
   
}
exit

return

MouseEvent(a_xpos, a_ypos)
{
   DllCall("mouse_event", uint,1, int,a_xpos, int,a_ypos, uint,0, int,0 )
}



$Numpad8::
;~Lbutton::
Loop
{
   Sleep 40
   GetKeyState, NumpadState, Numpad8, P
   if NumpadState = U
      break
   MouseClick, left,,, 1, 0, D
   Sleep, 40
   MouseClick, left,,, 1, 0, U
   MouseEvent(0,6)
;   SoundBeep, 500, 200 
}
return 

MouseEvent(a_xpos, a_ypos)
{
   DllCall("mouse_event", uint,1, int,a_xpos, int,a_ypos, uint,0, int,0 )
}



$Lbutton::
Loop
{
   Sleep 40
   GetKeyState, NumpadState, Numpad8, P
   if NumpadState = U
      break
   MouseClick, left,,, 1, 0, D
   Sleep, 40
   MouseClick, left,,, 1, 0, U
   MouseEvent(0,6)
;   SoundBeep, 500, 200
}
return

       Send {4 down}
      Sleep 60
      Send {4 up}
      Sleep 50
      MouseClick left, , , , , D
      Sleep 500 ; (500...2000 i tried all)
      MouseClick left, , , , , U      
      Sleep 20
      Send {3 down}
      Sleep 50
      Send {3 up}

;
; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win9x/NT
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;   Template script (you can customize this template by editing "ShellNew\Template.ahk" in your Windows folder)
;

#NoEnv
#InstallKeybdHook ; <--this is important
#InstallMouseHook ; <--this is important
WinGet, szProcessName, ProcessName, A
  if szProcessName = bf2.exe
  {
    Suspend, on
  }
  else
  {
    Suspend, off
  }
return

$F11::Suspend ;;; macro on/off
return

$N::     
   Send, {4 down}
   sleep 40
   Send {4 up}
   sleep 580

Loop, 1
{
   Click down right
   Sleep 1200
   Click up right
   sleep 400
}
  Send, {3 down}
   sleep 50
   Send {3 up}
   return