-- 14.05.18/AH Flysimware Learjet Yaw Damper Power toggle
-- 23.07.23/AH Ein Toggle für beide Yaw Damper, damit Schalter frei für Bodytank-XFER 
-- 23.07.23/AH Ich hab die Fuselage-Pump bereits auf TQ, daher alles wieder zurückgenommen,
--				die heute eingebauten Funktionen "Toggle both" lasse ich aber drin. Sound von SND2 auf SND32 geändert
--
-- Wie habe ich diese Schaltkombination gefunden ? 
-- Learjet_35A_interior.MDL im Subfolder model.MAIN durchsucht, dort stehen nicht nur Hex-Werte, sondern auch Script-Teile.
-- So findet sich in if-Statements die LVAR PWR_PRI_LT neben der bekannten LVAR YAW_PRI_PWR
--
-- Die Funktion YAW DAMPER ENGAGE könnte auch direkt mit den FSUIPC-Funktionen aus dem Flysimware-Manual ausgeführt werden,
-- G1000_MFD_SOFTKEY4 = Yaw Damper Primary (Power mode must be on.)
-- G1000_MFD_SOFTKEY5 = Yaw Damper Secondary (Power mode must be on.)

-- ipcPARAM = 1 : Toggle YAW PRI POWER
-- ipcPARAM = 2 : Toggle YAW SEC POWER
-- ipcPARAM = 3 : Toggle both: YAW PRI + SEC POWER
-- ipcPARAM = 4 : Toggle both: YAW PRI + SEC ENGAGE

--
-- ipcPARAM = 1 : Toggle YAW PRI POWER
--
if ipcPARAM == 1 then
  yawpower=ipc.readLvar("L:YAW_PRI_PWR")
  if yawpower == 0 then
    ipc.writeLvar("L:YAW_PRI_PWR",1)	-- Switch Yaw Primary Power on
    ipc.writeLvar("L:PWR_PRI_LT",1)		-- Switch Yaw Primary Power Lamp on
  else	
    ipc.writeLvar("L:YAW_PRI_PWR",0)	-- Switch Yaw Primary Power off
    ipc.writeLvar("L:PWR_PRI_LT",0)		-- Switch Yaw Primary Power Lamp off
  end
  ipc.writeLvar("L:XMLSND32",1)  --switch sound
  return
--
-- ipcPARAM = 2 : Toggle YAW SEC POWER
--
elseif ipcPARAM == 2 then
  yawpower=ipc.readLvar("L:YAW_SEC_PWR")
  if yawpower == 0 then
    ipc.writeLvar("L:YAW_SEC_PWR",1)	-- Switch Yaw Secondary Power on
    ipc.writeLvar("L:PWR_SEC_LT",1)		-- Switch Yaw Secondary Power Lamp on
  else	
    ipc.writeLvar("L:YAW_SEC_PWR",0)	-- Switch Yaw Secondary Power off
    ipc.writeLvar("L:PWR_SEC_LT",0)		-- Switch Yaw Secondary Power Lamp off
  end
  ipc.writeLvar("L:XMLSND32",1)  --switch sound
  return

--
-- ipcPARAM = 3 : Toggle both: YAW PRI + SEC POWER
--
elseif ipcPARAM == 3 then
  yawpowerp=ipc.readLvar("L:YAW_PRI_PWR")
  yawpowers=ipc.readLvar("L:YAW_SEC_PWR")
-- if one of both is on: switch both off, else switch both on
  if ( (yawpowerp ~= 0) or (yawpowers ~= 0) ) then
-- Process YAW PRI POWER  
	if yawpowerp ~= 0 then
      ipc.writeLvar("L:XMLSND32",1)		-- switch sound for PRI
	end
-- in any case set PRI LVARs to zero
    ipc.writeLvar("L:YAW_PRI_PWR",0)	-- Switch Yaw Primary Power off
    ipc.writeLvar("L:PWR_PRI_LT",0)		-- Switch Yaw Primary Power Lamp off
-- Process YAW SEC POWER  
	if yawpowers ~= 0 then
