From ab9f1ff8ebd3c56c2c9942013d8520af6b6ca444 Mon Sep 17 00:00:00 2001
From: Hugues Hiegel <hugues@hiegel.fr>
Date: Wed, 13 Feb 2013 16:57:23 +0100
Subject: Default SLIMaxManager II scripts

---
 scripts/zdoc_scripts/iracing_common_scripts.lua | 136 +++++++++
 scripts/zdoc_scripts/iracing_stuff.lua          | 355 ++++++++++++++++++++++++
 2 files changed, 491 insertions(+)
 create mode 100755 scripts/zdoc_scripts/iracing_common_scripts.lua
 create mode 100755 scripts/zdoc_scripts/iracing_stuff.lua

(limited to 'scripts/zdoc_scripts')

diff --git a/scripts/zdoc_scripts/iracing_common_scripts.lua b/scripts/zdoc_scripts/iracing_common_scripts.lua
new file mode 100755
index 0000000..1d5bb02
--- /dev/null
+++ b/scripts/zdoc_scripts/iracing_common_scripts.lua
@@ -0,0 +1,136 @@
+-- iRacing SLI-PRO Custom SLIMax Manager Scripts v2.3
+-- Copyright ©2012-2013 by Zappadoc - All Rights Reserved.
+-- last change by Zappadoc - 2012-12-17
+
+-- ================================
+-- CONSTANTS
+
+
+-- ================================
+-- additional lua extension module dll
+
+
+-- ================================
+-- additional scripts file
+require "scripts/zdoc_scripts/iracing_stuff"
+
+-- ================================
+-- custom globals
+
+
+-- ================================
+-- custom functions
+
+-- ================================
+-- custom events
+
+function custom_initEvent(scriptfile)
+	-- type your custom script initialization here
+end
+
+function custom_controlsEvent(deviceIdx, ctrlType, ctrlPos, value, funcIndex)
+	-- type your custom controls script here (manage buttons, switches and encoders)
+	return 2
+end
+
+function custom_deviceReport(devType)
+	-- type your script here (just before sending report to the device )
+	return 2
+end
+
+function custom_ospMethodEvent(idx)
+	-- type your custom Optimal Shift Points (OSP) method here
+		-- custom speedlimiter for each iRacing car
+	local result = 2
+	-- get current simulation name
+	local sim = GetContextInfo("simulation")
+	if isAppIRacing(sim) then
+		result = iRacing_ospMethodEvent(idx)
+		
+	end
+	return result
+end
+
+function custom_shiftLightsMethodEvent(idx)
+	-- type your custom shiftlights method here
+	
+	-- custom shiftlights for each iRacing car
+	-- get current simulation name
+	local sim = GetContextInfo("simulation")
+	if isAppIRacing(sim) then
+		iRacing_shiftLightsMethodEvent(idx)
+		-- skip std methods
+		return 1
+	end
+	
+	return 2
+end
+
+function custom_shiftLightsBU0710Event(idx)
+	-- type your custom shiftlights method for BU0710 device only here
+	return 2
+end
+
+function custom_leftDigitsEvent(swPosition)
+	-- type your custom script related to left SLI-PRO digits panel here
+	return 2
+end
+
+function custom_rightDigitsEvent(swPosition)
+	-- type your custom script related to right SLI-PRO digits panel here
+	return 2
+end
+
+function custom_spdLmtMethodEvent(idx)
+	-- type your custom speedlimiter method here
+		
+	-- custom speedlimiter for each iRacing car
+	local result = 2
+	-- get current simulation name
+	local sim = GetContextInfo("simulation")
+	if isAppIRacing(sim) then
+		result = iRacing_spdLmtMethodEvent(idx)
+		
+	end
+	return result
+end
+
+function custom_gearEvent(gear)
+	-- type your custom gear event script here
+		-- get current simulation name
+	-- custom script to overwrite OSP value and OSP limit for each gear of each iRacing car
+	local sim = GetContextInfo("simulation")
+	if isAppIRacing(sim) then	
+		if gOldGear == nil then gOldGear = -2 end
+		-- setup iRacing car OSP, RedZone, Max gear, ...
+		iRacing_CarSetup(gear)
+		if gear ~= gOldGear then
+			gOldGear =  gear
+			-- print("\n----------\nGear: ".. gear .."\nOSP: " .. gOSPLimit .. "\nRedZone:" .. gRedZone .."\n")
+		end
+	end
+	return 2
+end
+
+function custom_enterSessionEvent(devType)
+	-- type your custom script on session start, here
+
+	-- custom script to get the max gear of each iRacing car
+	-- get current simulation name
+	local sim = GetContextInfo("simulation")
+	if isAppIRacing(sim ) then
+		iRacing_CarSetup(0)
+		-- see debug window
+		-- get car name
+		local cNm = GetContextInfo("carname")
+		local mxG = GetCarInfo("maxgear")
+		local ospf = GetContextInfo("ospfactor")
+		print("\n----------\nSetup car:" .. cNm .. "\nMaxGear:" .. mxG .. "\nOSP Factor:" .. ospf .. "\n");
+	end
+	return 2
+end
+
+function custom_exitSessionEvent(devType)
+	-- type your custom script on session ending, here
+	return 2
+end
\ No newline at end of file
diff --git a/scripts/zdoc_scripts/iracing_stuff.lua b/scripts/zdoc_scripts/iracing_stuff.lua
new file mode 100755
index 0000000..b53c66c
--- /dev/null
+++ b/scripts/zdoc_scripts/iracing_stuff.lua
@@ -0,0 +1,355 @@
+-- Custom SLIMax Manager Scripts for iRacing v2.1
+-- Copyright ©2012-2013 by Zappadoc
+-- _last change by Zappadoc - 2012-12-17
+
+-- =====================================
+-- iRacing Stuff script
+-- define car setup function and all pit limiter and shiftlights methods for each car you drive
+
+
+function iRacing_CarSetup(cGear)
+	-- get car name
+	local cNm = ""
+	cNm = GetContextInfo("carname")
+	local mxG = 4
+	local ospf = 140
+	
+	if cNm == "cadillacctsvr" then
+		mxG = 6
+		ospf = 148
+		
+	elseif cNm == "mclarenmp4" then
+		mxG = 6
+		ospf = 150
+
+	elseif cNm == "formulamazda" then
+		mxG = 6
+		ospf = 60
+		
+	elseif cNm == "williamsfw31" then
+		mxG = 7
+		ospf = 90
+		
+	elseif cNm == "mx5 cup" or cNm == "mx5 roadster" then
+		mxG = 6
+		ospf = 140
+		
+	elseif cNm == "hpdarx01c" then
+		mxG = 6
+		if cGear <= 2 then 
+			ospf = 10
+			gOSPLimit = 9900
+			gRedZone = 9920
+		elseif cGear ==3 then
+			ospf = 100
+			gOSPLimit = 9530
+			gRedZone = 9545
+		elseif cGear == 4 then 
+			ospf = 90
+			gOSPLimit = 9500
+			gRedZone = 9510
+		else 
+			ospf = 150
+			gOSPLimit = 9420
+			gRedZone = 9425
+		end
+		
+
+	elseif cNm == "fordgt" then
+		mxG = 6
+		ospf = 128
+		
+	elseif cNm == "fr500s" then
+		mxG = 6
+		ospf = 150
+				
+	elseif cNm == "fordv8sc" then
+		mxG = 6
+		ospf = 100
+		
+	 elseif cNm == "dallara" then
+		mxG = 6
+		ospf = 95
+		
+	elseif cNm == "latemodel" then
+		mxG = 5
+		
+	elseif cNm == "legends ford34c" then
+		mxG = 5
+		ospf = 150
+		
+	elseif cNm == "skmodified" then
+		mxG = 6
+		
+	elseif cNm == "silvercrown" then
+		mxG = 6
+		
+	elseif cNm == "trucks silverado" then
+		mxG = 4
+		
+	elseif cNm == "stockcars impala" then
+		mxG = 4
+		ospf = 140
+		
+	elseif cNm == "lotus79" then
+		mxG = 5
+		ospf = 100
+		
+	elseif cNm == "stockcars2 chevy" then
+		mxG = 4
+		ospf = 130
+		
+	elseif cNm == "stockcars2 chevy cot" then
+		mxG = 4
+		ospf = 150
+		
+	elseif cNm == "c6r" then
+		mxG = 6
+		ospf = 145
+		
+	elseif cNm == "solstice" then
+		mxG = 5
+		ospf = 150
+		
+	elseif cNm == "jettatdi" then
+		mxG = 5
+		
+	elseif cNm == "radical sr8" then
+		mxG = 6
+		ospf = 115
+				
+	elseif cNm == "rt2000" then
+		mxG = 5
+		ospf = 140
+		
+	elseif cNm == "specracer" then
+		mxG = 5
+		ospf = 140
+		
+	elseif cNm == "rileydp" then
+		mxG = 5
+		ospf = 85
+		
+	elseif cNm == "streetstock" then
+		mxG = 4
+		ospf = 150
+		
+	elseif cNm == "sprint" then
+		mxG = 6
+		
+	else
+		-- default 
+		mxG = 4
+		ospf = 150
+	end
+	-- set max gear and OSP factor for this car
+	SetMaxGear(mxG)
+	SetOSPFactor(ospf)
+end
+
+function FixRPMSpeedlimiter()
+	local led = ""
+	-- init table
+	initLedTable(mRPMLedTable, 0)
+	SetRPMLed("mRPMLedTable")
+	for i = 0,12 do 
+		led = led.format("RPM%d",i)
+		mRPMLedTable[led] = 1
+	end
+	SetRPMLed("mRPMLedTable")
+		
+end
+
+function iRacing_spdLmtMethodEvent(idx)
+	local led = ""
+	
+	-- get car name
+	local cNm = GetContextInfo("carname")
+	
+	-- speedlimiter stuff
+	if cNm == "formulamazda" then
+		mSpdLimitMethod = 2
+
+	elseif cNm == "mclarenmp4" then
+		mSpdLimitMethod = 2
+		
+	elseif cNm == "williamsfw31" then
+		-- speedlimiter led fixed + digits blinking, method 6
+		mSpdLimitMethod = 6
+		
+	elseif cNm == "fordv8sc" then
+		mSpdLimitMethod = 2
+		
+	elseif cNm == "dallara" then
+		mSpdLimitMethod = 2
+	
+	elseif cNm == "fordgt" then
+		mSpdLimitMethod = 2
+		
+ 	elseif cNm == "hpdarx01c" then
+		FixRPMSpeedlimiter()
+		return 1
+		
+	elseif cNm == "rileydp" then
+		mSpdLimitMethod = 2
+	
+	elseif cNm == "c6r" then	
+		FixRPMSpeedlimiter()
+		return 1
+
+	elseif cNm == "radical sr8" then
+		mSpdLimitMethod = 0
+	
+	elseif cNm == "jettatdi" then
+		mSpdLimitMethod = 2
+	
+	elseif cNm == "cadillacctsvr" then
+		FixRPMSpeedlimiter()
+		return 1
+		
+	-- cars with  without dashboardleds
+	-- 	elseif cNm == "mx5 cup" or cNm == "mx5 roadster" then
+	-- elseif cNm == "fr500s" then
+	-- elseif cNm == "latemodel" then
+	-- elseif cNm == "legends ford34c" then
+	-- elseif cNm == "legends ford34c rookie" then
+	-- elseif cNm == "skmodified" then
+	-- elseif cNm == "silvercrown" then
+	-- elseif cNm == "trucks silverado" then
+	-- elseif cNm == "stockcars impala" then
+	-- elseif cNm == "lotus79" then
+	-- elseif cNm == "stockcars2 chevy" then
+	-- elseif cNm == "solstice" then
+	-- elseif cNm == "solstice rookie" then
+	-- elseif cNm == "rt2000" then
+	-- elseif cNm == "specracer" then
+	-- elseif cNm == "streetstock" then
+	-- elseif cNm == "sprint" then
+	
+	else
+		-- default 
+		mSpdLimitMethod = 0
+		
+	end
+	return 2
+end
+
+function iRacing_shiftLightsMethodEvent(idx)
+	-- rpm table name
+	local tName = "mRPMLedTable"
+	-- get rpm
+	local rpm = 0
+	rpm = GetCarInfo("rpm")
+	if rpm == nil then rpm = 0 end
+	
+	-- check redzone value
+	if gRedZone == nil or gRedZone == 0 then gRedZone = GetCarInfo("redzone") end
+
+	-- get car name
+	local cNm = GetContextInfo("carname")
+	
+	local isPit = GetCarInfo("inpits")
+	local carspd =  GetCarInfo("rawspeed")
+	
+	-- init leds (see global.lua)
+	initLedTable(mRPMLedTable, 0)
+	
+	-- Pits Stuff
+	if isPit == 1 and carspd == 0 then
+		--  pit stop
+		
+	elseif isPit >= 1 and carspd > 21 then
+		-- car Approaching pits (or in pit lane) and exceed 45 mph
+		-- set the red zone to the current engine rpm (This sets the shiftlights to the max and warns the driver)
+		local spdLmt = GetCarInfo("speedlimiter")
+		if spdLmt == 0 then
+			-- if speedlimiter is OFF
+			gRedZone = rpm
+		end
+	end
+	
+	-- shiftlights stuff
+	if cNm == "formulamazda" then
+		-- start Mazda shiftlights
+		SideToCenterSLI(rpm, gRedZone, 94.5, 95, 96, 97 ,98 ,99 ,99.5)
+	
+	elseif cNm == "mclarenmp4" then
+		local gear = GetCarInfo("gear")
+		if gear == 6 then
+			ProgressiveFixedSLI(rpm, 6300, 6490, 6580, 6690, 6720 , 6870 , 7000 , 7200, 7305, 7340, 7340, 7340, 7340)		
+		else
+			ProgressiveFixedSLI(rpm, 6200, 6390, 6480, 6590, 6620 , 6670 , 6750 , 6800, 6895, 7040, 7040, 7040, 7040)
+		end
+		
+	elseif cNm == "williamsfw31" then
+		AlternateSLI(rpm, gRedZone, 11.0, 12.0, 12.9)
+		
+	elseif cNm == "mx5 cup" or cNm == "mx5 roadster" then
+		SideToCenterSLI(rpm, gRedZone, 86, 90, 95, 96 ,97 ,98 ,99)
+		
+	elseif cNm == "fr500s" then
+		SideToCenterSLI(rpm, gRedZone, 80, 84, 86, 88 ,90 ,98 ,99)
+		
+	elseif cNm == "fordv8sc" then
+		SideToCenterSLI(rpm, gRedZone, 87, 90, 92, 94 ,97 ,98 ,99)
+		
+	 elseif cNm == "dallara" then
+		SideToCenterSLI(rpm, gRedZone, 78, 82, 90, 94 ,97 ,98 ,99)
+-- 		
+	elseif cNm == "fordgt" then
+		SideToCenterSLI(rpm, gRedZone, 93, 94, 95, 96 ,97 ,98 ,99)
+		
+ 	elseif cNm == "hpdarx01c" then
+		ProgressiveFixedSLI(rpm, 7800, 7900, 8100, 8300, 8500 , 8700 , 8800 , 8900, 9100, 9300, 9500, 9700, 9940)
+	
+	elseif cNm == "rileydp" then
+		ProgressiveFixedSLI(rpm, 10000, 6700, 6800, 6900, 7000 , 10000 , 10000 , 10000, 10000, 10000, 10000, 10000, 10000)
+	
+	elseif cNm == "c6r" then	
+		ProgressiveFixedSLI(rpm, 4700, 4800, 4900, 5000, 5200 , 5300 , 5400 , 5600, 5700, 5800, 5900, 6000, 6100)
+
+	elseif cNm == "radical sr8" then
+		ProgressiveFixedSLI(rpm, 4350, 4800, 5100, 5700, 6400 , 6900 , 7700 , 8100, 8700, 9850, 10100, 10250, 10500)
+	
+	elseif cNm == "jettatdi" then
+		SideToCenterSLI(rpm, gRedZone, 80, 84, 86, 88 ,90 ,98 ,99)
+	
+	elseif cNm == "cadillacctsvr" then
+		--ProgressiveFixedSLI(rpm, 6500, 6580, 6600, 6700, 6800 , 6900 , 7000 , 7100, 7200, 7300, 7400, 7500, 7600)
+		ProgressiveSLI(rpm, gRedZone, 11.9, 11.95, 11.98, 12, 12.1, 12.15, 12.2, 12.25, 12.3, 12.35, 12.5, 12.8, 12.98 )
+
+	-- progressive default method for all cars with dashboard without leds 
+	-- elseif cNm == "latemodel" then
+	-- elseif cNm == "legends ford34c" then
+	-- elseif cNm == "legends ford34c rookie" then
+	-- elseif cNm == "skmodified" then
+	-- elseif cNm == "silvercrown" then
+	-- elseif cNm == "trucks silverado" then
+	-- elseif cNm == "stockcars impala" then
+	-- elseif cNm == "lotus79" then
+	-- elseif cNm == "stockcars2 chevy" then
+	-- elseif cNm == "solstice" then
+	-- elseif cNm == "solstice rookie" then
+	-- elseif cNm == "rt2000" then
+	-- elseif cNm == "specracer" then
+	-- elseif cNm == "streetstock" then
+	-- elseif cNm == "sprint" then
+	
+	else
+		-- default 
+		ProgressiveSLI(rpm, gRedZone, 7.5, 8, 8.5, 9, 9.5, 10, 10.5, 11, 11.5, 12, 12.5, 12.8, 12.98 )
+	end
+		
+	-- set leds
+	SetRPMLed(tName)	
+end
+
+function iRacing_ospMethodEvent(idx)
+	-- get car name
+	local cNm = GetContextInfo("carname")
+	-- OSP Method stuff
+	if cNm == "mclarenmp4" or cNm == "williamsfw31" then
+		if mOSPMethod ~= nil then  mOSPMethod = 3 end
+	end
+	return 2
+end
\ No newline at end of file
-- 
cgit v1.2.3