AutoHotkey Community

G15Applets = C:\Program Files\Logitech\G-series Software\Applets\
BF2G15Modpath = C:\Program Files\BF2G15Mod\
GameName = bf2.exe                  ; Set exe name here
GamePath = C:\Program Files\EA GAMES\Battlefield 2\
JTKpath = C:\Program Files\JoyToKey\
JTKexe = JoyToKey.exe
Pskill = C:\Program Files\pstools\pskill.exe          ; uses Pskill from http://www.sysinternals.com/Utilities/PsTools.html

#NoEnv                           ; prevents empty variables from being looked up
#SingleInstance force
#InstallKeybdHook
#InstallMouseHook
SetKeyDelay, 50, 50                  ; NB: Once
Gosub, LaunchJoyTokey
Gosub, LaunchGame
Gosub, BF2G15MODstart
SetTimer, KeepRunning               ; Only run this script when {BF2.exe} is running in the foreground
OnExit, ExitSub
Return

; Exit
ExitSub:
  ; Kill the BF2 G15 Mod (restart default applets) and JoyToKey on exit
  Gosub, BF2G15MODterm
  Run, %Pskill% %JTKexe%
  Sleep 10
ExitApp

LaunchGame:
  Process, Exist, %GameName%,            ;Check if Game is alReady Running to not open it Multiple times
  If Errorlevel <> 0
    Return
  Else
    Run, %GameName%, %GamePath%
Return

LaunchJoyTokey:
  Process, Exist, %JTKexe%,            ;Check if JoyToKey is alReady Running to not open it Multiple times
  If Errorlevel <> 0
    Return
  Else
    Run, %JTKpath%%JTKexe% BF2, %JTKpath%
Return

;#############################################################################
;### Logitech G15 Keyboard related ###########################################
;#############################################################################

$#!b::
   Goto, BF2G15MODstart
   
$#+b::
   Goto, BF2G15MODterm 

BF2G15MODstart:
   Run, %Pskill% LCDClock.exe
   Run, %Pskill% LCDCountdown.exe
   Run, %Pskill% LCDMedia.exe
   Run, %Pskill% LCDPOP3.exe
   Run, %BF2G15Modpath%BF2 LCD.exe
Return

BF2G15MODterm:
   Run, %Pskill% "BF2 LCD.exe"         ; Must be in quotes or it won't terminate.
   Run, %G15Applets%LCDClock.exe
   Run, %G15Applets%LCDCountdown\LCDCountdown.exe
   Run, %G15Applets%LCDMedia.exe
   Run, %G15Applets%LCDPop3\LCDPOP3.exe
Return

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

~LCtrl up::                        ;use LCtrl "up" so it doesn't get triggered when you hold ctrl
  Goto, Crouch

Crouch:
  ; Changed: Trigger was changed to "~LCtrl" as ~ allows normal operation of key.
  If (a_tickCount-lasttime < 400)      ;Check when we released ctrl the last time if < 400ms initiate Crouch
  {
    Loop
    {
      Send, {LCtrl down}            ; Initiate 'Crouch'
      If IsKeyPressed("LCtrl")         ; Check if 'LCtrl' pressed. If pressed & released, Break loop.
        Send, {LCtrl up}            ; Release 'Crouch'
      Break
    }
  }
  lasttime:=a_tickCount
Return

IsKeyPressed(v_KeyName)
  ; Returns 1 if %v_KeyName% is currently being pressed, otherwise 0
  {
    GetKeyState, state, %v_KeyName%, P
    If state = D  ; The key has been pressed
    {
      Return 1
    }
    Return 0
  }

if GetKeyState("KeyName" [, "Mode"])
...

KeySleep1 = 100                     ; Ideal Sleep time for BF2 commands (check?, SetKeyDelay influence?)

$#1::
  Goto, ViewInsidePOV        ; Commence Point of View Scan or just F9

IsKeyReleased(v_KeyName)
  ; Returns 1 if %v_KeyName% has been released, otherwise 0
  {
    GetKeyState, state, %v_KeyName%, P
    If state = U  ; The key has been released
    {
      Return 1
    }
    Return 0
  }

ViewFront:
  VehicleView(11)                  ; Switch to Chase Front
Return

ViewInside:
  VehicleView(9)                  ; Switch to internal view
  VehicleView(9)
Return

ViewRear:
  VehicleView(10)                  ; Switch to Chase Rear
Return

ViewInsidePOV:
  ; View inside vehicle else if 'Win' held commence a forward and rear scan until 'Win' released.
  Gosub, ViewInside
  Sleep 800
  Loop
  {
    Sleep, 10
    If IsKeyReleased("LWin")          ; Check if 'LWin' key has been released, if so Break out of the loop.
      Break
    ; Commence POV Point of View Scan.
    Gosub, ViewFront
    Sleep 800
    Gosub, ViewRear
    Sleep 800
  }
  Goto, ViewInside
Return                           ; needed? cosmetic probably.

VehicleView(v_iView)
  ; Change Vehicle view by pressing function key F9-F11 %v_iView%
  {
    If( v_iView > 8 and v_iView < 12)
    {
      Send, {F%v_iView% Down}
      Sleep %KeySleep1%
      Send, {F%v_iView% Up}
      Sleep %KeySleep1%
    }
  Else
    Send, @huh????%v_iPosition%
  Sleep 50
  }

;
; Returns 1 if %a_szKeyName% is not being pressed, otherwise 0
;
IsKeyReleased(a_szKeyName)
{
   GetKeyState, state, %a_szKeyName%, P
   If state = U  ; The key is not being pressed
   {
      Return 1
   }
   Return 0
}

$LWin::
  iSeatCount = 1
  Loop
  {
    ; Check if 'LWin' key has been released, if so Break out of the loop.
    If IsKeyReleased("LWin")         
      Break
    if iSeatCount > 5
       iSeatCount = 1
   VehicleSeat(iSeatCount)
   iSeatCount++
    Sleep, 800
  }
Return                           ; needed? cosmetic probably.
;
; Change to Vehicle seat %a_iSeatNumber* function key F1-F5
;
VehicleSeat(a_iSeatNumber)
{
   If( a_iSeatNumber > 0 and a_iSeatNumber < 6)
   {
      Send, {F%a_iSeatNumber% Down}
      Sleep 100
      Send, {F%a_iSeatNumber% Up}
      Sleep 100
   }
   Sleep 50
}

iSeatCount := mod(%a_index%,5) + 1
VehicleSeat(iSeatCount)

;
; AutoHotkey      Version: 1.1.2878+
; 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

$^CapsLock::
   ExitApp
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Pressing Ctrl+V while BF2 is active
;
$^v::
   Sleep 200
   SetKeyDelay, 30,30
   Send,  {Space}%clipboard%
   SetKeyDelay, 0
return
;
; Hold down Shift+w briefly to start, then release the shift key,
; but keep holding down 'w' to keep the camera switching.
; When you release 'w' the camera will go back to {F9} view
; To stop moving forward just tap the 'w' key again
;
$+w::
  ; View inside vehicle else if 'Win' held commence a forward and rear scan until 'w' released.
  Loop
  {
    Sleep, 10
    If IsKeyReleased("w")   
      Break
    VehicleViewFront()
    If IsKeyReleased("w")
      Break
    Sleep, 500
    If IsKeyReleased("w")
      Break
    VehicleViewRear()
    If IsKeyReleased("w")
      Break
    Sleep, 500
  }
  VehicleViewInside()
Return

; Returns 1 if %a_szKeyName% is not being pressed, otherwise 0
;
IsKeyReleased(a_szKeyName)
{
   GetKeyState, state, %a_szKeyName%, P
   If state = U  ; The key is not being pressed
   {
      Return 1
   }
   Return 0
}

VehicleView(v_iView)
  ; Change Vehicle view by pressing function key F9-F11 %v_iView%
  {
    If( v_iView > 8 and v_iView < 12)
    {
      Send, {F%v_iView% Down}
      Sleep 100
      Send, {F%v_iView% Up}
      Sleep 100
    }
  Sleep 50
  }

VehicleViewFront()
{
  VehicleView(10)
}

VehicleViewRear()
{
  VehicleView(11)
}

VehicleViewInside()
{
  VehicleView(9)
  VehicleView(9)
}

;
; AutoHotkey      Version: 1.1.2878+
; 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

$^CapsLock::
   ExitApp
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Pressing Ctrl+V while BF2 is active
;
$^v::
   Sleep 200
   SetKeyDelay, 30,30
   Send,  {Space}%clipboard%
   SetKeyDelay, 0
return
;
; Hold down XButton1 button to start cycling though Rear and Front
; views.  Release XButton1 and it will return you to cockpit view
; (with no cockpit)
;
$XButton1::
  Loop
  {
    Sleep, 10
    If IsKeyReleased("XButton1")   
      Break
    VehicleViewFront()
    If IsKeyReleased("XButton1")
      Break
    Sleep, 500
    If IsKeyReleased("XButton1")
      Break
    VehicleViewRear()
    If IsKeyReleased("XButton1")
      Break
    Sleep, 500
  }
  VehicleViewInside()
Return

; Returns 1 if %a_szKeyName% is not being pressed, otherwise 0
;
IsKeyReleased(a_szKeyName)
{
   GetKeyState, state, %a_szKeyName%, P
   If state = U  ; The key is not being pressed
   {
      Return 1
   }
   Return 0
}

VehicleView(v_iView)
  ; Change Vehicle view by pressing function key F9-F11 %v_iView%
  {
    If( v_iView > 8 and v_iView < 12)
    {
      Send, {F%v_iView% Down}
      Sleep 100
      Send, {F%v_iView% Up}
      Sleep 100
    }
  Sleep 50
  }

VehicleViewFront()
{
  VehicleView(10)
}

VehicleViewRear()
{
  VehicleView(11)
}

VehicleViewInside()
{
  VehicleView(9)
  VehicleView(9)
}

IsKeyReleased(v_KeyName)
  ; Returns 1 if %v_KeyName% has been released, otherwise 0
  {
    GetKeyState, state, %v_KeyName%, P
    If state = U  ; The key has been released
    {
      Return 1
    }
    Return 0
  }

ViewFront:
  VehicleView(11)                  ; Switch to Chase Front
Return

ViewInside:
  VehicleView(9)                  ; Switch to internal view
  VehicleView(9)
Return

ViewRear:
  VehicleView(10)                  ; Switch to Chase Rear
Return

ViewInsidePOV:
  ; View inside vehicle else if 'Win' held commence a forward and rear scan until 'Win' released.
  Gosub, ViewInside
  Sleep 800
  Loop
  {
    Sleep, 10
    If IsKeyReleased("LWin")          ; Check if 'LWin' key has been released, if so Break out of the loop.
      Break
    ; Commence POV Point of View Scan.
    Gosub, ViewFront
    Sleep 800
    Gosub, ViewRear
    Sleep 800
  }
  Goto, ViewInside
Return                           ; needed? cosmetic probably.

VehicleView(v_iView)
  ; Change Vehicle view by pressing function key F9-F11 %v_iView%
  {
    If( v_iView > 8 and v_iView < 12)
    {
      Send, {F%v_iView% Down}
      Sleep %KeySleep1%
      Send, {F%v_iView% Up}
      Sleep %KeySleep1%
    }
  Else
    Send, @huh????%v_iPosition%
  Sleep 50
  }

VehiclePositionCycle:
  ; Cycle up through Vehicle postions F1-F6 if 'Win' held until 'Win' released.
  Gosub, ViewInside
  Sleep 800
  Loop
  {
    Sleep, 10
    If IsKeyReleased("LWin")          ; Check if 'LWin' key has been released, if so Break out of the loop.
      Break
    ; Commence upward cycle of Vehicle Positions, timer might need increase/decrease??.
    Gosub, VehicleCycleUp
    Sleep 800
    ;Gosub, ViewRear
    ;Sleep 800
  }
  ;Goto, ViewInside
  VehiclePosition(1)               ; This bit needs to be verified to ensure switches correctly in BF2
  ;Msgbox, Hello I've ended the position cycle. Back to Postiton: %v_iPosition%   ; %v_iPosition% wasn't declared "Global" incorrct value held
Return    

#T::
   Goto, VehicleCycleUp   ; Hotkey only for testing, assign better key
   
#G::
   Goto, VehicleCycleDown   ; Hotkey only for testing, assign better key

$#J::
   Goto, VehiclePositionCycle    ; Hotkey only for testing, assign better key
   
~E::v_iPosition = 1                  ; Need to set default vehicle position on enter/exit vehicle?? 
   
VehicleCycleUp:
  If( v_iPosition > 0 and v_iPosition < 6)
  {
    v_iPosition++                  ; Increment position by 1
    VehiclePosition(v_iPosition)
    ;Msgbox, Postiton is: %v_iPosition%
  }
  Else If (v_iPosition > 5)
  {
   v_iPosition = 1
   VehiclePosition(v_iPosition)
   ;Msgbox, Postiton is: %v_iPosition%
  }
Return

VehicleCycleDown:
  If( v_iPosition > 1 and v_iPosition < 7)
  {
    v_iPosition--                  ; Decrement position by 1
    VehiclePosition(v_iPosition)
   ;Msgbox, Postiton is: %v_iPosition%
  }
  Else If (v_iPosition < 2)
  {
   v_iPosition = 6
   VehiclePosition(v_iPosition)
   ;Msgbox, Postiton is: %v_iPosition%
  }
Return 

VehiclePosition(v_iPosition)
; Change Vehicle position by pressing function key F1-F6 %v_iPosition%
{
  If( v_iPosition > 0 and v_iPosition < 7)
  {
    ; Audible notification?   
    Send, {F%v_iPosition% Down}
    Sleep %KeySleep1%
    Send, {F%v_iPosition% Up}
    Sleep %KeySleep1%
  }   
  Else
    Send, @huh????%v_iPosition%
  Sleep 50
}

SpotHere()
{
   MouseGetPos, , ypos
   offsetY := 30
   ; TODO: Figure out coord system, coordinate system migrates
   ;if(ypos > 382)
   ;{
   ;   offsetY := offsetY - ypos + 382
   ;}
   sleep 20
   MouseClick, Right, , , , , D
   sleep 40
   MouseClick, Right, , , , , U
   DllCall("mouse_event", uint,1, int,20, int,offsetY, uint,0, int,0 )
;   SayToTeam("ypos ". ypos . " offsetY " . offsetY)
   sleep 40
   MouseClick, Left, , , , , D
   sleep 40
   MouseClick, Left, , , , , U
   DllCall("mouse_event", uint,1, int,-20, int,-offsetY, uint,0, int,0 )
   Sleep 200
}
;
; Spot in 20x20 square area in Commander screen
;
$^LButton::
   DllCall("mouse_event", uint, 1, int, -10, int, -10, uint,0, int,0 )
   SpotHere()
   DllCall("mouse_event", uint, 1, int, 20, int, 0, uint,0, int,0 )
   SpotHere()
   DllCall("mouse_event", uint, 1, int, 0, int, 20, uint,0, int,0 )
   SpotHere()
   DllCall("mouse_event", uint, 1, int, -20, int, 0, uint,0, int,0 )
   SpotHere()
return

   MouseGetPos, , ypos
   offsetY := 30
   if(ypos > 382)
   {
      offsetY := offsetY - ypos + 382
   }

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

CammoRoseSpot()
{
   Send, {q Down}
   Sleep 100
   MouseClick, Left, , , , , D
   sleep 40
   MouseClick, Left, , , , , U
   Send, {q Up}
   Sleep 100
}

;
; Press NumpadSub to spot a in a triangle around current position
;
$NumpadSub::
   MouseEvent(-24, 20)
   Sleep 150
   CammoRoseSpot()
   MouseEvent(24, -40)
   Sleep 150
   CammoRoseSpot()
   MouseEvent(24, 40)
   Sleep 150
   CammoRoseSpot()
   MouseEvent(-24, -20)
   Sleep 150
return

;
; AutoHotkey      Version: 1.1.2878+
; 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

$^CapsLock::
   ExitApp
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Pressing Ctrl+V while BF2 is active
$^v::
   Sleep 200
   SetKeyDelay, 30, 30
   Send,  {Space}%clipboard%
   SetKeyDelay, 0
return
;
; Double click then press the OK button 2 seconds later on
; Favorites server (a_index 0-14)
;
connectToFavoritesServer(a_iIndex)
{
   if( (a_iIndex >= 0) && (a_iIndex <= 14))
   {
      ypos := 145 + 20 * a_iIndex
      MouseClick, Left, 413, ypos
      MouseClick, Left, 413, ypos
      Sleep 2000
      MouseClick, Left, 614, 404
   }

}
;
; Double click on first server in list (favorites) and
; then press the OK button 2 seconds later while holding
; down Numpad8
;
$Numpad8::
$NumpadUp:
   Loop
   {
      if( IsKeyPressed("Numpad8") || IsKeyPressed("NumpadUp") )
      {
         connectToFavoritesServer(0)
      }
      else
      {
         break
      }
   }
return
;
; Returns 1 if %a_szKeyName% is being pressed, otherwise 0
;
IsKeyPressed(a_szKeyName)
{
   GetKeyState, state, %a_szKeyName%, P
   If state = D  ; The key is not being pressed
   {
      Return 1
   }
   Return 0
}