AutoHotkey Community

;
; AutoHotkey      Version: 1.x
; Language:       English
; Platform:       Win9x/NT
;
;
; Only run this script when bf2.exe is running in the foreground
;
#SingleInstance force
#InstallKeybdHook
#InstallMouseHook


SetTimer, KeepRunning
return

KeepRunning:

  ; Get the process name of the active window (i.e. Notepad.exe)
  WinGet, szProcessName, ProcessName, A
  if szProcessName = bf2.exe
  {
    Suspend, off
  }
  else
  {
    Suspend, on
  }
return

;
; Disable the Window's keys so they don't switch to desktop while in-game
;
$LWin::   ; Left Windows Button
$RWin::   ; Right Windows Button
   ; Do nothing
return

$^CapsLock::
   ExitApp
return

SetKeyDelay, 50, 50                  ; NB: Once "WeaponSelect()" added this was needed!!

v_LastUsedWeapon = 3               ; Initialise as Primary Weapon 3
v_LastStoredWeapon = 3               ; Initialise as Primary Weapon 3

$f::Goto, QuickSwitch
$1::WeaponSelect(1)
$2::WeaponSelect(2)
$3::WeaponSelect(3)
$4::WeaponSelect(4)
$5::WeaponSelect(5)
$6::WeaponSelect(6)

KeyPress(v_KeyName)
{
  Send, {%v_KeyName% Down}
  Sleep %KeySleep1%
  Send, {%v_KeyName% Up}
  If( v_KeyName > 0 and v_KeyName < 7)      ; QuickSwitch: Check if weapon, between 1-8, should it be 1-6?
  ; NB: Above 'If' only needed if Quickswitch desired.
  {
    v_ChosenWeapon = %v_KeyName%
    QuickSwitchVar(ByRef v_ChosenWeapon)
  }
}

QuickSwitch:
  KeyPress(ByVar v_LastUsedWeapon)         ; QuickSwitch: "v_LastUsedWeapon" is declared globally and stored by "QuickSwitchVar()" function
return

QuickSwitchVar(v_ChosenWeapon)
; 1.Edit Store previous weapon, 2. Placeholder variable for current weapon so next use of function can determine previous weapon
{
  Global v_LastUsedWeapon
  Global v_LastStoredWeapon
  v_LastUsedWeapon = %v_LastStoredWeapon%   ; QuickSwitch: Previous run stored source for this variable. Used to record last used Weapon and used in QuickSwitch usage
  v_LastStoredWeapon = %v_ChosenWeapon%      ; QuickSwitch: Stored so the following call of function can determine Previous Weapon
}

WeaponSelect(v_ChosenWeapon)
; Select weapon 1 - 6 %v_ChosenWeapon%
{
  If( v_ChosenWeapon > 0 and v_ChosenWeapon < 7)
  {
    Global v_LastStoredWeapon               ; QuickSwitch: Declare this to to access it and determine previous weapon
    If( v_ChosenWeapon <> v_LastStoredWeapon)   ; QuickSwitch: If current weapon wasn't pressed last time then ...
      QuickSwitchVar(ByRef v_ChosenWeapon)      ; ... update variables for weapon history.
    Send, {%v_ChosenWeapon% Down}
    Sleep %KeySleep1%
   Send, {%v_ChosenWeapon% Up}
  }
  Else
    Send, @huh????%v_ChosenWeapon%
  Sleep 50
}

  If( v_KeyName > 0 and v_KeyName < 7)      ; QuickSwitch: Check if weapon, between 1-8, should it be 1-6?
  ; NB: Above 'If' only needed if Quickswitch desired.
  {
    v_ChosenWeapon = %v_KeyName%
    QuickSwitchVar(ByRef v_ChosenWeapon)
  }

QuickSwitch:
  KeyPress(ByVar v_LastUsedWeapon)     
return
...
      QuickSwitchVar(ByRef v_ChosenWeapon)
...
    Sleep %KeySleep1%