-- only if PRI PWR has to be switched before: wait a short moment
	  if yawpowerp ~= 0 then
	    ipc.sleep(400)
	  end
      ipc.writeLvar("L:XMLSND32",1)	-- switch sound for SEC if PRI was switched before
	end
-- in any case set SEC LVARs to zero
    ipc.writeLvar("L:YAW_SEC_PWR",0)	-- Switch Yaw Secondary Power off
    ipc.writeLvar("L:PWR_SEC_LT",0)	-- Switch Yaw Secondary Power Lamp off
  else
-- Both YAW PWR are zero and have to be switched on
-- Process YAW PRI POWER  
    ipc.writeLvar("L:XMLSND32",1)  		-- switch sound for PRI
    ipc.writeLvar("L:YAW_PRI_PWR",1)	-- Switch Yaw Primary Power on
    ipc.writeLvar("L:PWR_PRI_LT",1)		-- Switch Yaw Primary Power Lamp on
	ipc.sleep(400)
-- Process YAW SEC POWER  
    ipc.writeLvar("L:XMLSND32",1)  		-- switch sound for SEC
    ipc.writeLvar("L:YAW_SEC_PWR",1)	-- Switch Yaw Secondary Power on
    ipc.writeLvar("L:PWR_SEC_LT",1)		-- Switch Yaw Secondary Power Lamp on
  end
  return
--
-- ipcPARAM = 4 : Toggle both: YAW PRI + SEC ENGAGE
--
elseif ipcPARAM == 4 then
  yawengp=ipc.readLvar("L:YAW_PRI_ON")
  yawengs=ipc.readLvar("L:YAW_SEC_ON")
-- if one of both is engaged: switch both off, else switch both on
  if ( (yawengp ~= 0) or (yawengs ~= 0) ) then
-- Process YAW PRI ENGAGE
	if yawengp ~= 0 then
      ipc.writeLvar("L:XMLSND32",1)		-- switch sound for PRI
	end
-- in any case set PRI LVARs to zero
    ipc.writeLvar("L:YAW_PRI_ON",0)		-- Switch Yaw Primary Engage off
    ipc.writeLvar("L:YAW_PRI_LT",0)		-- Switch Yaw Primary Engage Lamp off
-- Process YAW SEC ENGAGE
	if yawengs ~= 0 then
-- only if PRI PWR has to be switched before: wait a short moment
	  if yawengp ~= 0 then
	    ipc.sleep(400)
	  end
      ipc.writeLvar("L:XMLSND32",1)		-- switch sound for SEC if PRI was switched before
	end  
-- in any case set SEC LVARs to zero
    ipc.writeLvar("L:YAW_SEC_ON",0)		-- Switch Yaw Secondary Engage off
    ipc.writeLvar("L:YAW_SEC_LT",0)		-- Switch Yaw Secondary Engage Lamp off
  else	
-- Engage only if Yaw Damper Power on  
    yawpowerp=ipc.readLvar("L:YAW_PRI_PWR")
    yawpowers=ipc.readLvar("L:YAW_SEC_PWR")
-- Both YAW ENG are zero and have to be switched on
    if yawpowerp == 1 then
-- Process YAW PRI ENGAGE
      ipc.writeLvar("L:XMLSND32",1)		-- switch sound for PRI
      ipc.writeLvar("L:YAW_PRI_ON",1)	-- Switch Yaw Primary Engage on
      ipc.writeLvar("L:YAW_PRI_LT",1)	-- Switch Yaw Primary Engage Lamp on
	end
    if yawpowers == 1 then
-- Process YAW SEC ENGAGE
   	  ipc.sleep(400)					-- wait a short moment
      ipc.writeLvar("L:XMLSND32",1)		-- switch sound for PRI
      ipc.writeLvar("L:YAW_SEC_ON",1)	-- Switch Yaw Secondary Engage on
      ipc.writeLvar("L:YAW_SEC_LT",1)	-- Switch Yaw Secondary Engage Lamp on
	end
  end
  return
-- 
end