add newer versions

2026-01-29 06:25:58 +00:00 · 2022-04-15 19:06:10 +02:00
parent e0a219a727
commit 07743bbf25
519 changed files with 82346 additions and 0 deletions
--- a/triggers/Races/PanAm.bak.best.ahk
+++ b/triggers/Races/PanAm.bak.best.ahk
@@ -0,0 +1,112 @@
+
+GoTo EndRace_PANAM_Def
+
+Race_PANAM()
+{
+  ; Turn Containers are in the CheckTurn.ahk
+	turn1 := new TurnContainer(629, 109, 630, 95)
+	turn2 := new TurnContainer(539, 44, 511, 52)
+	turn3 := new TurnContainer(490, 89, 502, 111)
+	lap_marker := new TurnContainer(560, 112)
+
+  ; Press X to start the race
+  Tooltip
+  gosub, PressX
+  ; Hold Acceleration and manage turning
+  Nitrous_On()
+  Accel_On(100)
+  Sleep, 8200
+    ;SetTimer, CheckTyresOverheating, 1000
+
+  CheckForOilChange := Mod(30 - A_Index, 30)
+  SetFormat, IntegerFast, d
+  CheckForMaintenance := Mod(180 - A_Index, 180)
+  SetFormat, IntegerFast, d
+  ;ToolTip, Oil: %CheckForOilChange% race(s) remaining`nEngine: %CheckForMaintenance% race(s) remaining, 250, 45, Screen
+  ToolTipper("Oil: " CheckForOilChange " race(s) remaining`nEngine: " CheckForMaintenance " race(s) remaining", 250, 45)
+  race_complete := false
+  ;SetTimer, RaceComplete, 213000
+
+  ; Retry race if time is taking more than 5.5 mins
+  ; (assume something went wrong with race)
+  ;SetTimer, RetryRace, 330000
+
+  ;Lap 1
+    Sleep(1000)
+    Turn_Right(2800, 75)		/* before turn 1, to avoid queue of cars */
+
+	Loop, 6 {
+		; Turn 1
+		Tooltip
+		CheckTurn(turn1.startX, turn1.startY)
+		Tooltip, Turn 1 start found, 100, 100, screen
+		controller.Axes.LX.SetState(15)
+		CheckTurn(turn1.endX, turn1.endY)
+		Tooltip, Turn 1 end found, 100, 100, screen
+		Nitrous_On()
+		controller.Axes.LX.SetState(80)
+		sleep(1500)
+		controller.Axes.LX.SetState(65)
+
+		; Turn 2
+		CheckTurn(turn2.startX, turn2.startY)
+		Tooltip, Turn 2 start found, 100, 100, screen
+		controller.Axes.LX.SetState(20)
+		CheckTurn(turn2.endX, turn2.endY)
+		Tooltip, Turn 2 end found, 100, 100, screen
+		controller.Axes.LX.SetState(75)
+		sleep(2000)
+		controller.Axes.LX.SetState(65)
+
+		; Turn 3
+		CheckTurn(turn3.startX, turn3.startY)
+		Nitrous_Off()
+		Tooltip, Turn 3 start found, 100, 100, screen
+		controller.Axes.LX.SetState(0)
+		CheckTurn(turn3.endX, turn3.endY, 2)
+		Nitrous_On()
+		Tooltip, Turn 3 end found, 100, 100, screen
+		controller.Axes.LX.SetState(75)
+		sleep(2000)
+		controller.Axes.LX.SetState(65)
+		
+		CheckTurn(lap_marker.startX, lap_marker.startY)
+		Tooltip, Lap Complete, 100, 100, screen
+	}
+
+
+    loop {
+    ;ToolTip, Racing, 100, 100, Screen
+      break_point := false
+      c1 := BitGrab(pix1x, pix1y, box_size)
+      for i, c in c1
+      {
+          d1 := Distance(c, color_check1)
+          if (d1 < tolerance ){
+              break_point := true
+              break
+          }
+      }
+      if (break_point)
+          break
+
+      controller.Dpad.SetState("Right")
+      Sleep, 50
+      controller.Dpad.SetState("None")
+
+      Sleep, 100
+    }
+  ToolTipper("Found color 1")
+  ;SetTimer, RetryRace, off
+  gosub, PauseLoop
+  Sleep, 500
+  return
+}
+
+Race_PANAM_Complete()
+{
+  race_complete := true
+  return
+}
+
+EndRace_PANAM_Def: