-- SLIMax Mgr Lua Script v3.3.1
-- Copyright (c)2012-2013 by Zappadoc - All Rights Reserved.
-- this script builds all shiftlights methods
-- last change by Zappadoc - 2013-10

-- ==============================================================================
-- utilities functions and methods
-- ==============================================================================
-- SLI-M and SLI-PRO functions

-- shiftlights method from side to center
function SideToCenterSLI(rpm, redzone, p1, p2, p3, p4 ,p5 ,p6 ,p7)

	local rz = redzone / 100
	
	-- side to center custom
	if rpm > (rz*p1) then mRPMLedTable.RPM0 = 1 end -- G
	if rpm > (rz*p1) then mRPMLedTable.RPM12 = 1 end -- B

	if rpm > (rz*p2) then mRPMLedTable.RPM1 = 1 end -- G
	if rpm > (rz*p2) then mRPMLedTable.RPM11 = 1 end -- B

	if rpm > (rz*p3)	then mRPMLedTable.RPM2 = 1 end -- G
	if rpm > (rz*p3)	then mRPMLedTable.RPM10 = 1 end -- B

	if rpm > (rz*p4) then mRPMLedTable.RPM3 = 1 end -- G
	if rpm > (rz*p4) then mRPMLedTable.RPM9 = 1 end -- B

	if rpm > (rz*p5) then mRPMLedTable.RPM8 = 1 end -- R
	if rpm > (rz*p5) then mRPMLedTable.RPM4 = 1 end -- R

	if rpm > (rz*p6)	then mRPMLedTable.RPM5 = 1 end -- R
	if rpm > (rz*p6)	then mRPMLedTable.RPM7 = 1 end -- R

	if rpm > (rz*p7)	then mRPMLedTable.RPM6 = 1 end -- R

end

-- progressive method
function ProgressiveSLI(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13 )
	local rz = redzone / 13
	-- print("progessive")
	if rpm > (rz*p1) 	then mRPMLedTable.RPM0 = 1 end
	if rpm > (rz*p2) 	then mRPMLedTable.RPM1 = 1 end
	if rpm > (rz*p3)	then mRPMLedTable.RPM2 = 1 end
	if rpm > (rz*p4) 	then mRPMLedTable.RPM3 = 1 end

	if rpm > (rz*p5) 	then mRPMLedTable.RPM4 = 1 end
	if rpm > (rz*p6)  	then mRPMLedTable.RPM5 = 1 end
	if rpm > (rz*p7)	then mRPMLedTable.RPM6 = 1 end
	if rpm > (rz*p8) 	then mRPMLedTable.RPM7 = 1 end
	if rpm > (rz*p9)	then mRPMLedTable.RPM8 = 1 end

	if rpm > (rz*p10) 	then mRPMLedTable.RPM9 = 1 end
	if rpm > (rz*p11)	then mRPMLedTable.RPM10 = 1 end
	if rpm > (rz*p12)	then mRPMLedTable.RPM11 = 1 end
	if rpm > (rz*p13)	then mRPMLedTable.RPM12 = 1 end
end
	
-- alternate green, red and blue method
function AlternateSLI(rpm, redzone, step1, step2, step3)

	local rz = redzone / 13
	if rpm > (rz*step1)  then
		mRPMLedTable.RPM0 = 1	 -- G
		mRPMLedTable.RPM1 = 1	 -- G
		mRPMLedTable.RPM2 = 1	 -- G
		mRPMLedTable.RPM3 = 1	 -- G
	end
	if rpm > (rz*step2) then
		mRPMLedTable.RPM4 = 1	 -- R
		mRPMLedTable.RPM5 = 1	 -- R
		mRPMLedTable.RPM6 = 1	 -- R
		mRPMLedTable.RPM7 = 1	 -- R
		mRPMLedTable.RPM8 = 1	 -- R
	end
	if rpm > (rz*step3)  then
		mRPMLedTable.RPM9 = 1	 -- B
		mRPMLedTable.RPM10 = 1	 -- B
		mRPMLedTable.RPM11 = 1	 -- B
		mRPMLedTable.RPM12 = 1	 -- B
	end
end

function PercentageSLI(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13 )
	local onePercent = redzone / 100
	if p1>0 and rpm >= (p1*onePercent) then mRPMLedTable.RPM0 = 1 end -- G
	if p2>0 and rpm >= (p2*onePercent) then mRPMLedTable.RPM1 = 1	 end -- G
	if p3>0 and rpm >= (p3*onePercent) then mRPMLedTable.RPM2 = 1	 end -- G
	if p4>0 and rpm >= (p4*onePercent) then mRPMLedTable.RPM3 = 1	 end -- G
	if p5>0 and rpm >= (p5*onePercent) then mRPMLedTable.RPM4 = 1	 end -- R
	if p6>0 and rpm >= (p6*onePercent) then mRPMLedTable.RPM5 = 1	 end -- R
	if p7>0 and rpm >= (p7*onePercent) then mRPMLedTable.RPM6 = 1	 end -- R
	if p8>0 and rpm >= (p8*onePercent) then mRPMLedTable.RPM7 = 1	 end -- R
	if p9>0 and rpm >= (p9*onePercent) then mRPMLedTable.RPM8 = 1	 end -- R
	if p10>0 and rpm >= (p10*onePercent) then mRPMLedTable.RPM9 = 1	 end -- B
	if p11>0 and rpm >= (p11*onePercent) then mRPMLedTable.RPM10 = 1	 end -- B
	if p12>0 and rpm >= (p12*onePercent) then mRPMLedTable.RPM11 = 1	 end -- B
	if p13>0 and rpm >= (p13*onePercent) then mRPMLedTable.RPM12 = 1	 end -- B
end

-- fixed rpm method, set rpm for each led (NOT RECOMMENDED)
function RpmSLI(rpm, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13 )
	if p1>0 and rpm >= p1 then mRPMLedTable.RPM0 = 1	 end -- G
	if p2>0 and rpm >= p2 then mRPMLedTable.RPM1 = 1	 end -- G
	if p3>0 and rpm >= p3 then mRPMLedTable.RPM2 = 1	 end -- Y
	if p4>0 and rpm >= p4 then mRPMLedTable.RPM3 = 1	 end -- Y
	if p5>0 and rpm >= p5 then mRPMLedTable.RPM4 = 1	 end -- R
	if p6>0 and rpm >= p6 then mRPMLedTable.RPM5 = 1	 end -- R
	if p7>0 and rpm >= p7 then mRPMLedTable.RPM6 = 1	 end -- G
	if p8>0 and rpm >= p8 then mRPMLedTable.RPM7 = 1	 end -- G
	if p9>0 and rpm >= p9 then mRPMLedTable.RPM8 = 1	 end -- Y
	if p10>0 and rpm >= p10 then mRPMLedTable.RPM9 = 1	 end -- Y
	if p11>0 and rpm >= p11 then mRPMLedTable.RPM10 = 1	 end -- R
	if p12>0 and rpm >= p12 then mRPMLedTable.RPM11 = 1	 end -- R
	if p13>0 and rpm >= p13 then mRPMLedTable.RPM12 = 1	 end -- R
end

-- progressive method but with rpm value for eah led
function ProgressiveFixedSLI(rpm, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13)
	-- progressive method with thresholds as parameters
	if rpm > p1 	then mRPMLedTable.RPM0 = 1 end
	if rpm > p2 	then mRPMLedTable.RPM1 = 1 end
	if rpm > p3		then mRPMLedTable.RPM2 = 1 end
	if rpm > p4 	then mRPMLedTable.RPM3 = 1 end

	if rpm > p5 	then mRPMLedTable.RPM4 = 1 end
	if rpm > p6  	then mRPMLedTable.RPM5 = 1 end
	if rpm > p7		then mRPMLedTable.RPM6 = 1 end
	if rpm > p8 	then mRPMLedTable.RPM7 = 1 end
	if rpm > p9		then mRPMLedTable.RPM8 = 1 end

	if rpm > p10 	then mRPMLedTable.RPM9 = 1 end
	if rpm > p11	then mRPMLedTable.RPM10 = 1 end
	if rpm > p12	then mRPMLedTable.RPM11 = 1 end
	if rpm > p13	then mRPMLedTable.RPM12 = 1 end
end

-- --------------------------------------------
-- --------------------------------------------
-- BU0710 functions

-- progressive method for BU0710
function ProgressiveBU0710(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11 )
	local rz = redzone / 10.0
	if rpm > (rz * p1) then mBU0710Leds = 0x1 end -- G
	if rpm > (rz * p2) then mBU0710Leds = 0x2 end -- G
	if rpm > (rz * p3) then mBU0710Leds = 0x3 end -- G
	if rpm > (rz * p4) then mBU0710Leds = 0x4 end -- Y
	if rpm > (rz * p5) then mBU0710Leds = 0x5 end -- Y
	if rpm > (rz * p6) then mBU0710Leds = 0x6 end -- Y
	if rpm > (rz * p7) then mBU0710Leds = 0x7 end -- R
	if rpm > (rz * p8) then mBU0710Leds = 0x8 end -- R
	if rpm > (rz * p9) then mBU0710Leds = 0x9 end -- R
	if rpm > (rz * p10) then mBU0710Leds = 0xA end -- R
	if rpm > (rz * p11) then mBU0710Leds = 0xB end -- RRRR
end

-- percentage method for BU0710
function PercentageBU0710(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11 )
	local onePercent = redzone / 100
	if rpm > (p1 * onePercent) then mBU0710Leds = 0x1 end -- G
	if rpm > (p2 * onePercent) then mBU0710Leds = 0x2 end -- G
	if rpm > (p3 * onePercent) then mBU0710Leds = 0x3 end -- G
	if rpm > (p4 * onePercent) then mBU0710Leds = 0x4 end -- Y
	if rpm > (p5 * onePercent) then mBU0710Leds = 0x5 end -- Y
	if rpm > (p6 * onePercent) then mBU0710Leds = 0x6 end -- Y
	if rpm > (p7 * onePercent) then mBU0710Leds = 0x7 end -- R
	if rpm > (p8 * onePercent) then mBU0710Leds = 0x8 end -- R
	if rpm > (p9 * onePercent) then mBU0710Leds = 0x9 end -- R
	if rpm > (p10 * onePercent) then mBU0710Leds = 0xA end -- R
	if rpm > (p11 * onePercent) then mBU0710Leds = 0xB end -- RRRR
end

-- fixed rpm method for BU0710 (NOT RECOMMENDED)
function RpmBU0710(rpm, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11 )
	if rpm > p1 then mBU0710Leds = 0x1 end -- G
	if rpm > p2 then mBU0710Leds = 0x2 end -- G
	if rpm > p3 then mBU0710Leds = 0x3 end -- G
	if rpm > p4 then mBU0710Leds = 0x4 end -- Y
	if rpm > p5 then mBU0710Leds = 0x5 end -- Y
	if rpm > p6 then mBU0710Leds = 0x6 end -- Y
	if rpm > p7 then mBU0710Leds = 0x7 end -- R
	if rpm > p8 then mBU0710Leds = 0x8 end -- R
	if rpm > p9 then mBU0710Leds = 0x9 end -- R
	if rpm > p10 then mBU0710Leds = 0xA end -- R
	if rpm > p11 then mBU0710Leds = 0xB end -- RRRR
end

-- --------------------------------------------
-- --------------------------------------------
-- G27 functions

-- progressive method for G27
function ProgressiveG27(rpm, redzone, p1, p2, p3, p4, p5)
	local rz = redzone / 5.0
	if rpm > (rz * p1) then mG27Leds = 0x1 end -- G
	if rpm > (rz * p2) then mG27Leds = 0x3 end -- G
	if rpm > (rz * p3) then mG27Leds = 0x7 end -- Y
	if rpm > (rz * p4) then mG27Leds = 0x0F end -- Y
	if rpm > (rz * p5) then mG27Leds = 0x1F end -- R
end

-- percentage method for G27
function PercentageG27(rpm, redzone, p1, p2, p3, p4, p5)
	local onePercent = redzone / 100
	if rpm > (p1 * onePercent) then mG27Leds = 0x1 end -- G
	if rpm > (p2 * onePercent) then mG27Leds = 0x3 end -- G
	if rpm > (p3 * onePercent) then mG27Leds = 0x7 end -- Y
	if rpm > (p4 * onePercent) then mG27Leds = 0x0F end -- Y
	if rpm > (p5 * onePercent) then mG27Leds = 0x1F end -- R
end

-- fixed rpm method for G27 (NOT RECOMMENDED)
function RpmG27(rpm, p1, p2, p3, p4, p5 )
	if rpm > p1 then mG27Leds = 0x1 end -- G
	if rpm > p2 then mG27Leds = 0x3 end -- G
	if rpm > p3 then mG27Leds = 0x7 end -- Y
	if rpm > p4 then mG27Leds = 0x0F end -- Y
	if rpm > p5 then mG27Leds = 0x1F end -- R
end

-- --------------------------------------------
-- --------------------------------------------
-- Fanatec functions

-- progressive method for Fanatec
function ProgressiveFanatec(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9)
	local rz = redzone / 9.0
	if rpm > (rz*p1) 	then mRPMLedTable.RPM0 = 1 end
	if rpm > (rz*p2) 	then mRPMLedTable.RPM1 = 1 end
	if rpm > (rz*p3)	then mRPMLedTable.RPM2 = 1 end
	if rpm > (rz*p4) 	then mRPMLedTable.RPM3 = 1 end

	if rpm > (rz*p5) 	then mRPMLedTable.RPM4 = 1 end
	if rpm > (rz*p6)  	then mRPMLedTable.RPM5 = 1 end
	if rpm > (rz*p7)	then mRPMLedTable.RPM6 = 1 end
	if rpm > (rz*p8) 	then mRPMLedTable.RPM7 = 1 end
	if rpm > (rz*p9)	then mRPMLedTable.RPM8 = 1 end
