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,84 @@
__enableChampionshipMenuing_mod__ := 0
GoTo EndChampionshipMenuingDef
Menu:
;ToolTip, Menuing, 100, 100, Screen
if(__enableChampionshipMenuing_mod__ = 0){
return
}
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
Press_X()
sleep, %color_2_delay%
sleep, %bm_delay%
}
;ToolTip, Found color 2, 100, 100, Screen
Sleep, 100
Press_O()
Sleep, 100
Press_Right()
Sleep, 100
Press_X()
Sleep, %ps_load_time1%
Press_X()
Sleep, 1000
Press_O()
loop, 2
{
Press_X()
Sleep, 100
}
Sleep, %ps_load_time2%
;Conduct Maintenance here.
CheckForOilChange := Mod(A_Index, 29)
CheckForMaintenance := Mod(A_Index, 107)
;ToolTip, CheckForOilChange %CheckForOilChange%`nCheckForMaintenance %CheckForMaintenance%, 300, 100, Screen
ifEqual, CheckForOilChange, 0
{
gosub, DoOilChange
}
ifEqual, CheckForMaintenance, 0
{
gosub, DoMaintenance
}
Press_Down()
Sleep, 50
loop, %menu_loops%
{
controller.Dpad.SetState(MenuDirect)
Sleep, 50
controller.Dpad.SetState("None")
Sleep, 50
}
loop, 2
{
Press_X()
Sleep, 500
}
Sleep, %ps_load_time3%
loop, 2{
gosub, PressX
Sleep, 500
}
return
EndChampionshipMenuingDef:

View File

@@ -0,0 +1,42 @@
__enableCheckTyres_mod__ := 0
GoTo EndCheckTyresDef
CheckTyresOverheating:
if (__enableCheckTyres_mod__ = 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
RetryRace:
if (__enableCheckTyres_mod__ = 0){
return
}
Gosub, PauseLoop
Sleep 500
tyres_overheating := false
controller.Buttons.Options.SetState(true)
Sleep 200
controller.Buttons.Options.SetState(false)
Sleep, 500
controller.Dpad.SetState("Right")
Sleep, 200
controller.Dpad.SetState("None")
Goto, AFKLoop
return
EndCheckTyresDef:

View File

@@ -0,0 +1,153 @@
__enableMaintenance_mod__ := 0
GoTo EndMaintenceDef
;This will do only an oil change. will leave user at race menu to resume.
GtAutoNav:
return
DoOilChange:
if (__enableCheckTyres_mod__ = 0){
return
}
Sleep, 1000
Press_O()
Sleep, 2800
loop, 2 {
Press_Right(140)
Sleep, 200
}
Press_Down()
Sleep, 200
loop, 2 {
Press_X()
Sleep, 1000
}
Sleep, 2000
Press_Down(140)
Sleep, 200
loop, 2 {
Press_X()
Sleep, 500
}
Sleep, 7000
Press_X()
Sleep, 500
Press_O()
Sleep, 200
Sleep, 3000
Press_Up(140)
Sleep, 200
Press_Left()
Sleep, 500
Press_Left()
Sleep, 500
Press_X()
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 (__enableCheckTyres_mod__ = 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,85 @@
/************************************************
Rules for adding a mod
Your mod file should only be included here
In your mod file, make a flag variable such as
__enable<modName>_mod__ := 0
and put the following at the beggining of each subroutine of your mod file
if (__enable<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|
__enableChampionshipMenuing_mod__
__enableCheckTyres_mod__
__enableMaintenance_mod__
)
; 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: