add newer versions

This commit is contained in:
Bartek Dobrowolski-Nowakowski
2022-04-15 19:06:10 +02:00
parent e0a219a727
commit 07743bbf25
519 changed files with 82346 additions and 0 deletions

View File

@@ -0,0 +1,90 @@
bEnableChampionshipMenuingMod := 0
GoTo EndChampionshipMenuingDef
Menu_Start_Race:
if(bEnableChampionshipMenuingMod = 0){
return
}
controller.Dpad.SetState("Down")
Sleep, 100
controller.Dpad.SetState("None")
Sleep, 250
loop, %menu_loops% {
controller.Dpad.SetState(MenuDirect)
Sleep, 100
controller.Dpad.SetState("None")
Sleep, 250
}
loop, 2{
gosub, PressX
Sleep, 500
}
ToolTip, Loading race, 100, 100, Screen
Sleep, %ps_load_time3%
gosub, PressX
Sleep, 1000
gosub, PressX
return
Menu_End_Race:
if(bEnableChampionshipMenuingMod = 0){
return
}
ToolTip, Menuing, 100, 100, Screen
loop {
break_point := false
c2 := BitGrab(pix2x, pix2y, box_size)
for i, c in c2
{
d2 := Distance(c, color_check2)
if (d2 < tolerance ){
break_point := true
break
}
}
if (break_point)
break
gosub, PressX
sleep, %color_2_delay%
}
ToolTip, Found color 2, 100, 100, Screen
Sleep, 1000
controller.Buttons.Circle.SetState(true)
Sleep, 200
controller.Buttons.Circle.SetState(false)
Sleep, 200
controller.Dpad.SetState("Right")
Sleep, 200
controller.Dpad.SetState("None")
Sleep, 500
gosub, PressX
Tooltip
Sleep, %ps_load_time1%
gosub, PressX
Sleep, 1000
controller.Buttons.Circle.SetState(true)
Sleep, 200
controller.Buttons.Circle.SetState(false)
loop, 2 {
gosub, PressX
Sleep, 500
}
Sleep, %ps_load_time2%
;Conduct Maintenance here.
if (CheckForMaintenance = 0) {
gosub, DoMaintenance
}
else {
if (CheckForOilChange = 0) {
gosub, DoOilChange
}
}
return
EndChampionshipMenuingDef:

View File

@@ -0,0 +1,21 @@
bEnableCheckTyresMod := 0
GoTo EndCheckTyresDef
CheckTyresOverheating:
if (bEnableCheckTyresMod = 0){
return
}
tc := BitGrab(tyreX, tyreY, box_size)
for i, c in tc
{
td := Distance(c, color_tyre_overheat)
if (td < tolerance ){
tyres_overheating := true
break
}
}
return
EndCheckTyresDef:

View File

