print(string.format("############ CoPilotFunctions - PLANE_ICAO: %s",  PLANE_ICAO))

-- default TCAS selector mode [N]ormal
local MODE = "N"

local LandingLightsOff = false
local LandingLightsOn  = false

local SoundLevel = 0.2

local Pass10KLightsOn_Sound  = load_WAV_file(SCRIPT_DIRECTORY .. "vSpeed_Sounds/Pass10000LightsOn.wav")
local Pass10KLightsOff_Sound = load_WAV_file(SCRIPT_DIRECTORY .. "vSpeed_Sounds/Pass10000LightsOff.wav")

set_sound_gain(Pass10KLightsOn_Sound,  SoundLevel)
set_sound_gain(Pass10KLightsOff_Sound, SoundLevel)

-- ToLiss Airbus & FF A359 only // temporarily disabled A350 pending clarification of datarefs
-- if PLANE_ICAO == "A319" or PLANE_ICAO == "A20N" or PLANE_ICAO == "A321" or PLANE_ICAO == "A359" then
if PLANE_ICAO == "A319" or PLANE_ICAO == "A20N" or PLANE_ICAO == "A321"  or PLANE_ICAO == "A339" then
	dataref( "iAS",  "sim/cockpit2/gauges/indicators/airspeed_kts_pilot", "readonly")
	dataref( "iALT", "sim/cockpit2/gauges/indicators/altitude_ft_pilot",  "readonly")
	dataref( "VSI",  "sim/cockpit2/gauges/indicators/vvi_fpm_pilot",      "readonly")
	dataref( "iGS",  "sim/flightmodel/position/groundspeed",              "readonly")
	dataref( "TGT",  "sim/cockpit/autopilot/altitude",                    "readonly")
	dataref( "TCAS", "AirbusFBW/XPDRTCASMode",	    				      "readonly")
	dataref( "BEACON",   "sim/cockpit2/switches/beacon_on",               "readonly")
	dataref( "ENG_MODE", "AirbusFBW/ENGModeSwitch",					      "readonly")
	dataref( "XPONDER",  "AirbusFBW/XPDRPower",      		              "readonly")
	dataref( "WEATHER",  "AirbusFBW/WXPowerSwitch",                       "readonly")

	LIGHTS = dataref_table("AirbusFBW/OHPLightSwitches") -- array of lights - beacon, strobe, etc

	-- switch MKR off:
	set("sim/cockpit2/radios/actuators/audio_marker_enabled", 0)
	
	do_every_frame("main()")
end

function main()
	set_landing_lights()
	set_beacon()
	set_strobe()
	-- A359 doesn't need manual TCAS mode selector
	if PLANE_ICAO ~= "A359" then
		set_transponder()
		set_tcas_mode_selector()
	end
end

function log_msg(str) -- custom log function
	local temp = os.date("*t", os.time())
	print(string.format("CoPilotFunctions: %02d:%02d:%02d %s", temp.hour, temp.min, temp.sec, str))
end

