english VBScript Dim Mode Mode = "HDG" HIDMacros.RegisterFSXVariable "PLANE HEADING DEGREES MAGNETIC", "degrees" HIDMacros.RegisterFSXVariable "AUTOPILOT HEADING LOCK DIR", "degrees" HIDMacros.RegisterFSXVariable "NAV OBS:1", "degrees" 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 0 0 0 10 FSX \\?\HID#VID_04FC&PID_05D8&MI_00#9&819152C&0&0000#{884B96C3-56EF-11D1-BC8C-00A0C91405DD} Kbd2 \\?\HID#VID_09DA&PID_024F&MI_00#9&1273E9FF&0&0000#{884B96C3-56EF-11D1-BC8C-00A0C91405DD} Kbd3 \\?\HID#VID_04D9&PID_1400&MI_00#8&11BBF594&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_09DA&PID_024F&MI_01&COL01#9&BC323F&0&0000#{378DE44C-56EF-11D1-BC8C-00A0C91405DD} Mouse3 \\?\HID#VID_04D9&PID_1400&MI_01&COL01#8&121B482E&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}{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 Land 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 call SetHdgCrs(0) 0 0 FSX SetHDG 111 down SCR Mode = "HDG" 0 FSX SetCrs 106 down SCR Mode = "CRS" 0 FSX H45 105 down SCR call SetHdgCrs(45) 0 FSX H90 102 down SCR call SetHdgCrs(90) 0 FSX H135 99 down SCR call SetHdgCrs(135) 0 FSX H180 98 down SCR call SetHdgCrs(180) 0 FSX H225 97 down SCR call SetHdgCrs(225) 0 FSX H270 100 down SCR call SetHdgCrs(270) 0 FSX H315 103 down SCR call SetHdgCrs(315) 0 FSX CurrHdg 101 down SCR Dim CurHdg CurHdg = HIDMacros.GetFSXVariable("PLANE HEADING DEGREES MAGNETIC") call SetHdgCrs(Round(CurHdg)) 0 FSX ParkingBrake 32 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 0 FSX AP 51 down SIMC PANEL_3 0 FSX RadioStack 69 down SIMC PANEL_2 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 SIMC PANEL_4 0 FSX Eng1Rich 54 down SIMC MIXTURE1_RICH 0 FSX Eng1Lean 89 down SIMC MIXTURE1_LEAN 0 FSX Eng2Rich 55 down SIMC MIXTURE2_RICH 0 FSX Eng2Lean 85 down SIMC MIXTURE2_LEAN 0