end

-- percentage method for Fanatec
function PercentageFanatec(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9)
	local onePercent = redzone / 100
	if p1>0 and rpm >= (p1*onePercent) then mRPMLedTable.RPM0 = 1    end -- y
	if p2>0 and rpm >= (p2*onePercent) then mRPMLedTable.RPM1 = 1	 end -- y
	if p3>0 and rpm >= (p3*onePercent) then mRPMLedTable.RPM2 = 1	 end -- y
	if p4>0 and rpm >= (p4*onePercent) then mRPMLedTable.RPM3 = 1	 end -- r
	if p5>0 and rpm >= (p5*onePercent) then mRPMLedTable.RPM4 = 1	 end -- r
	if p6>0 and rpm >= (p6*onePercent) then mRPMLedTable.RPM5 = 1	 end -- r
	if p7>0 and rpm >= (p7*onePercent) then mRPMLedTable.RPM6 = 1	 end -- b
	if p8>0 and rpm >= (p8*onePercent) then mRPMLedTable.RPM7 = 1	 end -- b
	if p9>0 and rpm >= (p9*onePercent) then mRPMLedTable.RPM8 = 1	 end -- b
end

-- fixed rpm method for Fanatec (NOT RECOMMENDED)
function RpmFanatec(rpm, p1, p2, p3, p4, p5, p6, p7, p8, p9 )
	if rpm > p1 	then mRPMLedTable.RPM0 = 1 end
	if rpm > p2 	then mRPMLedTable.RPM1 = 1 end
	if rpm > p3		then mRPMLedTable.RPM2 = 1 end
	if rpm > p4 	then mRPMLedTable.RPM3 = 1 end

	if rpm > p5 	then mRPMLedTable.RPM4 = 1 end
	if rpm > p6  	then mRPMLedTable.RPM5 = 1 end
	if rpm > p7		then mRPMLedTable.RPM6 = 1 end
	if rpm > p8 	then mRPMLedTable.RPM7 = 1 end
	if rpm > p9		then mRPMLedTable.RPM8 = 1 end
end

-- alternate yellow, red and blue method
function AlternateFanatec(rpm, redzone, step1, step2, step3)

	local rz = redzone / 9.0
	if rpm > (rz*step1)  then
		mRPMLedTable.RPM0 = 1	 -- y
		mRPMLedTable.RPM1 = 1	 -- y
		mRPMLedTable.RPM2 = 1	 -- y
	end
	if rpm > (rz*step2) then
		mRPMLedTable.RPM3 = 1	 -- r
		mRPMLedTable.RPM4 = 1	 -- r
		mRPMLedTable.RPM5 = 1	 -- r
	end
	if rpm > (rz*step3)  then
		mRPMLedTable.RPM6 = 1	 -- b
		mRPMLedTable.RPM7 = 1	 -- b
		mRPMLedTable.RPM8 = 1	 -- b
	end
end

-- shiftlights method from side to center
function SideToCenterFanatec(rpm, redzone, p1, p2, p3, p4 ,p5 )

	local rz = redzone / 100
	
	-- side to center custom
	if rpm > (rz*p1) then mRPMLedTable.RPM0 = 1 end -- y
	if rpm > (rz*p1) then mRPMLedTable.RPM8 = 1 end -- B

	if rpm > (rz*p2) then mRPMLedTable.RPM1 = 1 end -- y
	if rpm > (rz*p2) then mRPMLedTable.RPM7 = 1 end -- B

	if rpm > (rz*p3)	then mRPMLedTable.RPM2 = 1 end -- y
	if rpm > (rz*p3)	then mRPMLedTable.RPM6 = 1 end -- B

	if rpm > (rz*p4) then mRPMLedTable.RPM3 = 1 end -- r
	if rpm > (rz*p4) then mRPMLedTable.RPM5 = 1 end -- r

	if rpm > (rz*p5) then mRPMLedTable.RPM4 = 1 end -- R
end

-- --------------------------------------------
-- --------------------------------------------
-- SIM RACE Deluxe functions

-- progressive method for SIM RACE Deluxe
function ProgressiveSRDlx(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10)
	local rz = redzone / 10.0
	if rpm > (rz*p1) 	then mRPMLedTable.RPM0 = 1 end
	if rpm > (rz*p2) 	then mRPMLedTable.RPM1 = 1 end
	if rpm > (rz*p3)	then mRPMLedTable.RPM2 = 1 end
	if rpm > (rz*p4) 	then mRPMLedTable.RPM3 = 1 end
	if rpm > (rz*p5) 	then mRPMLedTable.RPM4 = 1 end
	if rpm > (rz*p6)  	then mRPMLedTable.RPM5 = 1 end
	if rpm > (rz*p7)	then mRPMLedTable.RPM6 = 1 end
	if rpm > (rz*p8) 	then mRPMLedTable.RPM7 = 1 end
	if rpm > (rz*p9)	then mRPMLedTable.RPM8 = 1 end
	if rpm > (rz*p9)	then mRPMLedTable.RPM9 = 1 end
end

-- percentage method for SIM RACE Deluxe
function PercentageSRDlx(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10)
	local onePercent = redzone / 100
	if p1>0 and rpm >= (p1*onePercent) then mRPMLedTable.RPM0 = 1    end -- y
	if p2>0 and rpm >= (p2*onePercent) then mRPMLedTable.RPM1 = 1	 end -- y
	if p3>0 and rpm >= (p3*onePercent) then mRPMLedTable.RPM2 = 1	 end -- y
	if p4>0 and rpm >= (p4*onePercent) then mRPMLedTable.RPM3 = 1	 end -- r
	if p5>0 and rpm >= (p5*onePercent) then mRPMLedTable.RPM4 = 1	 end -- r
	if p6>0 and rpm >= (p6*onePercent) then mRPMLedTable.RPM5 = 1	 end -- r
	if p7>0 and rpm >= (p7*onePercent) then mRPMLedTable.RPM6 = 1	 end -- r
	if p8>0 and rpm >= (p8*onePercent) then mRPMLedTable.RPM7 = 1	 end -- b
	if p9>0 and rpm >= (p9*onePercent) then mRPMLedTable.RPM8 = 1	 end -- b
	if p9>0 and rpm >= (p9*onePercent) then mRPMLedTable.RPM9 = 1	 end -- b
end

-- fixed rpm method for SIM RACE Deluxe (NOT RECOMMENDED)
function RpmSRDlx(rpm, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10 )
	if rpm > p1 	then mRPMLedTable.RPM0 = 1 end
	if rpm > p2 	then mRPMLedTable.RPM1 = 1 end
	if rpm > p3		then mRPMLedTable.RPM2 = 1 end
	
	if rpm > p4 	then mRPMLedTable.RPM3 = 1 end
	if rpm > p5 	then mRPMLedTable.RPM4 = 1 end
	if rpm > p6  	then mRPMLedTable.RPM5 = 1 end
	if rpm > p7		then mRPMLedTable.RPM6 = 1 end
	
	if rpm > p8 	then mRPMLedTable.RPM7 = 1 end
	if rpm > p9		then mRPMLedTable.RPM8 = 1 end
	if rpm > p10	then mRPMLedTable.RPM9 = 1 end

end

-- alternate yellow, red and blue method for SIM RACE Deluxe
function AlternateSRDlx(rpm, redzone, step1, step2, step3)

	local rz = redzone / 10.0
	if rpm > (rz*step1)  then
		mRPMLedTable.RPM0 = 1	 -- y
		mRPMLedTable.RPM1 = 1	 -- y
		mRPMLedTable.RPM2 = 1	 -- y
	end
	if rpm > (rz*step2) then
		mRPMLedTable.RPM3 = 1	 -- r
		mRPMLedTable.RPM4 = 1	 -- r
		mRPMLedTable.RPM5 = 1	 -- r
		mRPMLedTable.RPM6 = 1	 -- r
	end
	if rpm > (rz*step3)  then
		mRPMLedTable.RPM7 = 1	 -- b
		mRPMLedTable.RPM8 = 1	 -- b
		mRPMLedTable.RPM9 = 1	 -- b
	end
end

-- shiftlights method from side to center for SIM RACE Deluxe
function SideToCenterSRDlx(rpm, redzone, p1, p2, p3, p4 ,p5 )

	local rz = redzone / 100
	
	-- side to center custom
	if rpm > (rz*p1) then mRPMLedTable.RPM0 = 1 end -- y
	if rpm > (rz*p1) then mRPMLedTable.RPM9 = 1 end -- B

	if rpm > (rz*p2) then mRPMLedTable.RPM1 = 1 end -- y
	if rpm > (rz*p2) then mRPMLedTable.RPM8 = 1 end -- B

	if rpm > (rz*p3)	then mRPMLedTable.RPM2 = 1 end -- y
	if rpm > (rz*p3)	then mRPMLedTable.RPM7 = 1 end -- B

	if rpm > (rz*p4) then mRPMLedTable.RPM3 = 1 end -- R
	if rpm > (rz*p4) then mRPMLedTable.RPM6 = 1 end -- R

	if rpm > (rz*p5) then mRPMLedTable.RPM4 = 1 end -- R
	if rpm > (rz*p5) then mRPMLedTable.RPM5 = 1 end -- R
end

-- --------------------------------------------
-- --------------------------------------------
-- SIM RACE F1 functions


-- shiftlights method from side to center
function SideToCenterSRF1(rpm, redzone, p1, p2, p3, p4 ,p5 ,p6 ,p7, p8)

	local rz = redzone / 100
	
	-- side to center custom
	if rpm > (rz*p1) then mRPMLedTable.RPM0 = 1 end -- G
	if rpm > (rz*p1) then mRPMLedTable.RPM14 = 1 end -- B

	if rpm > (rz*p2) then mRPMLedTable.RPM1 = 1 end -- G
	if rpm > (rz*p2) then mRPMLedTable.RPM13 = 1 end -- B

	if rpm > (rz*p3)	then mRPMLedTable.RPM2 = 1 end -- G
	if rpm > (rz*p3)	then mRPMLedTable.RPM12 = 1 end -- B

	if rpm > (rz*p4) then mRPMLedTable.RPM3 = 1 end -- G
	if rpm > (rz*p4) then mRPMLedTable.RPM11 = 1 end -- B

	if rpm > (rz*p5) then mRPMLedTable.RPM4 = 1 end -- R
	if rpm > (rz*p5) then mRPMLedTable.RPM10 = 1 end -- R

	if rpm > (rz*p6)	then mRPMLedTable.RPM5 = 1 end -- R
	if rpm > (rz*p6)	then mRPMLedTable.RPM9 = 1 end -- R

	if rpm > (rz*p7)	then mRPMLedTable.RPM6 = 1 end -- R
	if rpm > (rz*p7)	then mRPMLedTable.RPM8 = 1 end -- R

	if rpm > (rz*p8)	then mRPMLedTable.RPM7 = 1 end -- R

end

-- progressive method
function ProgressiveSRF1(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15 )
	local rz = redzone / 15
	-- print("progessive")
	if rpm > (rz*p1) 	then mRPMLedTable.RPM0 = 1 end
	if rpm > (rz*p2) 	then mRPMLedTable.RPM1 = 1 end
	if rpm > (rz*p3)	then mRPMLedTable.RPM2 = 1 end
	if rpm > (rz*p4) 	then mRPMLedTable.RPM3 = 1 end
	if rpm > (rz*p5) 	then mRPMLedTable.RPM4 = 1 end
	
	if rpm > (rz*p6)  	then mRPMLedTable.RPM5 = 1 end
	if rpm > (rz*p7)	then mRPMLedTable.RPM6 = 1 end
	if rpm > (rz*p8) 	then mRPMLedTable.RPM7 = 1 end
	if rpm > (rz*p9)	then mRPMLedTable.RPM8 = 1 end
	if rpm > (rz*p10) 	then mRPMLedTable.RPM9 = 1 end
	
	if rpm > (rz*p11)	then mRPMLedTable.RPM10 = 1 end
	if rpm > (rz*p12)	then mRPMLedTable.RPM11 = 1 end
	if rpm > (rz*p13)	then mRPMLedTable.RPM12 = 1 end
	if rpm > (rz*p14)	then mRPMLedTable.RPM13 = 1 end
	if rpm > (rz*p15)	then mRPMLedTable.RPM14 = 1 end

end
	
-- alternate green, red and blue method
function AlternateSRF1(rpm, redzone, step1, step2, step3)

	local rz = redzone / 15
	if rpm > (rz*step1)  then
		mRPMLedTable.RPM0 = 1	 -- G
		mRPMLedTable.RPM1 = 1	 -- G
		mRPMLedTable.RPM2 = 1	 -- G
		mRPMLedTable.RPM3 = 1	 -- G
		mRPMLedTable.RPM4 = 1	 -- R
	end
	if rpm > (rz*step2) then
		mRPMLedTable.RPM5 = 1	 -- R
		mRPMLedTable.RPM6 = 1	 -- R
		mRPMLedTable.RPM7 = 1	 -- R
		mRPMLedTable.RPM8 = 1	 -- R
		mRPMLedTable.RPM9 = 1	 -- B
	end
	if rpm > (rz*step3)  then
		mRPMLedTable.RPM10 = 1	 -- B
		mRPMLedTable.RPM11 = 1	 -- B
		mRPMLedTable.RPM12 = 1	 -- B
		mRPMLedTable.RPM13 = 1	 -- B
		mRPMLedTable.RPM14 = 1	 -- B
	end
