1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
-- SLIMax Mgr Lua Script v3
-- Copyright (c)2012-2013 by Zappadoc - All Rights Reserved.
-- gear event
-- last change by Zappadoc - 2013-02-15
-- SLI-M, SLI-PRO Gear Event
function gearEvent(gear)
-- get the rpm limit already computed by my OSP method
-- using OSP Factor parameter
-- value used in OSP, Shiftlights, car setup,... and can be overwritten
gOSPLimit = 0
gOSPLimit = GetContextInfo("osplimitrpm")
if gOSPLimit == nil then gOSPLimit = 0 end
-- get the red zone already computed by my SLIMax Mgr II
-- value used in Shiftlights and can be overwritten
gRedZone = 0
gRedZone = GetCarInfo("redzone")
if gRedZone == nil then gRedZone = 18000 end
-- call custom script
local result = custom_gearEvent(gear)
if result <= 1 then return result end
-- call global custom script
result = global_custom_gearEvent(gear)
if result <= 1 then return result end
local g = gear
if oldGear == nil then oldGear = -1 end
-- get neutral
local n = GetContextInfo("neutral")
-- get reverse char and convert to string
local r = string.char(GetContextInfo("reverse"))
-- get state of custom Optimal Shift Point (OSP) records
local ospcustom_on = GetContextInfo("ospcustom")
-- optimize display, call if changed
if oldGear ~= g then
-- backup gear state
oldGear = g
-- set neutral, reverse or current gear
if g == 0 then
-- if neutral and using custom OSP record then add a dot to gear digit
if ospcustom_on then n = n + 128 end
SetGearDigit(string.char(n))
elseif g < 0 then
SetGearDigit(r)
else
-- if gear = 'E' give the hand to SLIMax Manager
if g == 69 then
return 0
end
SetGearDigit(string.char(g))
end
end
return 1
end
-- Fanatec Gear Event
function gearFanatecEvent(gear)
-- get the rpm limit already computed by my OSP method
-- using OSP Factor parameter
-- value used in OSP, Shiftlights, car setup,... and can be overwritten
gOSPLimit = 0
gOSPLimit = GetContextInfo("osplimitrpm")
if gOSPLimit == nil then gOSPLimit = 0 end
-- get the red zone already computed by my SLIMax Mgr
-- value used in Shiftlights and can be overwritten
gRedZone = 0
gRedZone = GetCarInfo("redzone")
if gRedZone == nil then gRedZone = 18000 end
-- call custom script
local result = custom_gearEvent(gear)
if result <= 1 then return result end
-- call global custom script
result = global_custom_gearEvent(gear)
if result <= 1 then return result end
local g = gear
if oldGear == nil then oldGear = -1 end
if oldGear ~= g then
local rumbbleGear = GetContextInfo("gearshock")
local rumbbleGearDelay = GetContextInfo("gearshockdelay")
-- gear schock effect restricted to 1 to 7
if rumbbleGear and g > 0 then
if g < oldGear then
SetFanatecWheelMotor(0, 100, rumbbleGearDelay)
elseif g > oldGear then
SetFanatecWheelMotor(1, 100, rumbbleGearDelay)
end
end
-- backup gear state
oldGear = g
end
return 1
end
|