From 7bb45325c828a5c7a7c87ba0ec8744869c30c8dd Mon Sep 17 00:00:00 2001 From: Hugues Hiegel Date: Mon, 11 Feb 2013 12:37:11 +0100 Subject: Init with perso modifs --- scripts/shiftlights.lua | 333 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 333 insertions(+) create mode 100755 scripts/shiftlights.lua (limited to 'scripts/shiftlights.lua') diff --git a/scripts/shiftlights.lua b/scripts/shiftlights.lua new file mode 100755 index 0000000..95e93f3 --- /dev/null +++ b/scripts/shiftlights.lua @@ -0,0 +1,333 @@ +-- SLIMax Mgr Lua Script v2.3 +-- Copyright (c)2011-2013 by EK and Zappadoc - All Rights Reserved. +-- Use this script to build all shiftlights methods +-- last change by Zappadoc - 2012-10-28 + +-- ============================================================================== +-- 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 + -- print("RPM:".. rpm .. " Percentage:" .. onePercent .. " RZ:" .. gRedZone .. " P13:" .. mRPMLedTable.RPM12.. "\n") +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 + +function GetKersPercent() + -- get kers value + local kers_level = GetCarInfo("kers") + local k_percent = 0 + if kers_level ~= nil and kers_level > 0 then + k_percent = round((kers_level/1000) / 4 ) + end + return k_percent +end +-- ============================================================================== + + -- SLI-M, SLI-PRO ShiftLights Methods Event +function shiftLightsMethodEvent(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(idx) + -- 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(idx) + -- 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 idx == 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 idx == 1 then + -- alternate method 1 + AlternateSLI(rpm, gRedZone, 11.0, 12.0, 12.9) + + elseif idx == 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 idx == 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 idx == 4 then + -- side to center method 4 + SideToCenterSLI(rpm, gRedZone, 94.5, 95, 96, 97 ,98 ,99 ,99.5 ) + + elseif idx == 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 idx == 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 0 + end + + local tName = "mRPMLedTable" + SetRPMLed(tName) + return 1 +end + +-- BU0710 ShiftLights Methods Event +function shiftLightsBU0710Event(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(idx) + -- 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(idx) + -- 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 (idx <= 1) or (idx >= 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 (idx == 2) then + -- percentage method 2 + PercentageBU0710(rpm, gRedZone, 84, 88, 90, 92, 93, 94, 95, 96, 97, 98, 99 ) + + elseif (idx == 3) then + -- abs method 3 (not recommended) + RpmBU0710(rpm, 15823, 16354, 16410, 16675, 17252, 17545, 17823, 18354, 18510, 18655, 18675 ) + + else + return 0 + end + SetBU0710Led(mBU0710Leds) + return 1 +end \ No newline at end of file -- cgit v1.2.3