Script Modules - SeriousOldMan/Simulator-Controller GitHub Wiki

require("Session")

local MsgBox = extern("MsgBox")

-- Action:      set_fuel_ratio
-- Activation:  "Can you set the fuel ratio to 94 percent."
-- Description: Call this, if the driver wants to assign a new value to the fuel ratio.
-- Parameters:  1: Name: newRatio
--                 Type: Number
--                 Required: Yes
--                 Description: Represents the new value for fuel ratio. Must be a fractional value between 0 and 1. 

require("Session")

if Session.Simulator == "Le Mans Ultimate" then
	local JSON = require("lunajson")
	local httpGet = extern("httpGet")
	local httpPost = extern("httpPost")

	function lookup(data, name)
		for ignore, candidate in ipairs(data) do
			if candidate.name == name then
				do return candidate end
			end
		end
				
		return false
	end

	function round(value, places)
		local mult = 10 ^ (places or 0)

		return math.floor(value * mult + 0.5) / mult
	end

	local pitstop = JSON.decode(httpGet("http://localhost:6397/rest/garage/PitMenu/receivePitMenu"))
	local ratio = lookup(pitstop, "FUEL RATIO:")

	if ratio then
		local value = round(%newRatio%, 2)
	 
		for index, candidate in ipairs(ratio.settings) do
			candidate = tonumber(candidate.text)

			if index == 1 and value < candidate then
				ratio.currentSetting = 0
				
				break
			elseif value == candidate or index == (#ratio.settings - 1) then
				ratio.currentSetting = (index - 1)
			
				break
			end
		end

		httpPost("http://localhost:6397/rest/garage/PitMenu/loadPitMenu", JSON.encode(pitstop))
	else
		Assistant.Speak("This is not possible right now!")
	end
else
	Assistant.Speak("Are you kidding?")
end

-- Action:      no_front_tyre_change
-- Activation:  "Do not change the tyres at the front axle."
-- Description: Call this, if the driver do not want to change the front tyres at the next pitstop.
-- Parameters:  -

require("Session")
require("Simulator")

if Session.Simulator == "Le Mans Ultimate" then
	local JSON = require("lunajson")
	local pitstop = JSON.decode(extern("httpGet")("http://localhost:6397/rest/garage/PitMenu/receivePitMenu"))

	function lookup(data, name)
		for ignore, candidate in ipairs(data) do
			if candidate.name == name then
				do return candidate end
			end
		end
				
		return false
	end

	local tire = lookup(pitstop, "FL TIRE:")

	if tire then
		tire.currentSetting = 0

		lookup(pitstop, "FR TIRE:").currentSetting = 0

		extern("httpPost")("http://localhost:6397/rest/garage/PitMenu/loadPitMenu", JSON.encode(pitstop))
	else
		Assistant.Speak("Cannot do this right now!")
	end
elseif Session.Simulator == "rFactor 2" then
	Simulator.Call("rFactor 2", "Pitstop=Set=Tyre Compound Front:None")
elseif Session.Simulator == "iRacing" then
	Simulator.Call("iRacing", "Pitstop=Set=Tyre Change Front Left:false")
	Simulator.Call("iRacing", "Pitstop=Set=Tyre Change Front Right:false")
else
	Assistant.Speak("Are you kidding?")
end

-- Activation:  For example using a Custom conroller action:
--              1Joy9 -> execute('C:\Users\juwig\Documents\Simulator Controller\Scripts\BBPresets.script')
-- Description: 1. When called without argument, it cycles thrugh the predefined presets.
--              2. When called with a preset number as argument, this preset gets activated.

require("Simulator")
require("Environment")

local Trigger = extern("trigger")

local HOTKEY_BB_UP     = ","
local HOTKEY_BB_DOWN   = "."

local BB_SETTING_THRESHOLD	= 0.25
local PRESETS 				= { 49.0, 50.0, 51.0 }

local PRESET

if #Arguments > 0 then
	PRESET = Arguments[1]
else
	PRESET = Environment.Get("Brake Balance", 1) + 1

	if PRESET > #PRESETS then
		PRESET = 1
	end
end

PRESET = math.min(#PRESETS, math.max(0, PRESET))

local function currentBrakeBalance()
	local ok, ini = pcall(Simulator.Read, "Le Mans Ultimate")
  
	if not ok or type(ini) ~= "string" then
		return nil
	end

	local w = string.match(ini, "BB%s*=%s*[%d%p]+")
	
	if not w then
		return nil
	end
	
	w = string.gsub(w, "BB", "")
	w = string.gsub(w, "=", "")
	w = string.match(w, "[%d%p]+")
	
	return tonumber(w)
end

repeat
	local currentBB = currentBrakeBalance()

	if not currentBB then
		return nil
	end

	if math.abs(currentBB - PRESETS[PRESET]) > BB_SETTING_THRESHOLD then
		if (PRESETS[PRESET] - currentBB) > 0 then
			Trigger(HOTKEY_BB_UP)
		else
			Trigger(HOTKEY_BB_DOWN)
		end
	else
		break
	end
until nil

Environment.Set("Brake Balance", PRESET)