-- 23.03.18/AH  Flysimware Learjet 35A Controls: Pitot/Windshield Switch
-- 	Parm 1 = Toggle Beide Pitot
--  Parm 2 = Toggle Windshield/Radome
--  Parm 3 = Toggle Nacelle + Wing/Stab Heat on

--
-- Toggle Pitot switches
--
if ipcPARAM == 1 then
  PitotLeft=ipc.readLvar("L:PITOT_L")  -- Left Pitot bestimmt Status
  if PitotLeft == 1 then
        ipc.writeLvar("L:PITOT_L",0)   --turn left pitot heat off
		ipc.writeLvar("L:XMLSND70",1)  --switch sound
		ipc.sleep(300)   
        ipc.writeLvar("L:PITOT_R",0)   --turn right pitot heat off	
		ipc.writeLvar("L:XMLSND70",1)  --switch sound
  else		
        ipc.writeLvar("L:PITOT_L",1)   --turn left pitot heat on
		ipc.writeLvar("L:XMLSND70",1)  --switch sound
		ipc.sleep(300)   
        ipc.writeLvar("L:PITOT_R",1)   --turn right pitot heat on	
		ipc.writeLvar("L:XMLSND70",1)  --switch sound  
  end  
  return
--
-- Toggle Windshield/Radome Heat
--
elseif ipcPARAM == 2 then
  WshldHeat=ipc.readLvar("L:WSHLD_HEAT")  -- Windshield Heat bestimmt Status
  if WshldHeat == 1 then
        ipc.writeLvar("L:WSHLD_HEAT",-1)   --turn wshld heat on		
		ipc.writeLvar("L:XMLSND70",1)  --switch sound
		ipc.sleep(300)   
        ipc.writeLvar("L:WSHLD_RADOME",-1)   --turn wshld heat on			
		ipc.writeLvar("L:XMLSND70",1)  --switch sound
  else
        ipc.writeLvar("L:WSHLD_HEAT",1)   --turn wshld heat off		
		ipc.writeLvar("L:XMLSND70",1)  --switch sound
		ipc.sleep(300)   
        ipc.writeLvar("L:WSHLD_RADOME",1)   --turn wshld heat off			
		ipc.writeLvar("L:XMLSND70",1)  --switch sound
  end
  return
--
-- Toggle Nacelle/Wing-Stab Heat
--
elseif ipcPARAM == 3 then
  nacheatl=ipc.readLvar("L:NACHEAT_L")	-- get state left nacelle heat 
  nacheatr=ipc.readLvar("L:NACHEAT_R")	-- get state left nacelle heat 
  wingheat=ipc.readLvar("L:WING_HEAT")	-- get state Wing/Stab heat
-- if all are on, switch all off
  if (nacheatl > 0 and nacheatr > 0 and wingheat > 0) then
    ipc.writeLvar("L:NACHEAT_L",0)   --turn left nacelle heat off
    ipc.writeLvar("L:XMLSND70",1)  --switch sound
    ipc.sleep(200)   
    ipc.writeLvar("L:NACHEAT_R",0)   --turn right nacelle heat off	
    ipc.writeLvar("L:XMLSND70",1)  --switch sound
    ipc.sleep(400)   
    ipc.writeLvar("L:WING_HEAT",0)   --turn wing heat on				
    ipc.writeLvar("L:XMLSND70",1)  --switch sound
-- one ore more not on, switch all on
  else	
    if nacheatl < 1 then
      ipc.writeLvar("L:NACHEAT_L",1)   --turn left nacelle heat on
	  ipc.writeLvar("L:XMLSND70",1)  --switch sound
	  ipc.sleep(200)   
	end  
    if nacheatr < 1 then
      ipc.writeLvar("L:NACHEAT_R",1)   --turn right nacelle heat on	
	  ipc.writeLvar("L:XMLSND70",1)  --switch sound
	  ipc.sleep(400)   
    end
    if wingheat < 1 then
 	  ipc.writeLvar("L:WING_HEAT",1)   --turn wing heat on				
	  ipc.writeLvar("L:XMLSND70",1)  --switch sound
    end
  end
  return
end