;GameName = notepad.exe               ; use when testing in notepad
GameName = bf2.exe                  ; Set exe name here
KeySleep1 = 100                     ; Ideal Sleep time for BF2 commands (check?, SetKeyDelay influence?)
v_InTextChatOn := False               ; Used for pausing running of Script
v_LastUsedWeapon = 3               ; Initialise as Primary Weapon 3
v_LastStoredWeapon = 3               ; Initialise as Primary Weapon 3

#Persistent
#NoEnv                           ; prevents empty variables from being looked up
#SingleInstance force
#InstallKeybdHook
#InstallMouseHook
SetKeyDelay, 75, 75                  ; NB: Once "WeaponSelect()" added this was needed!!
SetTimer, KeepRunning               ; Only run this script when {BF2.exe} is running in the foreground
Return

;;;; Timer related ;;;;
KeepRunning:
  ; Get the process name of the active window (i.e. Notepad.exe)
  ; Only run this script when Battlefield 2 {BF2.exe} is running in the foreground.
  WinGet, szProcessName, ProcessName, A
  If szProcessName = %GameName%         ; Determine if window Active, enable hotkeys
  {
    ; If running check to determine whether in chat mode.
    If (v_InTextChatOn == False)      ; Text chat isn't active so allow hotkeys
    {
      Suspend, off
    }
    Else if (v_InTextChatOn == True)   ; Text chat is active so disable hotkeys
   {
     Suspend, on
   }
  }
  Else                           ; Else window inactive, disable hotkeys
  {
    Suspend, on
  }
Return


; --------------------

; Quickswitch related.
$1::WeaponSelect(1)
$2::WeaponSelect(2)
$3::WeaponSelect(3)
$4::WeaponSelect(4)
$5::WeaponSelect(5)
$6::WeaponSelect(6)    
$f::Goto, QuickSwitch 

QuickSwitch:
  KeyPress(ByVar v_LastUsedWeapon)         ; QuickSwitch: "v_LastUsedWeapon" is declared globally and stored by "QuickSwitchVar()" function
return

QuickSwitchVar(v_ChosenWeapon)
; 1.Edit Store previous weapon, 2. Placeholder variable for current weapon so next use of function can determine previous weapon
{
  Global v_LastUsedWeapon
  Global v_LastStoredWeapon
  v_LastUsedWeapon = %v_LastStoredWeapon%   ; QuickSwitch: Previous run stored source for this variable. Used to record last used Weapon and used in QuickSwitch usage
  v_LastStoredWeapon = %v_ChosenWeapon%      ; QuickSwitch: Stored so the following call of function can determine Previous Weapon
}

WeaponSelect(v_ChosenWeapon)
; Select weapon 1 - 6 %v_ChosenWeapon%
{
  If( v_ChosenWeapon > 0 and v_ChosenWeapon < 7)
  {
    Global v_LastStoredWeapon               ; QuickSwitch: Declare this to to access it and determine previous weapon
    If( v_ChosenWeapon <> v_LastStoredWeapon)   ; QuickSwitch: If current weapon wasn't pressed last time then ...
      QuickSwitchVar(ByRef v_ChosenWeapon)      ; ... update variables for weapon history.
    Send, {%v_ChosenWeapon% Down}
    Sleep %KeySleep1%
   Send, {%v_ChosenWeapon% Up}
  }
  Else
    Send, @huh????%v_ChosenWeapon%
  Sleep 50
}

KeyPress(v_KeyName)
{
  Send, {%v_KeyName% Down}
  Sleep %KeySleep1%
  Send, {%v_KeyName% Up}
  If( v_KeyName > 0 and v_KeyName < 7)      ; QuickSwitch: Check if weapon, between 1-8, should it be 1-6 as NightVision and gas Mask not really need in the switch?
  ; NB: Above 'If' only needed if Quickswitch desired.
  {
    v_ChosenWeapon = %v_KeyName%
    QuickSwitchVar(ByRef v_ChosenWeapon)
  }
}

; --------------------