AutoHotkey Community

sequence = 123
seatswitch = 1

$k::
StringMid tool, sequence, %seatswitch%, 1
Send {f%tool%}
seatswitch++
If (seatswitch > StrLen(sequence))
seatswitch = 1
Return

;;;;;;
;; position.ahk (bf2142.ahk)
;;;;;;;
;; Press and hold the Caps lock key, then press '1' to cycle through the
;; vehicle seat positions 123456
;;
;; to change the order, simply change the sequence, i.e.  if you want
;; to switch to left gunner or right gunner in the blackhawk, change
;; sequence to 23 and _start_position to 2
;;;;;;

;; begin AUTO-EXECUTE

#NoEnv
SendMode Input
SetCapsLockState, AlwaysOff

_start_position = 1
_sequence = 123456       ;; CHANGE this sequence for vehicles with
                                     ;; fewer/more seats.
;;;;;;
;; timers
;;;;;;

SetTimer,if_not_battlefield_suspend,1000

;;;;;;
;; end AUTO-EXECUTE
;;;;;;
;; hotkeys and remappings
;;;;;;

CapsLock & 1::cycleSeat()

;;;;;;
;; timer target labels
;;;;;;

if_not_battlefield_suspend:
  Suspend permit
  WinGet, this_name, ProcessName, A
  if (this_name = "bf2.exe") or (this_name = "BF2.exe") or (this_name = "BF2142pace.exe") or (this_name = "BF2142.exe")
        Suspend off
  else
        Suspend on
return

;;;;;;
;; function definitions
;;;;;;

cycleSeat()
{
  global _sequence
  global _current_seat

  seat := SubStr(_sequence,_current_seat, 1)

  Send {f%seat% down}
  Sleep 100
  Send {f%seat% up}
 
  _pos++
  if (_current_seat > StrLen(_sequence))
    _current_seat = 1
}

;;;;;;
;; end script
;;;;;

#NoEnv
SendMode Input

_auto := true

~LButton::autofire()
+LButton::_auto := ! _auto
+RButton::ExitApp

autofire()
{
  global _auto
  if _auto
  {
    Loop
    {
      if GetKeyState("LButton", "P")
      {
        SendInput {LButton DownTemp}
        Sleep 85
        mouseXY(0, 6)
        SendInput {LButton Up}
        Sleep 45
      }
      else
        break
    } ;; loop
  } ;; if
} ;; autofire()

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

;; autoexecute section (top of script)

SetTimer,check_if_bf2,1000  ;; this goes in auto execute section

;; labels and targets (after all hotkey and remappings)

check_if_bf2:
  Suspend permit
  WinGet, this_name, ProcessName, A
  if (this_name = "bf2.exe") or (this_name = "BF2.exe")
        Suspend off
  else
        Suspend on
return