local appName="Assist Sprachassistent" 
local appDescription1="1. Funktion+Geberzuordnung (Gyroempf.)" 
local appDescription3="2. Weise die Funktionen der Gyros zu" 
local appDescription41="3. Lege Gyroempf. 1 fest (Kanal) " 
local appDescription42="    Lege Gyroempf. 2 fest (Kanal) " 
local appDescription43="    Lege Gyroempf. 3 fest (Kanal) " 
local appDescription5="4. Zuordnung des Proportionalgebers" 
local appDescription6="     G1,G2,G3 Der Empfindlichkeit in Prozent" 
local ctrlOutCreated
local servoNumber

local function servoNumber1Changed(value)
  servoNumber1=value
  system.pSave("_F2C_servoNumber1",value)
end

local function servoNumber2Changed(value)
  servoNumber2=value
  system.pSave("_F2C_servoNumber2",value)
end

local function servoNumber3Changed(value)
  servoNumber3=value
  system.pSave("_F2C_servoNumber3",value)
end

local function initForm(subform)
  form.addLabel({label=appDescription1})
  form.addLabel({label=appDescription3})
  form.addRow(2)
  form.addLabel({label=appDescription41, width=240})
  form.addIntbox (servoNumber1, 1, 24, 16,0, 1, servoNumber1Changed)
  form.addRow(2)
  form.addLabel({label=appDescription42, width=240})
  form.addIntbox (servoNumber2, 1, 24, 16,0, 1, servoNumber2Changed)
  form.addRow(2)
  form.addLabel({label=appDescription43, width=240})
  form.addIntbox (servoNumber3, 1, 24, 16,0, 1, servoNumber3Changed)
  form.addLabel({label=appDescription5})
  form.addLabel({label=appDescription6})
end


-- Init function
local function init() 
  system.registerForm(1,MENU_ADVANCED,appName,initForm) 

  servoNumber1 = system.pLoad("_F2C_servoNumber1")
  if (not servoNumber1) then
    servoNumber1 = 14
    system.pSave("_F2C_servoNumber1",value)
  end

  servoNumber2 = system.pLoad("_F2C_servoNumber2")
  if (not servoNumber2) then
    servoNumber2 = 15
    system.pSave("_F2C_servoNumber2",value)
  end

  servoNumber3 = system.pLoad("_F2C_servoNumber3")
  if (not servoNumber3) then
    servoNumber3 = 16
    system.pSave("_F2C_servoNumber3",value)
  end
  
--  local ctrlNumber = 1
--  while (not ctrlOutCreated) do
--    ctrlOutCreated = system.registerControl(ctrlNumber, "Butterfly via servo output","BFL")
--    ctrlNumber = ctrlNumber + 1
--  end

-- Use fixed control numbers, might collide with other scripts, but ensures control always is on the specific number and not dependant on script loading order.
  ctrlOut1Created = system.registerControl(2, "Gyro-Empfindlichkeit 1","G1")
  ctrlOut2Created = system.registerControl(3, "Gyro-Empfindlichkeit 2","G2")
  ctrlOut3Created = system.registerControl(4, "Gyro-Empfindlichkeit 3","G3")
end

-- Loop function
local function loop()   
  if(ctrlOut1Created and servoNumber1) then
    system.setControl(ctrlOut1Created, system.getInputs("O"..servoNumber1) ,0,0)
  end
  if(ctrlOut2Created and servoNumber2) then
    system.setControl(ctrlOut2Created, system.getInputs("O"..servoNumber2) ,0,0)
  end
  if(ctrlOut3Created and servoNumber3) then
    system.setControl(ctrlOut3Created, system.getInputs("O"..servoNumber3) ,0,0)
  end

end

return { init=init, loop=loop, author="Thorn fuers JetiForum.de", version="1.00",name=appName}