AHK: Saints Row The Third (готовый скрипт)

lLeft:
    ;fUDLR:=true
  Send, {Left Down}
    fnTurnLR(vGearSpdTimer, 5, 1, "Left")
  Send, {Left Up}
    ;fUDLR:=false    
return

lRight:
    ;fUDLR:=true
  Send, {Right Down}
    fnTurnLR(vGearSpdTimer, 5, 1, "Right")
  Send, {Right Up}
    ;fUDLR:=false
return

;The function of soft turn, provides input in the steep turn at high speed.  
fnTurnLR(iTimer, iDec, iInc, iKey)
{
  global ;------

  local vSpdTimer
  local cTimer, cDec, cInc, cKey
  local fReEnter:=false

      if (fReEnter)     ;Protection from of recursion
                return
      fReEnter := true
      cTimer := iTimer, cDec:=iDec, cInc:=iInc, cKey:=iKey
  
      vGearSpdTimer := cTimer
      while (GetKeyState(cKey, "P"))
        {
          vSpdTimer := vGearSpdTimer
          sleep %td50_Sleep%
          while ((GetKeyState(cKey, "P")) && (vGearSpdTimer>0))
            {
              vGearSpdTimer -= cDec
              ;sleep %td50_Sleep%
            }
          while ((GetKeyState(cKey, "P")) && (vGearSpdTimer<vSpdTimer))
            {
              vGearSpdTimer += cInc
              ;sleep %td50_Sleep%
            }      
        }
      fReEnter := false
  return
} 

;Enable/disable the car turn corrections depending on its speed.
lCorrectorYaw:
  if (fScepl)
        return
    if (fCarTurn)                     
      {
             fCarTurn:=false
             fnPlaySoundTHQ(iSoundCorrectorYawOFF)
            }
        else
            {
                fCarTurn:=true
                fnPlaySoundTHQ(iSoundCorrectorYawON)                        
            }                    
return

;---
;Main function to dynamically calculate the speed, braking and turning angle corrector, as well as set the flags for timers speed and braking
;---Beginning of function fnGearSpdBrk
fnGearSpdBrk(vParam0, vSpdBrk) ;The values for vSpdBrk (0 - no matter, 1 - speed of the timer, 2 - braking of the timer, 3 and higher - the other subprogramme)
{
;The constants function fnGearSpdBrk and all the subprogrammes who is calling, they are defined above under subprogramme "lVarGameTHQ".
;cFnSB_Learn||cFnSB_Speed||cFnSB_Brake||cFnSB_GT||cFnSB_Boost||cFnSB_Sharp||cFnSB_Turn||cFnSB_Above||
;          1            2            3         4            5            6           7            8

global ;All variables in the function will be global, it is necessary to comment to engage the directive "global" - should not be an empty string.
local fSpdBrk, vMComp, sLabel, vRetFn, vRetResult
static arSpdBrk := ["lFnSB_Learn","lFnSB_Speed","lFnSB_Brake","lFnSB_GT","lFnSB_Boost","lFnSB_Sharp","lFnSB_Turn","lFnSB_Above"] 
static cErFun := "Error in the function `" fnGearSpdBrk `". `n" 
static fRetDone := 0, fRetErr := -1 
  
  sLabel := arSpdBrk[vSpdBrk]
  if (!IsLabel(sLabel))
   {
         msgbox, % vMsgOptionsEr 
                            ,Saints Row: The Third
              , %cErFun% Dynamic label with name = "%sLabel%" does not exist.`n`n %сErrOfExit%
              ,30
     ExitApp
    }
  ;a  := arSpdBrk[vSpdBrk]
  ;tooltip %a% = %vSpdBrk%
  vRetFn := fRetDone
  gosub, % arSpdBrk[vSpdBrk]
  if (vRetFn = fRetErr)
    {
         sbLabel := SubStr(sLabel, 2)
     msgbox, % vMsgOptionsEr 
                            ,Saints Row: The Third
              , %cErFun% Semantic error in the sub-function = "%sbLabel%" `n`n %сErrOfExit%
              ,30
     ExitApp
    }  

return vRetResult
;----------------------------------------
;-----Остальные обработчики
;----------------------------------------
;The block checks the flags and the initial values for the correction of the rotation.
lFnSB_Turn:
;----------------------------------Тут код для обработчика таймера
  return 
      
rern vRetFn:=fRetErrtu

;----------------------------------------
;-----Остальные обработчики
;----------------------------------------

;While not using - stopgap
; cFnSB_Above := 6
lFnSB_Above: 
return vRetFn:=fRetErr
}
;---End of function fnGearSpdBrk
;---

;--------------------------------------------------------------------------
;The three basic routines speed, braking and rotation to them all is based.

;********** Begin section **********

;Subprogramme the timer speed/acceleration.
lMoveUp:
  fnGearSpdBrk(cNoneParam, cFnSB_GT)
  if (fnGearSpdBrk(cNoneParam, cFnSB_Speed))
        return
  if (vGearSpdTimer<=0)
       vGearSpdTimer := 1
  Send, {UP Down}
  sleep %vGearSpdTimer%
  Send, {UP Up}
return

;Subprogramme the timer braking.
lMoveBrk:
  fnGearSpdBrk(cNoneParam, cFnSB_GT)
  if (fnGearSpdBrk(cNoneParam, cFnSB_Brake))
       return
  if (vGearBrkTimer<=0)
       vGearBrkTimer := 1       
  Send, {Down Down}
  sleep %vGearBrkTimer%
  Send, {Down Up}
return

;********** End of section **********
;--------------------------------------------------------------------------

;----------Секция ON
lSetTimerOn:
  SetTimer lMoveUp,     %cTimerSpd%
  SetTimer lMoveBrk,    %cTimerBrk%
  ;SetTimer lKeyUpTimer, %сKeyUpTimer%
  ;SetTimer lKeyDnTimer, %cKeyDnTimer%
  return

lMainTHQon1:
    vRSh     :=1
    vRShX         := true
    ;fnGearSpdBrk(false, cFnSB_Turn) ;vSlew      := false
    fUDLR       := false
  fKeyUpTimer := false
  fKeyDnTimer := false  
  vSharpBrake := 0
  vBoostSpeed := 0
  fnGearSpdBrk(cNoneParam, cFnSB_Learn)    
return
;----------Секция OFF
lSetTimerOff:
    SetTimer lMoveUp,     Off
  SetTimer lMoveBrk,    Off
  ;SetTimer lMoveSlew,   Off
  ;SetTimer lKeyUpTimer, Off
  ;SetTimer lKeyDnTimer, Off  
return

lMainTHQoff1:
    vRSh     := 0
    vRShX         := true 
  fScepl      := false
    ;fnGearSpdBrk(false, cFnSB_Turn) ;vSlew      := false
    fUDLR       := false
  fKeyUpTimer := false
  fKeyDnTimer := false  
  vSharpBrake := 0
  vBoostSpeed := 0
    fnGearSpdBrk(cNoneParam, cFnSB_Learn)    
return