end

function PercentageSRF1(rpm, redzone, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15 )
	local onePercent = redzone / 100
	if p1>0 and rpm >= (p1*onePercent) then mRPMLedTable.RPM0 = 1 end -- G
	if p2>0 and rpm >= (p2*onePercent) then mRPMLedTable.RPM1 = 1	 end -- G
	if p3>0 and rpm >= (p3*onePercent) then mRPMLedTable.RPM2 = 1	 end -- G
	if p4>0 and rpm >= (p4*onePercent) then mRPMLedTable.RPM3 = 1	 end -- G
	if p5>0 and rpm >= (p5*onePercent) then mRPMLedTable.RPM4 = 1	 end -- G
	if p6>0 and rpm >= (p6*onePercent) then mRPMLedTable.RPM5 = 1	 end -- R
	if p7>0 and rpm >= (p7*onePercent) then mRPMLedTable.RPM6 = 1	 end -- R
	if p8>0 and rpm >= (p8*onePercent) then mRPMLedTable.RPM7 = 1	 end -- R
	if p9>0 and rpm >= (p9*onePercent) then mRPMLedTable.RPM8 = 1	 end -- R
	if p10>0 and rpm >= (p10*onePercent) then mRPMLedTable.RPM9 = 1	 end -- R
	if p11>0 and rpm >= (p11*onePercent) then mRPMLedTable.RPM10 = 1	 end -- B
	if p12>0 and rpm >= (p12*onePercent) then mRPMLedTable.RPM11 = 1	 end -- B
	if p13>0 and rpm >= (p13*onePercent) then mRPMLedTable.RPM12 = 1	 end -- B
	if p14>0 and rpm >= (p14*onePercent) then mRPMLedTable.RPM13 = 1	 end -- B
	if p15>0 and rpm >= (p15*onePercent) then mRPMLedTable.RPM14 = 1	 end -- B
end

-- fixed rpm method, set rpm for each led (NOT RECOMMENDED)
function RpmSRF1(rpm, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15  )
	if p1>0 and rpm >= p1 then mRPMLedTable.RPM0 = 1	 end -- G
	if p2>0 and rpm >= p2 then mRPMLedTable.RPM1 = 1	 end -- G
	if p3>0 and rpm >= p3 then mRPMLedTable.RPM2 = 1	 end -- G
	if p4>0 and rpm >= p4 then mRPMLedTable.RPM3 = 1	 end -- G
	if p5>0 and rpm >= p5 then mRPMLedTable.RPM4 = 1	 end -- G
	if p6>0 and rpm >= p6 then mRPMLedTable.RPM5 = 1	 end -- R
	if p7>0 and rpm >= p7 then mRPMLedTable.RPM6 = 1	 end -- R
	if p8>0 and rpm >= p8 then mRPMLedTable.RPM7 = 1	 end -- R
	if p9>0 and rpm >= p9 then mRPMLedTable.RPM8 = 1	 end -- R
	if p10>0 and rpm >= p10 then mRPMLedTable.RPM9 = 1	 end -- R
	if p11>0 and rpm >= p11 then mRPMLedTable.RPM10 = 1	 end -- B
	if p12>0 and rpm >= p12 then mRPMLedTable.RPM11 = 1	 end -- B
	if p13>0 and rpm >= p13 then mRPMLedTable.RPM12 = 1	 end -- B
	if p14>0 and rpm >= p14 then mRPMLedTable.RPM13 = 1	 end -- B
	if p15>0 and rpm >= p15 then mRPMLedTable.RPM14 = 1	 end -- B
end

-- progressive method but with rpm value for eah led
function ProgressiveFixedSRF1(rpm, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15 )
	-- progressive method with thresholds as parameters
	if rpm > p1 	then mRPMLedTable.RPM0 = 1 end
	if rpm > p2 	then mRPMLedTable.RPM1 = 1 end
	if rpm > p3		then mRPMLedTable.RPM2 = 1 end
	if rpm > p4 	then mRPMLedTable.RPM3 = 1 end

	if rpm > p5 	then mRPMLedTable.RPM4 = 1 end
	if rpm > p6  	then mRPMLedTable.RPM5 = 1 end
	if rpm > p7		then mRPMLedTable.RPM6 = 1 end
	if rpm > p8 	then mRPMLedTable.RPM7 = 1 end
	if rpm > p9		then mRPMLedTable.RPM8 = 1 end

	if rpm > p10 	then mRPMLedTable.RPM9 = 1 end
	if rpm > p11	then mRPMLedTable.RPM10 = 1 end
	if rpm > p12	then mRPMLedTable.RPM11 = 1 end
	if rpm > p13	then mRPMLedTable.RPM12 = 1 end
	if rpm > p14	then mRPMLedTable.RPM13 = 1 end
	if rpm > p15	then mRPMLedTable.RPM14 = 1 end
end


-- ==============================================================================
-- ==============================================================================

 -- SLI-M, SLI-PRO ShiftLights Methods Event
function shiftLightsMethodEvent(idx)
	mShiftlightsMethodIndex = idx
	-- get red zone (red zone default value is initialized in gear.lua )
	if gRedZone == nil or gRedZone == 0 then gRedZone = GetCarInfo("redzone") end

	-- call custom script
	local result = custom_shiftLightsMethodEvent(mShiftlightsMethodIndex)
	-- 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
	result = global_custom_shiftLightsMethodEvent(mShiftlightsMethodIndex)
	-- 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

	-- get rpm
	local rpm = 0
	rpm = GetCarInfo("rpm")
	if rpm == nil then rpm = 0 end
	
	initLedTable(mRPMLedTable, 0)
	
	if GetContextInfo("lastgearnorpm") and GetCarInfo("gear") == 7 then
		-- no shiftlights on last gear
		local tName = "mRPMLedTable"
		SetRPMLed(tName)
		return 1
	end
	
	if mShiftlightsMethodIndex == 0 then
		-- progressive method 0
		ProgressiveSLI(rpm, gRedZone, 7.5, 8, 8.5, 9, 9.5, 10, 10.5, 11, 11.5, 12, 12.5, 12.8, 12.98 )
		
	elseif mShiftlightsMethodIndex == 1 then
		-- alternate method 1
		AlternateSLI(rpm, gRedZone, 11.0, 12.0, 12.9)
		
	elseif mShiftlightsMethodIndex == 2 then
		-- percentage method 2
		PercentageSLI(rpm, gRedZone, RPM_PERCENT_VALUES[1], RPM_PERCENT_VALUES[2], RPM_PERCENT_VALUES[3], RPM_PERCENT_VALUES[4], RPM_PERCENT_VALUES[5], RPM_PERCENT_VALUES[6], RPM_PERCENT_VALUES[7], RPM_PERCENT_VALUES[8], RPM_PERCENT_VALUES[9], RPM_PERCENT_VALUES[10], RPM_PERCENT_VALUES[11], RPM_PERCENT_VALUES[12], RPM_PERCENT_VALUES[13] )
		
    elseif mShiftlightsMethodIndex == 3 then
		-- abs rpm method 3 (not recommended) 
		RpmSLI(rpm, RPM_ABSOLUTE_VALUES[1], RPM_ABSOLUTE_VALUES[2], RPM_ABSOLUTE_VALUES[3], RPM_ABSOLUTE_VALUES[4], RPM_ABSOLUTE_VALUES[5], RPM_ABSOLUTE_VALUES[6], RPM_ABSOLUTE_VALUES[7], RPM_ABSOLUTE_VALUES[8], RPM_ABSOLUTE_VALUES[9], RPM_ABSOLUTE_VALUES[10], RPM_ABSOLUTE_VALUES[11], RPM_ABSOLUTE_VALUES[12], RPM_ABSOLUTE_VALUES[13] )
		
	elseif mShiftlightsMethodIndex == 4 then
		-- side to center method 4
		SideToCenterSLI(rpm, gRedZone, 94.5, 95, 96, 97 ,98 ,99 ,99.5 )
		
	elseif mShiftlightsMethodIndex == 5 then
		-- KERS + RPM
		
		-- get kers value
		local k_percent = GetKersPercent()
		
		-- without first 4 green leds
		AlternateSLI(rpm, gRedZone, 100, 11.6, 12.9)
	
		-- KERS feedback on green leds
		-- print("KERS: " .. kers_level .. " - " .. k_percent .. "\n")
	
		if k_percent > 0   then mRPMLedTable.RPM0 = 1 end
		if k_percent >= 25 then mRPMLedTable.RPM1 = 1 end
		if k_percent >= 50 then mRPMLedTable.RPM2 = 1 end
		if k_percent >= 75 then mRPMLedTable.RPM3 = 1 end
		
	elseif mShiftlightsMethodIndex == 6 then
		-- Revers KERS + RPM
		
		-- get kers value
		local k_percent = GetKersPercent()
	
		-- without first 4 green leds
		AlternateSLI(rpm, gRedZone, 0, 11.6, 12.9)
	
		-- KERS feedback on green leds
		-- print("KERS: " .. kers_level .. " - " .. k_percent .. "\n")
	
		if k_percent > 0   then mRPMLedTable.RPM3 = 0 end
		if k_percent >= 25 then mRPMLedTable.RPM2 = 0 end
		if k_percent >= 50 then mRPMLedTable.RPM1 = 0 end
		if k_percent >= 75 then mRPMLedTable.RPM0 = 0 end
		
   else
        return 1
	end

	local tName = "mRPMLedTable"
	SetRPMLed(tName)
	return 1
end

-- ==============================================================================

-- BU0710 ShiftLights Methods Event
function shiftLightsBU0710Event(idx)
	mShiftlightsBU0710MethodIndex = idx
	-- get red zone (red zone default value is initialized in gear.lua )
	if gRedZone == nil or gRedZone == 0 then gRedZone = GetCarInfo("redzone") end

	-- call custom script
	local result = custom_shiftLightsBU0710Event(mShiftlightsBU0710MethodIndex)
	-- 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
	result = global_custom_shiftLightsBU0710Event(mShiftlightsBU0710MethodIndex)
	-- 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

	local rpm = GetCarInfo("rpm")
	if rpm == nil then rpm = 0 end
	
	-- init leds (see global.lua)
	mBU0710Leds = 0
		
	if GetContextInfo("lastgearnorpm") and GetCarInfo("gear") == 7 then
		-- no shiftlights on last gear
		SetBU0710Led(mBU0710Leds)
		return 1
	end
	
	if (mShiftlightsBU0710MethodIndex <= 1) or (mShiftlightsBU0710MethodIndex >= 4) then
		-- progressive methods 1 or 4
		ProgressiveBU0710(rpm, gRedZone, 4.0, 6.0, 7.0, 7.5, 8.0, 8.5, 9.0, 9.3, 9.5, 9.7, 9.9 )

	elseif (mShiftlightsBU0710MethodIndex == 2) then
		-- percentage method 2
		PercentageBU0710(rpm, gRedZone, 84, 88, 90, 92, 93, 94, 95, 96, 97, 98, 99 )

	elseif (mShiftlightsBU0710MethodIndex == 3) then
		-- abs method 3 (not recommended)
		RpmBU0710(rpm, 15823, 16354, 16410, 16675, 17252, 17545, 17823, 18354, 18510, 18655, 18675 )

	else
		return 1
	end
	
	SetBU0710Led(mBU0710Leds)
	return 1
end

-- ==============================================================================

-- G27 ShiftLights Methods Event
function shiftLightsG27LedsMethodEvent(idx)
	mShiftlightsG27MethodIndex = idx
	-- get red zone (red zone default value is initialized in gear.lua )
	if gRedZone == nil or gRedZone == 0 then gRedZone = GetCarInfo("redzone") end

	-- call custom script
	local result = custom_shiftLightsG27LedsMethodEvent(mShiftlightsG27MethodIndex)
	-- 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
	result = global_custom_shiftLightsG27LedsMethodEvent(mShiftlightsG27MethodIndex)
	-- 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

	local rpm = GetCarInfo("rpm")
	if rpm == nil then rpm = 0 end
	
	-- init leds (see global.lua)
	mG27Leds = 0
		
	if GetContextInfo("lastgearnorpm") and GetCarInfo("gear") == 7 then
		-- no shiftlights on last gear
		SetG27Led(mG27Leds)
		return 1
	end
	
	if mShiftlightsG27MethodIndex <= 0 or mShiftlightsG27MethodIndex >= 3 then
		-- progressive methods 1
		ProgressiveG27(rpm, gRedZone, 2.0, 2.5, 3.5, 4.5, 4.9 )

	elseif mShiftlightsG27MethodIndex == 1 then
		-- percentage method 2
		--PercentageG27(rpm, gRedZone, 88, 92, 95, 97, 99 )
		PercentageG27(rpm, gRedZone, RPM_PERCENT_VALUES[1], RPM_PERCENT_VALUES[2], RPM_PERCENT_VALUES[3], RPM_PERCENT_VALUES[4], RPM_PERCENT_VALUES[5] )

	elseif mShiftlightsG27MethodIndex == 2 then
		-- abs method 3 (not recommended)
		RpmG27(rpm, RPM_ABSOLUTE_VALUES[1], RPM_ABSOLUTE_VALUES[2], RPM_ABSOLUTE_VALUES[3], RPM_ABSOLUTE_VALUES[4], RPM_ABSOLUTE_VALUES[5] )

	else
		return 1
	end
	
	SetG27Led(mG27Leds)
	return 1
end

-- ==============================================================================