-- set strobe & landing lights on if thrust levers in FLX or TOGA position and on the ground 
function set_strobe()
    local TLA = XPLMGetDatavf(XPLMFindDataRef("AirbusFBW/throttle_input"), 0, 1)
    local iThrustLevers = TLA[0] -- thrust levers (left lever representing both)
		--log_msg("iThrustLevers: " .. iThrustLevers)

	local sThrustLevers = "IDLE"
	if math.abs(iThrustLevers - 0.88) < 0.05
		then sThrustLevers = "FLX"
    elseif math.abs(iThrustLevers - 1.0) < 0.05
		then sThrustLevers = "TOGA"
	end
		--log_msg("sThrustLevers: " .. sThrustLevers)
	local on_ground = XPLMFindDataRef("sim/flightmodel/forces/fnrml_gear")
	if XPLMGetDataf(on_ground) > 1.0 then iOnGround = 1 else iOnGround = 0 end

	if ( sThrustLevers == "FLX" or sThrustLevers == "TOGA" ) and iOnGround == 1 then
		if ( not StrobeOn ) then
			LIGHTS[7] = 2 -- array position 8
			-- these only move switches, FSFK doesn't detect it
			-- set("sim/cockpit2/switches/strobe_lights_on", 1) -- 1=on 0=off
			-- set("sim/cockpit/electrical/strobe_lights_on, 1) # alternative
			-- set("ckpt/oh/strobeLight/anim", 2) -- 2=on, 1=auto, 0=off
			StrobeOn = true
		end
		-- LandingLightsOn is likely to be false if on ground
		if ( not LandingLightsOn ) then
			switch_landing_lights_on()
		end
	end
end

-- beacon on if engine mode selector to ign/start and beacon not already on
function set_beacon()
	--log_msg("ENG_MODE" .. ENG_MODE)
	--log_msg("BEACON" .. BEACON)
	if ENG_MODE == 2 and BEACON ~= 1 then		
		LIGHTS[0] = 1 -- Beacon on [array position 0]
	end
end

-- set transponder to mode C if moving > 5kts
function set_transponder()
	gs = iGS * 1.9438445 -- ground speed [kts]

	if gs > 1 then
		if XPONDER ~= 4 then
			-- set("ckpt/transponder/mode/anim", 0) -- sets switch but not ECAM display	
			set("AirbusFBW/XPDRPower", 4)
		end
		if TCAS ~= 1 then
			set("AirbusFBW/XPDRTCASMode", 1)
		end
		if WEATHER ~= 0 then
			set("AirbusFBW/WXPowerSwitch", 0)
		end
	end
end

function set_taxi_lights(val) -- 0=off, 1=on, 2=take-off
	if (PLANE_ICAO == "A339") then -- doesn't have ckpt/oh/taxiLight/anim, uses AirbusFBW/OHPLightSwitches, 
		LIGHTS[3] = val
	else -- TODO ? combine with A339 ?
		set("ckpt/oh/taxiLight/anim", val)
	end
end

function set_landing_lights()
	-- switch lights off if passing 10K ft and climbing and not already off
	if ( math.floor(iALT) >= 10001 ) and ( math.floor(iALT) <= 10010 ) and ( math.floor(VSI) ) > 0 and ( not LandingLightsOff ) then
		switch_landing_lights_off()
		set_taxi_lights(0)
		play_sound(Pass10KLightsOff_Sound)
	end

	-- switch lights on if passing 10K ft and descending and not already on
	if ( math.floor(iALT) <= 9999 ) and ( math.floor(iALT) >= 9990 ) and ( math.floor(VSI) < 0 ) and ( not LandingLightsOn ) then
		switch_landing_lights_on()
		set_taxi_lights(1)
		play_sound(Pass10KLightsOn_Sound)
	end
end

function switch_landing_lights_off()
	--if PLANE_ICAO == "A319" or PLANE_ICAO == "A20N" or PLANE_ICAO == "A321" or PLANE_ICAO == "A21N" then
		--0=retract, 1=off, 2=on
		LIGHTS[4] = 1   -- Left landing off //  position 5 in array,
		if ( not PLANE_ICAO == "A339" ) then -- A339 only has 1 switch
			LIGHTS[5] = 1   -- Right landing off // position 6 in array, 0=retract,1=off,2=on
		end
	--elseif PLANE_ICAO == "A359" then // doesn't work
		-- 0=off [A3xx & A359] & retract [A3xx only], 1=on
		-- LIGHTS[0] = 0   -- Left landing off
		-- LIGHTS[1] = 0   -- Right landing off
	--end

	LandingLightsOff = true
	LandingLightsOn  = false
	log_msg("switched landing lights off")
end

function switch_landing_lights_on()
	--if PLANE_ICAO == "A319" or PLANE_ICAO == "A20N" or PLANE_ICAO == "A321" or PLANE_ICAO == "A21N" then
		--0=retract, 1=off, 2=on
		LIGHTS[4] = 2   -- Left landing on
		if ( not PLANE_ICAO == "A339" ) then -- A339 only has 1 switch
			LIGHTS[5] = 2   -- Right landing on
		end
	--elseif PLANE_ICAO == "A359" then // doesn't work
		-- 0=off [A3xx & A359] & retract [A3xx only], 1=on
		-- LIGHTS[0] = 1   -- Left landing on  // position 1 in array, 
		-- LIGHTS[1] = 1   -- Right landing on // position 2 in array
	--end
	
	LandingLightsOn  = true
	LandingLightsOff = false
	log_msg("switched landing lights on")
end

function set_tcas_mode_selector()
	-- if we are moving >50kts
	if math.floor(iAS) > 50 then
		-- if below TGT altitude by more than 100 feet and climbing with vertical rate > +100fpm, set mode to ABV if not already:
		if math.floor(iALT) < ( TGT - 100 ) and math.floor(VSI) > 100 then
			if MODE ~= "ABV" then
				MODE = "ABV"
				set("AirbusFBW/XPDRTCASAltSelect", 0)
				log_msg( string.format("%.0f", iALT) .. "ft set TCAS mode ABV")
			end
		-- if above TGT altitude and decending with vertical rate > -100fpm, set mode to BLW if not already
		elseif math.floor(iALT) > ( TGT + 100 ) and math.floor(VSI) < -100 then
			if MODE ~= "BLW" then
				MODE = "BLW"
				set("AirbusFBW/XPDRTCASAltSelect", 2)
				log_msg( string.format("%.0f", iALT) .. "ft set TCAS mode BLW")
			end
		-- else vertical speed between +100 & -100 fpm, set mode to position 'N'
		elseif ( MODE ~= "N" ) then
			MODE = "N"
			set("AirbusFBW/XPDRTCASAltSelect", 1)
			log_msg( string.format("%.0f", iALT) .. "ft set TCAS mode N")
		end
	end
end

--[[ todo:
	set taxi & r/w turnoff lights on if >500ft and gear down [AirbusFBW/GearLever = ?]
-]]