@@ -0,0 +1,171 @@
bEnableMaintenanceMod := 0
GoTo EndMaintenceDef
;This will do only an oil change. will leave user at race menu to resume.
GtAutoNav:
return
;This will do only an oil change. will leave user at race menu to resume.
DoOilChange:
if (bEnableMaintenanceMod = 0){
return
}
Sleep, 1000
controller.Buttons.Circle.SetState(true)
Sleep, 200
controller.Buttons.Circle.SetState(false)
Sleep, 2800
loop, 2 {
controller.Dpad.SetState("Right")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
}
controller.Dpad.SetState("Down")
Sleep, 200
controller.Dpad.SetState("None")
Sleep, 200
loop, 2 {
gosub, PressX
Sleep, 1000
}
Sleep, 2000
controller.Dpad.SetState("Down")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
loop, 2 {
gosub, PressX
Sleep, 500
}
Sleep, 7000
gosub, PressX
Sleep, 500
controller.Buttons.Circle.SetState(true)
Sleep, 200
controller.Buttons.Circle.SetState(false)
Sleep, 200
Sleep, 3000
controller.Dpad.SetState("Up")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
controller.Dpad.SetState("Left")
Sleep, 200
controller.Dpad.SetState("None")
Sleep, 500
controller.Dpad.SetState("Left")
Sleep, 200
controller.Dpad.SetState("None")
Sleep, 500
gosub, PressX
Sleep, 4800
return
;This will do complete maintenance on the car including oil, engine and body. will leave user at race menu to resume.
DoMaintenance:
if (bEnableMaintenanceMod = 0){
return
}
Sleep, 1000
controller.Buttons.Circle.SetState(true)
Sleep, 200
controller.Buttons.Circle.SetState(false)
Sleep, 2800
loop, 2 {
controller.Dpad.SetState("Right")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
}
controller.Dpad.SetState("Down")
Sleep, 200
controller.Dpad.SetState("None")
Sleep, 200
loop, 2 {
gosub, PressX
Sleep, 1000
}
Sleep, 2000
controller.Dpad.SetState("Down")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
loop, 2 {
gosub, PressX
Sleep, 500
}
Sleep, 7000
gosub, PressX
Sleep, 500
controller.Dpad.SetState("Down")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
controller.Dpad.SetState("Down")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
loop, 2 {
gosub, PressX
Sleep, 500
}
Sleep, 7000
gosub, PressX
Sleep, 500
controller.Dpad.SetState("Down")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
controller.Dpad.SetState("Down")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
controller.Dpad.SetState("Down")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
loop, 2 {
gosub, PressX
Sleep, 500
}
Sleep, 8500
gosub, PressX
Sleep, 500
controller.Buttons.Circle.SetState(true)
Sleep, 200
controller.Buttons.Circle.SetState(false)
Sleep, 200
Sleep, 3000
controller.Dpad.SetState("Up")
Sleep, 140
controller.Dpad.SetState("None")
Sleep, 200
controller.Dpad.SetState("Left")
Sleep, 200
controller.Dpad.SetState("None")
Sleep, 500
controller.Dpad.SetState("Left")
Sleep, 200
controller.Dpad.SetState("None")
Sleep, 500
gosub, PressX
Sleep, 4800
return
EndMaintenceDef:

View File

@@ -0,0 +1,84 @@
/************************************************
Rules for adding a mod
Your mod file should only be included here
In your mod file, make a flag variable such as
bEnable<modName>Mod := 0
and put the following at the beggining of each subroutine of your mod file
if (bEnable<modName>Mod = 0){
return
}
This will allow users to disable and enable the mod
If your mod is dependent on another mod and there is an error while running,
try switching the order around on the #Include
Add the mod's name and variable name to the _mod objects below
*************************************************
*/
#Include Mod\Maintenance.ahk
#Include Mod\ChampionshipMenuing.ahk
#Include Mod\CheckTyres.ahk
_mod_names :=
( LTrim Join
[
"Championship Menus",
"Check Tyres",
"Maintenance"
]
)
_mod_vars =
( LTrim Join|
bEnableChampionshipMenuingMod
bEnableCheckTyresMod
bEnableMaintenanceMod
)
; Load mod settings
Loop, Parse, _mod_vars, |
{
IniRead, %A_LoopField%, config.ini, Mods, %A_LoopField%, 0
}
; Mods Gui Setup
Gui, 3: -MaximizeBox
Gui, 3: -MinimizeBox
Gui, 3: Color, c535770, c6272a4
Gui, 3: Font, c11f s9 Bold
;Gui, 3: Add, GroupBox, w200 h100, Mod List
Loop, Parse, _mod_vars, |
{
if ( %A_LoopField% = 1){
Gui, 3: Add, Checkbox, Checked v%A_LoopField%, % _mod_names[A_Index]
}
else {
Gui, 3: Add, Checkbox, v%A_LoopField%, % _mod_names[A_Index]
}
}
Gui, 3: Add, Button, gSaveMods, Save
GoTo EndModsDef
; End of Gui Setup
SaveMods:
Gui, 3:Submit
Loop, Parse, _mod_vars, |
{
IniWrite, % %A_LoopField%, config.ini, Mods, % A_LoopField
}
return
EndModsDef: