1. Подпрограмма lCorrectorYaw используется автоматически при нажатии стрелок/клавиш Left или Right, значит код
Hotkey, %keyHome%, lCorrectorYaw, On
и
Hotkey, %keyHome%, lCorrectorYaw, Off не нужен, т.е. не нужно задействовать клавишу.
Я отказался от корректора поворотов из за его сложности, но компенсатор поворотов всё же есть.
+ Код компенсатора
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
} Сама подпрограмма только выдаёт звук и всё, т.е. нет таймера для обработки(не помню когда отказался)
+ lCorrectorYaw
;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Но расчёт ведётся, так что осталось написать код в подпрограмме
+ fnGearSpdBrk(vParam0, vSpdBrk)
;---
;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
;---
Далее дополнить
+ Секцию таймеров(там только Up и Dn)
;--------------------------------------------------------------------------
;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/OFF таймеров
+ открыть спойлер
;----------Секция 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
2. При старте скрипта передачи стоят "на ручнике", что при старте это поменять достаточно изменить флаг на ИСТИНА fGearBox := true в подпрограмме lVarGameTHQ
3. Оптимальные значения, просто решил подобрать
arGear := [1, 25, 50, 75, 125, 160, 300, 400, 625, 625]
arGearIn := [1, 1, 2, 2, 3, 2, 4, 4, 5, 5]
cTimerMin := 100
cTimerSpd := 127Вроде всё 