From 7bb45325c828a5c7a7c87ba0ec8744869c30c8dd Mon Sep 17 00:00:00 2001
From: Hugues Hiegel <hugues@hiegel.fr>
Date: Mon, 11 Feb 2013 12:37:11 +0100
Subject: Init with perso modifs

---
 scripts/osp.lua | 159 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 159 insertions(+)
 create mode 100755 scripts/osp.lua

(limited to 'scripts/osp.lua')

diff --git a/scripts/osp.lua b/scripts/osp.lua
new file mode 100755
index 0000000..03cea73
--- /dev/null
+++ b/scripts/osp.lua
@@ -0,0 +1,159 @@
+-- SLIMax Mgr Lua Script v2.1
+-- Copyright (c)2012-2013  by Zappadoc - All Rights Reserved.
+-- Use this script to build all Optimal ShiftPoints methods (OSP)
+-- last change by Zappadoc - 2012-12-17
+
+function SetOSPFeedback(state)
+	if mOSPLED1 > 6 then
+		SetExtLed( (mOSPLED1 - 6), state)
+	else
+		SetWarnLed(mOSPLED1, state)
+	end
+	if mOSPLED2 > 6 then
+		SetExtLed( (mOSPLED2 - 6), state)
+	else
+		SetWarnLed(mOSPLED2, state)
+	end
+end
+
+-- SLI-M, SLI-PRO OSP Methods Event
+function ospMethodEvent(idx)
+	mOSPMethod = idx
+	-- OSP Limit default value is set in gear.lua
+	if gOSPLimit == nil or gOSPLimit == 0 then gOSPLimit = GetContextInfo("osplimitrpm") end
+	
+	-- call custom script (this is a good place to overwrite gOSPLimit value)
+	local result = custom_ospMethodEvent(mOSPMethod)
+	-- if result = 0 bypass the script below and return 0
+	-- if result = 1 bypass the script below and return 1
+	if result <= 1 then return result end
+	-- if result >= 2 continue
+
+	-- call global custom script (this is a good place to overwrite gOSPLimit value)
+	result = global_custom_ospMethodEvent(mOSPMethod)
+	-- if result = 0 bypass the script below and return 0
+	-- if result = 1 bypass the script below and return 1
+	if result <= 1 then return result end
+	-- if result >= 2 continue
+	
+	-- check if globals initialized
+	if isGlobalInitialized == 0 then
+		isGlobalInitialized = 1
+		-- init
+		InitGlobals()
+	end
+	-- get global prefs
+	GetSLIMaxInfo()
+	
+	local led = ""
+	
+	-- get rpm
+	local rpm = 0
+	rpm = GetCarInfo("rpm")
+	if rpm == nil then rpm = 0 end
+	
+	-- get red zone value
+	--local redZone = GetCarInfo("redzone")
+	--if redZone == nil then  redZone = 18000 end
+	
+	-- get current osp factor
+	--local ospFactor = GetContextInfo("ospfactor")
+	--if ospFactor == nil then  ospFactor = 80 end
+	
+	-- get current gear
+	local gear = 0
+	gear = GetCarInfo("gear")
+	if gear == nil then  gear = 0 end
+	
+	-- get max gear of current car
+	-- Alternate way to calc max gear if not available in API
+	-- Use a global mMaxGear and do the following
+	-- if gear > mMaxGear then mMaxGear = gear end	local maxGear = 4
+	
+	maxGear = GetCarInfo("maxgear")
+	if maxGear == nil then  maxGear = 4 end
+	
+	-- skip if neutral or ==maxgear 
+	if gear <=0 or gear>=maxGear then 
+		-- do nothing
+		return 1
+	end 
+	
+	-- skip if first gear not allowed
+	if not mOSPWithFirstGear and gear == 1 then
+		-- do nothing
+		return 1
+	end
+	
+	-- print("OSP1: " .. mOSPLED1 .. " OSP2: " .. mOSPLED2 .."\n")
+	-- print(rpm .. " - " .. gOSPLimit)
+	
+	-- rpm > osplimit so activate shiftpoints leds
+	if rpm > gOSPLimit then
+
+		-- no blinking allowed
+		if mNoBlink then
+			-- set both leds
+			SetOSPFeedback(1)
+			
+		else
+		
+			if GetTicks() > mOldOSPTickCount then
+				mOSPBlink = mOSPBlink + 1
+			end
+			
+			if mOSPMethod <= 3 then
+				-- methods 1 to 3
+				if mOSPBlink >= mOSPBlinkTime then
+					mOSPBlink = 0
+				end
+
+				if mOSPBlink <= (mOSPBlinkTime / 2) then
+					if mOSPMethod ~= 3 then
+						-- if not method 3
+						SetOSPFeedback(1)
+					end
+					if (mOSPMethod == 1) or (mOSPMethod == 3) then
+						-- add blue leds blinking if method 1 or 3
+						for i =  9,12 do 
+							led = led.format("RPM%d",i)
+							mRPMLedTable[led] = 1
+						end	
+						SetRPMLed("mRPMLedTable")
+					end
+				end
+
+				if mOSPBlink > (mOSPBlinkTime / 2) then
+					SetOSPFeedback(0)
+					
+					if (mOSPMethod == 1) or (mOSPMethod == 3) then
+						-- add blue leds blinking if method 1 or 3
+						for i =  9,12 do 
+							led = led.format("RPM%d",i)
+							mRPMLedTable[led] = 0
+						end	
+						SetRPMLed("mRPMLedTable")
+					end
+				end
+			end
+			
+			if mOSPMethod == 2 then
+				-- add blue leds not blinking if method 2
+				for i =  9,12 do 
+					led = led.format("RPM%d",i)
+					mRPMLedTable[led] = 1
+				end	
+				SetRPMLed("mRPMLedTable")
+			end
+		end
+	else
+		-- bypass (give control to manager)
+		return 0
+	end
+	-- timebase
+	if GetTicks() > mOldOSPTickCount then
+		mOldOSPTickCount = GetTicks() + 10
+	end
+	
+	return 1
+end
\ No newline at end of file
-- 
cgit v1.2.3