#SingleInstance Force
#MaxThreads, 999999
#MaxThreadsPerHotkey, 99999
SendMode Input

v := ComObjCreate("SAPI.SpVoice")
v.Voice := v.GetVoices().Item( 0 ) ; talk voice
v.rate := -1 ; Talk Speed
v.volume := 100 ; Talk volume

Auto := False
Rap := False
Bun := False

Speed = 100
Bullets = 3
AimFast = 12
AimSlow = 3

Tex0 = Its Now Running
v.Speak(Tex0)
return

Z & Tab:: ; Information about Hokeys and states of varibles
Keyz = Hot keys,, Recoiler Capslock, AutoFire MButton,BurstShoot Shift + Left Mouse,Add Speed NumpadAdd,Remove Speed NumpadSub,Add Bullets Page up,Remove Bullets Page Down,Reset Burst Home,Bunny Hopping Control and Space,Mute Voice Down,Suspend Up, Exit RBBFR Control & Escape

Stat = Bullets %Bullets% Speed %Speed% Rapid Fire %Auto% Recoil %Rap% Bunny %Bun%

v.Speak(Keyz)
v.Speak(Stat)
return

~LButton::
Rapid() ; Rapid fire
Recoil() ; No Recoil
return

~*space::  ; Bunny Hopping
Bunny()
return

CapsLock::
Auto := ! Auto ; No Recoil
Tex2 := "Recoil" ((Auto) ? ("On") : ("Off"))
v.Speak(Tex2)
return

MButton::
Rap := ! Rap ; Rapid Fire
Tex3 := "RapidFire" ((Rap) ? ("On") : ("Off"))
v.Speak(Tex3)
return

NumpadAdd::  ; Adds Speed to Burst
Speed += 100
Tex5 = Speed %Speed%
v.Speak(Tex5)
return

NumpadSub:: ; Remove/Minus speed to Burst
Speed -= 100
Tex5 = Speed %Speed%
v.Speak(Tex5)
return

PGUP:: ; Adds bullets to Burst
Bullets += 1
Tex4 = Bullets %Bullets%
v.Speak(Tex4)
return

PGDN:: ; Remove/Minus bullets to Burst
Bullets -= 1
Tex4 = Bullets %Bullets%
v.Speak(Tex4)
return

Home:: ; Resets Burst
Bullets = 3
Speed = 100
Tex6 = Reseted
v.Speak(Tex6)
return

UP:: ; Suspend/Pause
Suspend, Toggle
Tex7  := "Suspended " ((Suspend) ? ("On") : ("Off"))
v.Speak(Tex7)
return

Down:: ; Mute Voice
Voi = Muted
v.Speak(Voi)
v.volume := 0 ; talk volume
return

Ctrl & Esc:: ; Exit Program
Tex8 := Program Termenated
v.Speak(Tex8)
ExitApp
return


Ctrl & Space:: ; Bunny Hopping
Bun := ! Bun
Tex9 := "Bunny " ((Bun) ? ("On") : ("Off"))
v.Speak(Tex9)
return

*LAlt:: ; Steady Hand
DllCall("SystemParametersInfo", UInt, 0x71, UInt, 0, UInt, AimSlow, UInt, 0)
Loop
{
    Sleep, 10
    GetKeyState, state, LAlt, P
    if state = U
        break
}
DllCall("SystemParametersInfo", UInt, 0x71, UInt, 0, UInt, AimFast, UInt, 0)
return


Recoil() ;Recoil
{
Global Auto
IF Auto
{
Loop
{
IF GetKeyState("LButton", "P")
{
MouseXY(0,3)
sleep 30
}
else
break
}
}
}
return

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


Shift & LButton:: ; Burst fire
{
Loop, %Bullets%
{
sendinput, {LButton}
sleep, %Speed%
}
keywait, LButton
}
return

Ctrl & LButton:: ; One Shoot
{
Send {LButton}
KeyWait LButton
}
return

Rapid() ; RapidFire
{
Global Rap
IF Rap
{
Loop
{
IF GetKeyState("LButton", "P")
{
sendinput, {LButton}
}
else
break
}
}
}
return

Bunny()  ; Bunny
{
Global Bun
IF Bun
Loop
{
GetKeyState,state,space,P
IF state = U
break

Send,{space}
Sleep,20

}
}
return