-- Fanatec ShiftLights Methods Event
function shiftLightsFanatecMethodEvent(idx)
	mShiftlightsFanatecMethodIndex = idx
	-- get red zone (red zone default value is initialized in gear.lua )		
	if gRedZone == nil or gRedZone == 0 then gRedZone = GetCarInfo("redzone") end

	-- call custom script
	local result = custom_shiftLightsFanatecMethodEvent(mShiftlightsFanatecMethodIndex)
	-- 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
	result = global_custom_shiftLightsFanatecMethodEvent(mShiftlightsFanatecMethodIndex)
	-- 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

	local rpm = GetCarInfo("rpm")
	if rpm == nil then rpm = 0 end
	
	-- init leds (see global.lua)
	initLedTable(mRPMLedTable, 0)
		
	if GetContextInfo("lastgearnorpm") and GetCarInfo("gear") == 7 then
		-- no shiftlights on last gear
		local tName = "mRPMLedTable"
		SetRPMLed(tName)
		return 1
	end
	
	if (mShiftlightsFanatecMethodIndex < 1) or (mShiftlightsFanatecMethodIndex > 6) then
		-- progressive methods 0
		ProgressiveFanatec(rpm, gRedZone, 6.0, 6.5, 7.0, 7.5, 8.0, 8.3, 8.5, 8.7, 8.9  )
		
	elseif mShiftlightsFanatecMethodIndex == 1 then
		-- alternate method 1
		AlternateFanatec(rpm, gRedZone, 7.0, 8.0, 8.9)
		
	elseif (mShiftlightsFanatecMethodIndex == 2) then
		-- percentage method 2
		PercentageFanatec(rpm, gRedZone, RPM_PERCENT_VALUES[1], RPM_PERCENT_VALUES[2], RPM_PERCENT_VALUES[3], RPM_PERCENT_VALUES[4], RPM_PERCENT_VALUES[5], RPM_PERCENT_VALUES[6], RPM_PERCENT_VALUES[7], RPM_PERCENT_VALUES[8], RPM_PERCENT_VALUES[9] )

	elseif (mShiftlightsFanatecMethodIndex == 3) then
		-- abs method 3 (not recommended)
		RpmFanatec(rpm, RPM_ABSOLUTE_VALUES[1], RPM_ABSOLUTE_VALUES[2], RPM_ABSOLUTE_VALUES[3], RPM_ABSOLUTE_VALUES[4], RPM_ABSOLUTE_VALUES[5], RPM_ABSOLUTE_VALUES[6], RPM_ABSOLUTE_VALUES[7], RPM_ABSOLUTE_VALUES[8], RPM_ABSOLUTE_VALUES[9] )

	elseif mShiftlightsFanatecMethodIndex == 4 then
		-- side to center method 4
		SideToCenterFanatec(rpm, gRedZone, 96, 97 ,98 ,99 ,99.5 )
		
	elseif mShiftlightsFanatecMethodIndex == 5 then
		-- KERS + RPM
		
		-- get kers value, see function in global.lua 
		local k_percent = GetKersPercent()
		
		-- without first 4 green leds
		local kers_level = GetCarInfo("kers")
		AlternateFanatec(rpm, gRedZone, 100, 7.6, 8.9)
	
		-- KERS feedback on yellow leds
		-- print("IDX: ".. idx.." KERS: " .. kers_level .. " - " .. k_percent .. "\n")
	
		if k_percent > 0   then mRPMLedTable.RPM0 = 1 end
		if k_percent >= 33 then mRPMLedTable.RPM1 = 1 end
		if k_percent >= 66 then mRPMLedTable.RPM2 = 1 end
		
	elseif mShiftlightsFanatecMethodIndex == 6 then
		-- Revers KERS + RPM
		
		-- get kers value,  see function in global.lua 
		local k_percent = GetKersPercent()
	
		-- without first 4 green leds
		AlternateFanatec(rpm, gRedZone, 0, 7.6, 8.9)
	
		-- KERS feedback on yellow leds
		--local kers_level = GetCarInfo("kers")
		--print("IDX: ".. idx.." KERS: " .. kers_level .. " - " .. k_percent .. "\n")
	
	if k_percent > 0 then mRPMLedTable.RPM2 = 0 end
	if k_percent >= 33 then mRPMLedTable.RPM1 = 0 end
	if k_percent >= 66 then mRPMLedTable.RPM0 = 0 end
		
	else
		return 1
	end
	
	local tName = "mRPMLedTable"
	SetRPMLed(tName)
	return 1
end



 -- SIM RACE Deluxe ShiftLights Methods Event
function shiftLightsSRDlxMethodEvent(idx)
	mShiftlightsSRDlxMethodIndex = idx
	-- get red zone (red zone default value is initialized in gear.lua )
	if gRedZone == nil or gRedZone == 0 then gRedZone = GetCarInfo("redzone") end

	-- call custom script
	local result = custom_shiftLightsSRDlxMethodEvent(mShiftlightsSRDlxMethodIndex)
	-- 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
	result = global_custom_shiftLightsSRDlxMethodEvent(mShiftlightsSRDlxMethodIndex)
	-- 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

	-- get rpm
	local rpm = 0
	rpm = GetCarInfo("rpm")
	if rpm == nil then rpm = 0 end
	
	-- init leds (see global.lua)
	initLedTable(mRPMLedTable, 0)
	
	if GetContextInfo("lastgearnorpm") and GetCarInfo("gear") == 7 then
		-- no shiftlights on last gear
		local tName = "mRPMLedTable"
		SetRPMLed(tName)
		return 1
	end
		
	if mShiftlightsSRDlxMethodIndex == 0 then
		-- progressive method 0
		ProgressiveSRDlx(rpm, gRedZone, 5, 6.5, 7, 7.5, 8, 8.5, 9, 9.5, 9.8, 9.98 )
		
	elseif mShiftlightsSRDlxMethodIndex == 1 then
		-- alternate method 1
		AlternateSRDlx(rpm, gRedZone, 7.0, 8.0, 9.9)
		
	elseif mShiftlightsSRDlxMethodIndex == 2 then
		-- percentage method 2
		PercentageSRDlx(rpm, gRedZone, RPM_PERCENT_VALUES[1], RPM_PERCENT_VALUES[2], RPM_PERCENT_VALUES[3], RPM_PERCENT_VALUES[4], RPM_PERCENT_VALUES[5], RPM_PERCENT_VALUES[6], RPM_PERCENT_VALUES[7], RPM_PERCENT_VALUES[8], RPM_PERCENT_VALUES[9], RPM_PERCENT_VALUES[10] )
		
    elseif mShiftlightsSRDlxMethodIndex == 3 then
		-- abs rpm method 3 (not recommended) 
		RpmSRDlx(rpm, RPM_ABSOLUTE_VALUES[1], RPM_ABSOLUTE_VALUES[2], RPM_ABSOLUTE_VALUES[3], RPM_ABSOLUTE_VALUES[4], RPM_ABSOLUTE_VALUES[5], RPM_ABSOLUTE_VALUES[6], RPM_ABSOLUTE_VALUES[7], RPM_ABSOLUTE_VALUES[8], RPM_ABSOLUTE_VALUES[9], RPM_ABSOLUTE_VALUES[10] )
		
	elseif mShiftlightsSRDlxMethodIndex == 4 then
		-- side to center method 4
		SideToCenterSRDlx(rpm, gRedZone, 96, 97 ,98 ,99 ,99.5 )
		
	elseif mShiftlightsSRDlxMethodIndex == 5 then
		-- KERS + RPM
		
		-- get kers value
		local k_percent = GetKersPercent()
		
		-- without first 4 green leds
		AlternateSRDlx(rpm, gRedZone, 100, 8.6, 9.9)
	
		-- KERS feedback on green leds
		-- print("KERS: " .. kers_level .. " - " .. k_percent .. "\n")
	
		if k_percent > 0   then mRPMLedTable.RPM0 = 1 end
		if k_percent >= 33 then mRPMLedTable.RPM1 = 1 end
		if k_percent >= 66 then mRPMLedTable.RPM2 = 1 end
		
	elseif mShiftlightsSRDlxMethodIndex == 6 then
		-- Revers KERS + RPM
		
		-- get kers value
		local k_percent = GetKersPercent()
	
		-- without first 4 green leds
		AlternateSRDlx(rpm, gRedZone, 0, 8.6, 9.9)
	
		-- KERS feedback on green leds
		-- print("KERS: " .. kers_level .. " - " .. k_percent .. "\n")
	
		if k_percent > 0 then mRPMLedTable.RPM2 = 0 end
		if k_percent >= 33 then mRPMLedTable.RPM1 = 0 end
		if k_percent >= 66 then mRPMLedTable.RPM0 = 0 end
		
   else
        return 1
	end

	local tName = "mRPMLedTable"
	SetRPMLed(tName)
	return 1
