#Include <Misc.au3>
$variable=8 ; Variable: 0 = md() ; 1 = mu() ; 2 = md1() ; 3 = mu1() ; 8 =

While 1 ; Hearth
    If _IsPressed(58) then ProneCancel() ; X = ProneCancel
    If _IsPressed(10) then FastChange() ; LSHIFT = FastChange
    If _IsPressed(11) then ProneBug() ; CRTL = ProneBug
    If _IsPressed(51) then $variable=0 ; Q = HoldShot
    If _IsPressed(59) then $variable=2 ; Y = AutoShot
    If $variable=0 then md() ; If Hold Left Mouse = Hold Shot
    If $variable=1 then mu() ; If Not Hold Left Mouse After Hold Shot
    If $variable=2 then md1() ; If Hold Left Mouse = Auto Shot
    If $variable=3 then mu1() ; If Not Hold Left Mouse After Auto Shot
    If _IsPressed(61) then $variable=8 ; NUMPAD1 = Turn Off Mousclick Actions
    If _isPressed(60) then Close() ; NUMPAD0 = Close Script Key
    Sleep (15)
WEnd

Func ProneCancel() ; ProneCancel ##############################################
    Send("{v down}")
    Sleep (9)
    Send("{v up}")
    Sleep (28)
    Send("{SPACE down}")
    Sleep (9)
    Send("{SPACE up}")
    While _IsPressed(58)
       Sleep (5)
    WEnd
EndFunc

Func FastChange() ; FastChange ################################################
    Sleep (390)
    Send("{SPACE down}")
    Sleep (15)
    Send("{SPACE up}")
    While _IsPressed(10)
       Sleep (5)
    WEnd
 EndFunc

 Func ProneBug() ; ProneBug ###################################################
    Send("{v down}")
    Send("{SPACE down}")
       while  _IsPressed(11)
          Sleep(10)
       wend
    Send("{v up}")
    Send("{SPACE up}")
EndFunc

Func md() ; If Hold Left Mouse = HoldShot #####################################
    If _IsPressed(01) then Sensido()
EndFunc

Func mu() ; If Not Hold Left Mouse After HoldShot #############################
    If Not _IsPressed(01) then Sensiup()
EndFunc

Func Sensido() ; Left Mouse Get Down ##########################################
    Sleep (100) ; StartUpTime HoldShot
    Send("{k down}")
    $variable=1
EndFunc

Func Sensiup() ; Left Mouse Get Up ############################################
    Send("{k up}")
    $variable=0
EndFunc

Func md1() ; If Hold Left Mouse = StartUpTime #################################
    If _IsPressed(01) then Sensido1()
    Sleep (15)
EndFunc

Func mu1() ; If Hold Left Mouse After StartUpTime = AutoShot ##################
    Send("{k down}")
    Sleep (5)
    Send("{k up}")
    If Not _IsPressed(01) then Sensiup1() ; LeftMouseUp = StartUpTimeAuto #####
EndFunc

Func Sensido1() ; StartUpTime Autoshot ########################################
    Sleep (100)
    $variable=3
   EndFunc

Func Sensiup1() ; Set StartUpTime AutoShot ####################################
    $variable=2
EndFunc

Func Close(); Close Script ####################################################
    Exit
EndFunc