english
VBScript
Sub %s
End Sub
Dim Mode
Mode = "NUM"
HIDMacros.RegisterFSXVariable "PLANE HEADING DEGREES MAGNETIC", "degrees"
HIDMacros.RegisterFSXVariable "AUTOPILOT HEADING LOCK DIR", "degrees"
HIDMacros.RegisterFSXVariable "NAV OBS:1", "degrees"
HIDMacros.RegisterFSXVariable "ATC MODEL", "STRING"
'HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
Sub SetHdgCrs(value)
if Mode = "HDG" then
HIDMacros.FSXEvent "HEADING_BUG_SET", value
end if
if Mode = "CRS" then
HIDMacros.FSXEvent "VOR1_SET", value
end if
end sub
function CurHdgCrsValue()
CurHdgCrsValue = 0
if Mode = "HDG" then
CurHdgCrsValue = HIDMacros.GetFSXVariable("AUTOPILOT HEADING LOCK DIR")
end if
if Mode = "CRS" then
CurHdgCrsValue = HIDMacros.GetFSXVariable("NAV OBS:1")
end if
end function
Sub BuffToRadio(a, b)
Dim frq
frq = HIDMacros.GetBuffer
frq = HIDMacros.StrRPad(frq, "0", b)
HIDMacros.FSXEvent a, "&h"&frq
end sub
Sub Throttle(dev, axis, val)
'HIDMacros.Debug(dev & axis & val)
' can be 0..65535
Dim ZeroT
Dim AxisPercent
Dim FinalThrottle
ZeroT = 0.2 ' 20%
AxisPercent = val / 65535
if (AxisPercent < ZeroT) then
' set reverse
FinalThrottle = -10
else
' set throttle
FinalThrottle = (AxisPercent - ZeroT)*100 / (1-ZeroT)
end if
HIDMacros.SetFSXVariable "GENERAL ENG THROTTLE LEVER POSITION:1","Percent", FinalThrottle
end sub
HIDMacros.RegisterAxisEvent "Saitek X52 Flight Controller", "Slider1", "Throttle", 10
1
1
0
10
4000
1
100
FSX
\\?\HID#VID_04FC&PID_05D8&MI_00#9&819152C&0&0000#{884B96C3-56EF-11D1-BC8C-00A0C91405DD}
Kbd2
\\?\HID#VID_04D9&PID_1400&MI_00#8&11BBF594&0&0000#{884B96C3-56EF-11D1-BC8C-00A0C91405DD}
Kbd3
\\?\HID#VID_046D&PID_C52E&MI_00#7&15B12DCE&0&0000#{884B96C3-56EF-11D1-BC8C-00A0C91405DD}
Kbd4
\\?\HID#SAITEKKEYBOARD#2&1D46170D&0&0000#{884B96C3-56EF-11D1-BC8C-00A0C91405DD}
Mouse1
\\?\HID#VID_04FC&PID_05D8&MI_01&COL01#9&2BF052EE&0&0000#{378DE44C-56EF-11D1-BC8C-00A0C91405DD}
Mouse2
\\?\HID#VID_04D9&PID_1400&MI_01&COL01#8&121B482E&0&0000#{378DE44C-56EF-11D1-BC8C-00A0C91405DD}
Mouse3
\\?\HID#VID_046D&PID_C52E&MI_01&COL01#7&E260FF4&0&0000#{378DE44C-56EF-11D1-BC8C-00A0C91405DD}
Mouse4
\\?\HID#SAITEKMOUSE#2&7FD572C&0&0000#{378DE44C-56EF-11D1-BC8C-00A0C91405DD}
Saitek X52 Flight Controller
75CBCF00:BA08:11DF:8001444553540000
Saitek Pro Flight Rudder Pedals
CF3D24D0:B6DE:11DF:8006444553540000
FSX
Spot
192
down
SEQ
%vm{DOWN}{RIGHT}{DOWN}{ENTER}
0
FSX
VC
49
down
SCR
CABIN_NO_SMOKING_ALERT_
HIDMacros.FSXEvent "VIEW_VIRTUAL_COCKPIT_FORWARD", 0
HIDMacros.FSXEvent "ZOOM_1X", 0
HIDMacros.FSXEvent "ZOOM_MINUS", 0
HIDMacros.FSXEvent "ZOOM_MINUS", 0
HIDMacros.FSXEvent "ZOOM_MINUS", 0
HIDMacros.FSXEvent "PAN_DOWN", 0
HIDMacros.FSXEvent "PAN_DOWN", 0
HIDMacros.FSXEvent "PAN_DOWN", 0
HIDMacros.FSXEvent "PAN_DOWN", 0
HIDMacros.FSXEvent "PAN_DOWN", 0
HIDMacros.FSXEvent "PAN_DOWN", 0
0
FSX
Cabin
90
down
SIMC
TOGGLE_CABIN_LIGHTS
0
FSX
Strobe
88
down
SIMC
STROBES_TOGGLE
0
FSX
Taxi
67
down
SIMC
TOGGLE_TAXI_LIGHTS
0
FSX
Land
86
down
SIMC
LANDING_LIGHTS_TOGGLE
0
FSX
Beacon
66
down
SIMC
TOGGLE_BEACON_LIGHTS
0
FSX
Batery
71
down
SIMC
TOGGLE_MASTER_BATTERY
0
FSX
Generators
72
down
SIMC
TOGGLE_MASTER_ALTERNATOR
0
FSX
Pitot heat
74
down
SIMC
PITOT_HEAT_TOGGLE
0
FSX
QNHlocal
36
down
SIMC
BAROMETRIC
0
FSX
QNHstd
35
down
SIMC
KOHLSMAN_SET
0
16208
FSX
H0
104
down
SCR
HEADING_BUG_SET
if Mode = "NUM" then
HIDMacros.AddToBuffer("8")
else
call SetHdgCrs(0)
end if
0
0
FSX
SetHDG
111
down
SCR
Mode = "HDG"
0
FSX
SetCrs
106
down
SCR
Mode = "CRS"
0
FSX
H45
105
down
SCR
if Mode = "NUM" then
HIDMacros.AddToBuffer("9")
else
call SetHdgCrs(45)
end if
0
FSX
H90
102
down
SCR
if Mode = "NUM" then
HIDMacros.AddToBuffer("6")
else
call SetHdgCrs(90)
end if
0
FSX
H135
99
down
SCR
if Mode = "NUM" then
HIDMacros.AddToBuffer("3")
else
call SetHdgCrs(135)
end if
0
FSX
H180
98
down
SCR
if Mode = "NUM" then
HIDMacros.AddToBuffer("2")
else
call SetHdgCrs(180)
end if
0
FSX
H225
97
down
SCR
if Mode = "NUM" then
HIDMacros.AddToBuffer("1")
else
call SetHdgCrs(225)
end if
0
FSX
H270
100
down
SCR
if Mode = "NUM" then
HIDMacros.AddToBuffer("4")
else
call SetHdgCrs(270)
end if
0
FSX
H315
103
down
SCR
if Mode = "NUM" then
HIDMacros.AddToBuffer("7")
else
call SetHdgCrs(315)
end if
0
FSX
CurrHdg
101
down
SCR
if Mode = "NUM" then
HIDMacros.AddToBuffer("5")
else
Dim CurHdg
CurHdg = HIDMacros.GetFSXVariable("PLANE HEADING DEGREES MAGNETIC")
call SetHdgCrs(Round(CurHdg))
end if
0
FSX
ParkingBrake
190
down
SIMC
PARKING_BRAKES
0
FSX
Plus10
107
down
SCR
call SetHdgCrs(Round(CurHdgCrsValue()+10))
0
FSX
Minus10
13
down
SCR
call SetHdgCrs(Round(CurHdgCrsValue()-10))
0
FSX
Plus1
110
down
SCR
if Mode = "HDG" then
HIDMacros.FSXEvent "HEADING_BUG_INC", 0
end if
if Mode = "CRS" then
HIDMacros.FSXEvent "VOR1_OBI_INC", 0
end if
0
FSX
Minus1
96
down
SCR
if Mode = "HDG" then
HIDMacros.FSXEvent "HEADING_BUG_DEC", 0
end if
if Mode = "CRS" then
HIDMacros.FSXEvent "VOR1_OBI_DEC", 0
end if
if Mode = "NUM" then
HIDMacros.AddToBuffer("0")
end if
0
FSX
AP
51
down
SCR
PANEL_3
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "DHC-6"
HIDMacros.FSXEvent "PANEL_3", 0
Case "EC135"
HIDMacros.FSXEvent "PANEL_3", 0
Case "at72"
HIDMacros.FSXEvent "PANEL_8", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
RadioStack
69
down
SCR
PANEL_2
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "DHC-6"
HIDMacros.FSXEvent "PANEL_2", 0
Case "at72"
HIDMacros.FSXEvent "PANEL_2", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
FlapsUp
116
down
SIMC
FLAPS_UP
0
FSX
Flaps1
117
down
SIMC
FLAPS_1
0
FSX
Flaps2
118
down
SIMC
FLAPS_2
0
FSX
Flaps3
119
down
SIMC
FLAPS_3
0
FSX
gear
191
down
SIMC
GEAR_TOGGLE
0
FSX
APONOFF
8
down
SIMC
AP_MASTER
0
FSX
APHDG
187
down
SIMC
AP_HDG_HOLD
0
FSX
APNav
189
down
SIMC
AP_NAV1_HOLD
0
FSX
ApBC
48
down
SIMC
AP_BC_HOLD
0
FSX
ApGO
57
down
SIMC
AUTO_THROTTLE_TO_GA
0
FSX
ApAPP
221
down
SIMC
AP_APR_HOLD
0
FSX
APALT
219
down
SIMC
AP_ALT_HOLD
0
FSX
APVS
80
down
SIMC
AP_VS_VAR_SET_ENGLISH
0
300;0;-300
FSX
APIAS
79
down
SIMC
AP_AIRSPEED_HOLD
0
FSX
GPS
52
down
SCR
PANEL_4
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "DHC-6"
HIDMacros.FSXEvent "PANEL_4", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
Eng1Rich
53
down
SIMC
MIXTURE1_RICH
0
FSX
Eng1Lean
84
down
SIMC
MIXTURE1_LEAN
0
FSX
Eng2Rich
54
down
SIMC
MIXTURE2_RICH
0
FSX
Eng2Lean
89
down
SIMC
MIXTURE2_LEAN
0
FSX
NavLights
78
down
SIMC
TOGGLE_NAV_LIGHTS
0
FSX
SetNum
109
down
SCR
Mode = "NUM"
0
FSX
Nav1
120
down
SCR
BuffToRadio "NAV1_STBY_SET", 5
0
FSX
Nav2
122
down
SCR
BuffToRadio "NAV2_STBY_SET", 5
0
FSX
Com!
112
down
SCR
BuffToRadio "COM_STBY_RADIO_SET", 5
0
FSX
ADFSet
114
down
SCR
HIDMacros.FSXEvent "ADF_SET", "&h"&HIDMacros.GetBuffer
0
FSX
Squawk
222
down
SCR
HIDMacros.FSXEvent "XPNDR_SET", "&h"&HIDMacros.GetBuffer
0
FSX
SetCRS
220
down
SCR
HIDMacros.FSXEvent "VOR1_SET", HIDMacros.GetBuffer
0
FSX
SetALT
37
down
SCR
HIDMacros.FSXEvent "AP_ALT_VAR_SET_ENGLISH", HIDMacros.GetBuffer
0
FSX
setHDG
39
down
SCR
HIDMacros.FSXEvent "HEADING_BUG_SET", HIDMacros.GetBuffer
0
FSX
setVSpos
38
down
SCR
HIDMacros.FSXEvent "AP_VS_VAR_SET_ENGLISH", HIDMacros.GetBuffer
0
FSX
SetVSneg
40
down
SCR
HIDMacros.FSXEvent "AP_VS_VAR_SET_ENGLISH", -HIDMacros.GetBuffer
0
FSX
ComSwap
113
down
SIMC
COM_STBY_RADIO_SWAP
0
FSX
Nav1Swap
121
down
SIMC
NAV1_RADIO_SWAP
0
FSX
Nav2Swap
123
down
SIMC
NAV2_RADIO_SWAP
0
FSX
Pump1
75
down
SIMC
TOGGLE_ELECT_FUEL_PUMP1
0
FSX
Pump2
76
down
SIMC
TOGGLE_ELECT_FUEL_PUMP2
0
FSX
OverHead
50
down
SCR
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "EC135"
HIDMacros.FSXEvent "PANEL_1", 0
Case "at72"
HIDMacros.FSXEvent "PANEL_4", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
HUD
87
down
SCR
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "EC135"
HIDMacros.FSXEvent "PANEL_2", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
EFIS
81
down
SCR
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "EC135"
HIDMacros.FSXEvent "PANEL_4", 0 ' trim panel
Case "at72"
HIDMacros.FSXEvent "PANEL_7", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
EnginePanel
65
down
SCR
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "at72"
HIDMacros.FSXEvent "PANEL_5", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
FMSpanel
82
down
SCR
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "at72"
HIDMacros.FSXEvent "PANEL_3", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
ThrottleQpanel
68
down
SCR
select case HIDMacros.GetFSXVariable("ATC MODEL")
Case "at72"
HIDMacros.FSXEvent "PANEL_6", 0
Case Else
HIDmacros.FSXText(HIDMacros.GetFSXVariable("ATC MODEL"))
end select
0
FSX
Xpltest
77
down
SCR
var = HIDmacros.GetXplVariable("sim/aircraft/view/acf_tailnum")
HIDmacros.Debug("Tail "&var)
var = HIDmacros.GetXplVariable("sim/flightmodel/controls/wing1l_fla1def")
HIDmacros.Debug("Flaps "&var)
var = HIDmacros.GetXplVariable("sim/cockpit/gyros/psi_vac_ind_degm")
HIDmacros.Debug("Heading "&var)
var = HIDmacros.GetXplVariable("sim/cockpit/radios/nav1_freq_hz")
HIDmacros.Debug("Nav1 "&var)
var = HIDmacros.GetXplArrayItem("sim/cockpit/engine/fuel_pump_on", -2)
HIDmacros.Debug("Fuel pump size "&var)
var = HIDmacros.GetXplArrayItem("sim/cockpit/engine/fuel_pump_on", 0)
HIDmacros.Debug("Fuel pump 1 "&var)
var = HIDmacros.GetXplArrayItem("sim/cockpit/engine/fuel_pump_on", 1)
HIDmacros.Debug("Fuel pump 2 "&var)
0
FSX
XplSet
188
down
SCR
Ahoj
HIDmacros.SetXplVariable "sim/cockpit/radios/nav1_freq_hz", 11130
HIDmacros.SetXplVariable "sim/aircraft/view/acf_tailnum", "PETA"
HIDmacros.SetXplVariable "sim/cockpit2/autopilot/heading_dial_deg_mag_pilot", 190
HIDmacros.SetXplArrayItem "sim/cockpit/engine/fuel_pump_on", 1, 0
0
Saitek X52 Flight Controller
buttonTest
1
down
SCR
a
HIDMacros.SetBuffer(HIDMacros.GetAxis("Saitek X52 Flight Controller", "X"))
0
FSX
RTrimR
34
down
SIMC
RUDDER_TRIM_RIGHT
0
FSX
RTrimL
46
down
SIMC
RUDDER_TRIM_LEFT
0
FSX
ATrimL
45
down
SIMC
AILERON_TRIM_LEFT
0
FSX
ATrimR
33
down
SIMC
AILERON_TRIM_RIGHT
0