[Tutorial] "Autofire + Aim Correction"+text spammer

;;;;;;
;; Autofire + Aim Correction
;;;;;;
;;
;; Pressing the left mouse button causes an "automatic fire effect"
;; to happen by sending mouse up/down events at regular intervals
;; Also, correction to recoil deviation is done during that interval by
;; lowering the gun a bit.
;;
;; This is good for semi-automatic guns, i.e. pistols and Voss etc.
;;
;; Works well with automatic guns too. Play with the intervals for
;; holding down fire while on a machine gun to prevent overheating.
;;
;; Usage:
;; - Start Exe.In game, press left mouse button for automatic fire
;; - Press Shift + CTRL AND LMButton to enable/disable automatic fire
;; ;;;;;;
#SingleInstance force
#InstallKeybdHook
#InstallMouseHook
#MaxHotkeysPerInterval 50000
#NoEnv
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
;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, BF2142
{
MouseClick, left,,, 1, 0, D
;delay between simu. mouse btn down and up
Sleep, 20
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, 30
}
else
{
break
}
}
}
exit
return
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
}
return
;
; 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
;
; Bounce up/down and jump sideways while shooting
;
$c::
Send, {y Down}
Sleep 100
Send, {d Down}
Send, {y Up}
Sleep 100
Send, {Space Down}
Sleep 500
Send, {d Up}
Send, {Space Up}
Sleep 100
Send, {x Down}
Sleep 100
Send, {z Down}
Send, {x Up}
Sleep 100
Send, {z Up}
Sleep 100
return
;
; Prone spam
;
$x::
Send, {x Down}
Sleep 100
Send, {y Down}
Send, {x Up}
Sleep 100
Send, {y Up}
Sleep 100
Send, {x Down}
Sleep 100
Send, {x Up}
Sleep 100
return
togglePistolRifle()
{
static g_Pistol
if(1 == mod(g_Pistol,2))
{
; Switching to Rifle
Send, {3 down}
Sleep 50
Send, {3 up}
}
else
{
; Switching to Pistol
Send, {1 down}
Sleep 50
Send, {1 up}
Sleep 30
Send, {I down}
Sleep 50
Send, {I up}
}
g_Pistol += 1
}
toggleF2PistolF3Rifle()
{
static g_Pistol
if(1 == mod(g_Pistol,2))
{
; Switching to Rifle
Send, {f3 down}
Sleep 50
Send, {f3 up}
}
else
{
; Switching to Pistol
Send, {f2 down}
Sleep 50
Send, {f2 up}
}
g_Pistol += 1
}
;
; Toggle between pistol/rifle when you press the middle mouse button
;
$f::
togglePistolRifle() ; Default keybinds 2 and 3
;toggleF2PistolF3Rifle() ; F2 and F3
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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;
;
; TEXT SPAMMER
;
SayToAll(a_szMessage)
{
SetKeyDelay, 30,30
Send, {j Down}
Sleep 100
Send, {j Up}
Send, %a_szMessage%{Enter}
SetKeyDelay, 0
}
SayToSquad(a_szMessage)
{
SetKeyDelay, 30,30
Send, {l Down}
Sleep 100
Send, {l Up}
Send, %a_szMessage%{Enter}
SetKeyDelay, 0
}
SayToTeam(a_szMessage)
{
SetKeyDelay, 30,30
Send, {k Down}
Sleep 100
Send, {k Up}
Send, %a_szMessage%{Enter}
SetKeyDelay, 0
}
$Numpad1::
$NumpadEnd::
SayToAll("|c001 .... IS THE SHIAT - Complete Ownage")
return
$Numpad2::
$NumpadDown::
SayToAll("|c001 THE KICK-VOTE IS YOUR ONLY WEAPON HUH??? Ready to get YOUR A SS WHIPPED??!!")
return
$Numpad3::
$NumpadPgDn::
SayToAll("|c001 Ja ja die KICK-VOTE ist deine einzige Waffe du NOOB")
return
$Numpad4::
$NumpadLeft::
SayToAll("|c001 BUSTED + DOGTAGGED LOL")
return
$Numpad5::
$NumpadClear::
SayToAll("|c001 ICH BIN DOG DER BOESE DOG")
return
$Numpad6::
$NumpadRight::
SayToTeam("|c001 GOOD GAME NICE WORK")
return
;;;;;;
;;; End script
;;;;;;I'm not that good with computer languages(I'm studying). But this could be useful to some people. (I found one mistake and fixed it, so this script might not be perfect). Also I beleive the text spammer works the following way: press numpad 1 and the message apears (in th