end


 -- SIM RACE F1 ShiftLights Methods Event
function shiftLightsSRF1MethodEvent(idx)
	mShiftlightsSRF1MethodIndex = idx
	-- get red zone (red zone default value is initialized in gear.lua )
	if gRedZone == nil or gRedZone == 0 then gRedZone = GetCarInfo("redzone") end

	-- call custom script
	local result = custom_shiftLightsSRF1MethodEvent(mShiftlightsSRF1MethodIndex)
	-- 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
	result = global_custom_shiftLightsSRF1MethodEvent(mShiftlightsSRF1MethodIndex)
	-- 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

	-- get rpm
	local rpm = 0
	rpm = GetCarInfo("rpm")
	if rpm == nil then rpm = 0 end
	
	-- init leds (see global.lua)
	initLedTable(mRPMLedTable, 0)

	if GetContextInfo("lastgearnorpm") and GetCarInfo("gear") == 7 then
		-- no shiftlights on last gear
		local tName = "mRPMLedTable"
		SetRPMLed(tName)
		return 1
	end
		
	if mShiftlightsSRF1MethodIndex == 0 then
		-- progressive method 0
		ProgressiveSRF1(rpm, gRedZone, 7.5, 8, 8.5, 9, 9.5, 10, 10.5, 11, 11.5, 12, 12.5, 13, 13.5, 14.5, 14.99 )
		
	elseif mShiftlightsSRF1MethodIndex == 1 then
		-- alternate method 1
		AlternateSRF1(rpm, gRedZone, 12.0, 13.0, 14.9)
		
	elseif mShiftlightsSRF1MethodIndex == 2 then
		-- percentage method 2
		PercentageSRF1(rpm, gRedZone, RPM_PERCENT_VALUES[1], RPM_PERCENT_VALUES[2], RPM_PERCENT_VALUES[3], RPM_PERCENT_VALUES[4], RPM_PERCENT_VALUES[5], RPM_PERCENT_VALUES[6], RPM_PERCENT_VALUES[7], RPM_PERCENT_VALUES[8], RPM_PERCENT_VALUES[9], RPM_PERCENT_VALUES[10],  RPM_PERCENT_VALUES[11], RPM_PERCENT_VALUES[12], RPM_PERCENT_VALUES[13], RPM_PERCENT_VALUES[14], RPM_PERCENT_VALUES[15]  )
		
    elseif mShiftlightsSRF1MethodIndex == 3 then
		-- abs rpm method 3 (not recommended) 
		RpmSRF1(rpm, RPM_ABSOLUTE_VALUES[1], RPM_ABSOLUTE_VALUES[2], RPM_ABSOLUTE_VALUES[3], RPM_ABSOLUTE_VALUES[4], RPM_ABSOLUTE_VALUES[5], RPM_ABSOLUTE_VALUES[6], RPM_ABSOLUTE_VALUES[7], RPM_ABSOLUTE_VALUES[8], RPM_ABSOLUTE_VALUES[9], RPM_ABSOLUTE_VALUES[10],  RPM_PERCENT_VALUES[11], RPM_PERCENT_VALUES[12], RPM_PERCENT_VALUES[13], RPM_PERCENT_VALUES[14], RPM_PERCENT_VALUES[15] )
		
	elseif mShiftlightsSRF1MethodIndex == 4 then
		-- side to center method 4
		SideToCenterSRF1(rpm, gRedZone, 94.5, 95, 96, 97 ,98 ,99 ,99.5 )
		
	elseif mShiftlightsSRF1MethodIndex == 5 then
		-- KERS + RPM
		
		-- get kers value
		local k_percent = GetKersPercent()
		
		-- without first 4 green leds
		AlternateSRF1(rpm, gRedZone, 100, 13.6, 14.9)
	
		-- KERS feedback on green leds
		-- print("KERS: " .. kers_level .. " - " .. k_percent .. "\n")
	
		if k_percent > 0   then mRPMLedTable.RPM0 = 1 end
		if k_percent >= 20 then mRPMLedTable.RPM1 = 1 end
		if k_percent >= 40 then mRPMLedTable.RPM2 = 1 end
		if k_percent >= 60 then mRPMLedTable.RPM3 = 1 end
		if k_percent >= 80 then mRPMLedTable.RPM4 = 1 end
		
	elseif mShiftlightsSRF1MethodIndex == 6 then
		-- Revers KERS + RPM
		
		-- get kers value
		local k_percent = GetKersPercent()
	
		-- without first 4 green leds
		AlternateSRF1(rpm, gRedZone, 0, 13.6, 14.9)
	
		-- KERS feedback on green leds
		-- print("KERS: " .. kers_level .. " - " .. k_percent .. "\n")
	
		if k_percent > 0   then mRPMLedTable.RPM4 = 0 end
		if k_percent >= 20 then mRPMLedTable.RPM3 = 0 end
		if k_percent >= 40 then mRPMLedTable.RPM2 = 0 end
		if k_percent >= 60 then mRPMLedTable.RPM1 = 0 end
		if k_percent >= 80 then mRPMLedTable.RPM0 = 0 end
		
   else
        return 1
	end

	local tName = "mRPMLedTable"
	SetRPMLed(tName)
	return 1
end