Brad Landers bradland

Someone on Reddit asked me:

I know it passed a lot of time since your comment, but i just bought ac on sale planning to play it with vr (which i already got) and a racing wheel setup (which I'm going to buy soon). Could you please send me a list of the mod you used and recommend? I know it's a lot to ask but seems like there's a lot of option and you know them well so i'd love to just trust you and enjoy the game instead of going for trial and error :)

Sure, for game mods, I use:

	Option Explicit

	' Great Circle Distance using the Haversine formula
	' coord1 / coord2 are strings like: "27.9506, -82.4572"
	' Unit: "km" (default), "mi", "nmi"
	' Returns Double, or CVErr(xlErrValue) on invalid input.
	Public Function GreatCircleDistanceStr( _
	ByVal coord1 As String, _
	ByVal coord2 As String, _
	Optional ByVal Unit As String = "km" _

	Sub GenerateWordDocsForReports()
	Dim wsConfig As Worksheet, wsReports As Worksheet
	Dim configList As ListObject, reportsList As ListObject
	Dim docFolder As String, reportName As String, cleanName As String
	Dim filePath As String, i As Long
	Dim wdApp As Object, wdDoc As Object

	' Set references to tables
	Set wsConfig = ThisWorkbook.Sheets("Doc Gen")
	Set wsReports = ThisWorkbook.Sheets("Doc Gen")

	Sub ProtectAllSheets()

	Dim ws As Worksheet
	Dim pwd As String

	pwd = InputBox("Enter password:")

	If pwd = "" Then
	MsgBox "Password entry was canceled or left blank. Exiting macro."
	Exit Sub

	[ABS]
	VALUE=1

	[BRAKE_POWER_MULT]
	VALUE=100

	[CAMBER_LF]
	VALUE=-6

	[CAMBER_RF]

	Sub SplitDataByCol()
	Dim lastRow As Long
	Dim sourceWorksheet As Worksheet
	Dim columnToSplitBy As Integer
	Dim columnCount As Long
	Dim uniqueValues As Variant
	Dim headerRange As Range
	Dim splitColumnRange As Range
	Dim tempSheet As Worksheet
	Dim headerRowNumber As Integer

	# Main script to accept command-line argument
	param (
	[Parameter(Mandatory = $true)]
	[string]$XlsxFilePath
	)

	# Define the function to remove definedNames node from an XLSX file
	function Remove-DefinedNames {
	param (
	[string]$XlsxFilePath

	; Modified drivetrain.ini file for Assetto Corsa Alfa Romeo 33 Stradale
	; (ks_alfa_33_stradale). Recommend you use the app Assetto Corsa Car Tuner to
	; make a tuned clone of the base car, then copy/paste over the drivetrain.ini
	; file in the cloned version.

	[HEADER]
	VERSION=3

	[TRACTION]
	TYPE=RWD ; Wheel drive. Possible options: FWD (Front Wheel Drive), RWD (Rear Wheel Drive)

	module ShellScriptUtils
	class CursedReport
	def initialize(message = nil)
	@clear_commands = []
	@message = message
	update @message
	end

	def update(message)
	clear @message # clear the current message

	[HEADER]
	VERSION=3

	[TRACTION]
	TYPE=RWD ; Wheel drive. Possible options: FWD (Front Wheel Drive), RWD (Rear Wheel Drive)

	[GEARS]
	COUNT=6 ; forward gears number
	GEAR_R=-3.273 ; rear gear ratio
	; forward gears ratios. must be equal to number of gears defined on count