AHK BattleField 2 Multi Script

Submitted by bbq on Tue, 26/01/2010 - 17:50
This script was created by T3D from EliteEvil forums.
You will need AutoHotKey (AHK)
Once installed copy paste this script into a text editor and save it with extension .ahk
Double click to launch AHK and the Script.
Enjoy
; -------------------------------------------------------------------------------------------------------------------------------------------------- .
; ----------------------- B A T T L E F I E L D 2 I N F A N T R Y & C H O P P E R ----------------------- :
; -------------------------------------------------------------------------------------------------------------------------------------------------- '
 
#MaxHotkeysPerInterval 999
#SingleInstance force
#InstallMouseHook
#InstallKeybdHook
#NoEnv
 
KeepRunning:
 
WinGet, szProcessName, ProcessName, A
if szProcessName = bf2.exe
{
Suspend, off
}
else
{
Suspend, toggle
}
return
 
; ---------------------------------------------------------------------------- .
; ------------------- S C R I P T O N / O F F ----------------- :
; ---------------------------------------------------------------------------- '
 
$\::
 
Suspend, Toggle
If toggle != 1
{
toggle := 1
SoundBeep 333
SoundBeep 444
SoundBeep 555
}
else
{
toggle := 0 
SoundBeep 555
SoundBeep 444
SoundBeep 222
}
return
 
; ----------------------------------------------------------------------------- .
; ------------------ I N F A N T R Y M O D E ------------------- :
; ----------------------------------------------------------------------------- '
 
$[::
 
Hotkey, $H, On
Hotkey, $Y, On
Hotkey, MButton, On
Hotkey, LButton, On
Hotkey, XButton1, Off
Hotkey, Space, Off
Hotkey, WheelUp, Off
Hotkey, WheelDown, Off
 
Goto, Infantry
 
return
 
; ----------------------------------------------------------------------------- .
; ------------------- C H O P P E R M O D E -------------------- :
; ----------------------------------------------------------------------------- '
 
$]::
 
Hotkey, $H, Off
Hotkey, $Y, Off
Hotkey, MButton, Off
Hotkey, LButton, On
Hotkey, XButton1, On
Hotkey, Space, On
Hotkey, WheelUp, On
Hotkey, WheelDown, On
 
Goto, Chopper
 
return
 
; ---------------------------------------------------------------------------- .
; ---------- A U T O C L I C K E R O N / O F F ---------- :
; ---------------------------------------------------------------------------- '
 
$=::
 
Hotkey, ~LButton, toggle
 
If toggle != 1
{
toggle := 1
SoundBeep
}
else
{
toggle := 0 
SoundBeep
SoundBeep
}
 
return
 
; ------------------------------------------------------------------------------------------------------------------------ .
; ------------------------------- S O U N D P L A Y I N F A N T R Y -------------------------------- :
; ------------------------------------------------------------------------------------------------------------------------ '
 
Infantry:
 
TEMPFILE = %TEMP%\TALK.vbs
IfExist, %TEMPFILE%
FileDelete, %TEMPFILE%
FileAppend, Dim Talk`nSet Talk = WScript.CreateObject("SAPI.SpVoice")`nTalk.Speak "INFANTRY", %TEMPFILE%
Sleep, 30
RunWait, %TEMPFILE%
 
return
 
; ----------------------------------------------------------------------------- .
; -------------------------- JUMP/PRONE SPAM -------------------------- :
; ----------------------------------------------------------------------------- '
 
~$H::
Hotkey, LButton, On
{
Loop 
{
 
Send, {Space Down}
Sleep 30
Send, {Space Up}
Sleep 300
Send, {Z Down}
Sleep 30
Send, {Z Up}
Sleep 450
Send, {LCtl Down}
Sleep 30
Send, {LCtr Up}
Sleep 800
 
GetKeyState, HState, H, T
IF HState = D 
{
continue
}
 
GetKeyState, HState, H, T
IF HState = U
{
break
} 
 
} 
}
return
 
; -----------------------------------------------------------------------------.
; -------------------------------- DROP ITEM ----------------------------- :
; -----------------------------------------------------------------------------'
 
$Y::
 
Send, {5 down}
Sleep 30
Send, {5 up}
Sleep 1000
MouseClick, Left,,, 1, 0, D
Sleep, 30
MouseClick, Left,,, 1, 0, U
Sleep 30
Send, {3 down}
Sleep 30
Send, {3 up}
 
return
 
; ----------------------------------------------------------------------------- .
; ---------------------------- QUICK ENEMY SPOT -------------------------- :
; ----------------------------------------------------------------------------- '
 
$MButton::
 
Send, {Q Down}
Sleep 40
MouseClick, Left, , , , , D
sleep 40
MouseClick, Left, , , , , U
Send, {Q Up}
 
return
 
; ----------------------------------------------------------------------------- .
; ------------------------------- AUTO CLICKER --------------------------- :
; ----------------------------------------------------------------------------- '
 
~LButton::
 
Loop 
{
if (GetKeyState("LButton", "P") = 0)
{
break 
}
else
{
MouseClick, left,,, 1, 0, D
Sleep, 30
MouseClick, left,,, 1, 0, U
Sleep 30
}
}
 
return
 
; ------------------------------------------------------------------------------------------------------------------------ .
; -------------------------------- S O U N D P L A Y C H O P P E R --------------------------------- :
; ------------------------------------------------------------------------------------------------------------------------ '
 
Chopper:
 
TEMPFILE = %TEMP%\TALK.vbs
IfExist, %TEMPFILE%
FileDelete, %TEMPFILE%
FileAppend, Dim Talk`nSet Talk = WScript.CreateObject("SAPI.SpVoice")`nTalk.Speak "CHOPPER", %TEMPFILE%
Sleep, 30
RunWait, %TEMPFILE%
 
return
 
 
; ----------------------------------------------------------------------------- .
; --------------------- PILOT/GUNNER SWITCH : TVGM ----------------- :
; ----------------------------------------------------------------------------- '
 
~XButton1::
 
Send {F2 down}
Sleep 30
Send {F2 up}
 
MouseClick, Right,,, 1, 0, D
Sleep, 30
MouseClick, Right,,, 1, 0, U
Sleep 50
MouseClick, Left,,, 1, 0, D
Sleep, 30
MouseClick, Left,,, 1, 0, U
 
{
Loop 
{
MouseClick, Left,,, 1, 0, D
Sleep, 30
MouseClick, Left,,, 1, 0, U
Sleep 30
 
GetKeyState, XButton1State, XButton1, P
If XButton1State = D
{
continue
}
 
GetKeyState, XButton1State, XButton1, T
IF XButton1State = U
{
break
} 
} 
}
Sleep 50
Send {F1 down}
Sleep 30
Send {F1 up}
Sleep 30
Send {F8 down}
Sleep 30
Send {F8 up}
 
return
 
; ----------------------------------------------------------------------------- .
; ------------------- PILOT/GUNNER SWITCH : CANNON ----------------- :
; ----------------------------------------------------------------------------- '
 
~Space::
 
Send {F2 down}
Sleep 30
Send {F2 up}
Sleep 30
Send {F8 down}
Sleep 30
Send {F8 up}
 
Loop
{
GetKeyState, SpaceState, Space, P
If SpaceState = U
break
 
MouseClick, Left,,, 1, 0, D
}
MouseClick, Left,,, 1, 0, U
Sleep 30
 
Send {F1 down}
Sleep 30
Send {F1 up}
Send {F8 down}
Sleep 30
Send {F8 up}
 
return
 
; ----------------------------------------------------------------------------- .
; -------------------------------- COMMO ROSE ----------------------------- :
; ----------------------------------------------------------------------------- '
 
$WheelUp::
 
Send, {Q Down}
Sleep 3000
Send, {Q Up}
 
return
 
; ----------------------------------------------------------------------------- .
; --------------- TOGGLE : FLY-BY/CHASE-REAR/COCKPIT -------------- :
; ----------------------------------------------------------------------------- '
 
$WheelDown::
 
Send, {F11 down}
Sleep 30
Send, {F11 up}
Sleep 300
Send, {F10 down}
Sleep 30
Send, {F10 up}
Sleep 300
Send, {F8 down}
Sleep 30
Send, {F8 up}
Sleep 30
Send, {F8 down}
Sleep 30
Send, {F8 up}
 
return
 
; -------------------------------------------------------------------------------------------------------------------------------------------------- .
; ----------------------- B A T T L E F I E L D 2 I N F A N T R Y & C H O P P E R ----------------------- :
; -------------------------------------------------------------------------------------------------------------------------------------------------- '
Add new comment
thebbqcode

Projects

Search

Syndicate

AHK BattleField 2 Multi Script
