*** FR-SKY TARANIS *** Mega thread

--[[
   LUA telemetry script for F5J training

   Displays the altitude at engine cut-off, 10s after that, and max reached during the flight
   Displays the remaining work time, remaining engine time and the flight time

   If the engine is used more that 30s or twice in the same flight, the flight is declared invalid
   (a badflight.wav file can be used to signal this with audio)

   Switch F is used to signal the end of the flight and stop the timers (up) then reset everything (down)

   Customization (look for numbers in the code):
   (1) CH1 is used for the throttle
   (2) The value where the throttle is meant to be active (defaults to -1024)
   (3) Switch F is used to end (up) then reset (down) the flight
   (4) Language for the sounds (for the texts, change the texts in the drawDashboard() and drawFault() functions)

   Mike, ON4MJ
--]]


--
-- Timer class
--   (this is generic, and will have to be modified in 2.0.13+ where the setTimer() bug is fixed)
-- Precondition: timerId is either 0 or 1
--
local function createTimer( timerId, startValue )
   local id = timerId
   local timer = model.getTimer( id )

   local function setTimerWA() -- work-around for the difference in parameters of setTimer() compared to the return of getTimer()
      local t = {
         mode=timer.mode, start=timer.start, value=timer.value, countdownBeep=timer.countdownBeep,
         minuteBeep = timer.minuteBeep and 1 or 0,
         persistent = timer.persistent and 1 or 0
      }
      model.setTimer( id, t )
   end


   local function getVal()
      timer.value = model.getTimer( id ).value
      return timer.value
   end

   local function start()
      timer.mode = 1
      setTimerWA()
   end

   local function stop()
      timer = model.getTimer( id )
      timer.mode = 0
      setTimerWA()
      return timer.value
   end

   local function reset()
      timer.value = timer.start
      setTimerWA()
   end

   local function draw( x, y, att )
      local val = getVal()
      lcd.drawTimer( x, y, val, att )
      return val
   end



   if startValue then
      timer.start = startValue
      reset()
   end

   return {
      start = start,
      stop = stop,
      reset = reset,
      draw = draw,
      getVal = getVal
   }
end


-- F5J stuff

local SOUND_PATH = '/SOUNDS/EN/'      -- (4)

local THROTTLE_MIN = -1020         -- (2) (normally -1024)
local THR = getFieldInfo( 'ch1' ).id       -- (1)
local ALT = getFieldInfo( 'altitude' ).id
local SF = getFieldInfo( 'sf' ).id       -- (3)


local alt = 0
local alt10 = 0
local max = 0
local state = 1 -- 1=reset; 2=launch; 3=cutoff; 4=glide; 5=landed; 6=disqualify


local timer1 = createTimer( 0, 600 )   -- flight time
local timer2 = createTimer( 1, 30 )   -- engine time
local time3 = 0


local function vocalEnabled()
   return true
end

local function handleMax()
   local a = getValue( ALT )
   if a > max then
      max = a
   end
   return a
end

local function disqualify()
   if vocalEnabled() then
      playFile( SOUND_PATH .. 'badflight.wav' )
   end
   timer2.stop()
   timer1.stop()
   state = 6
end

local function checkThrottle()
   if getValue( THR ) > THROTTLE_MIN then
      disqualify()
   end
end

local function checkReset()
   if getValue( SF ) < 0 then
      timer2.stop()
      timer1.stop()
      timer2.reset()
      timer1.reset()
      time3 = 0

      alt = 0
      alt10 = 0
      max = 0

      state = 1
      return true
   end
   return false
end

local function checkEnd()
   return (getValue( SF ) > 0)
end




-- state transition functions

local function resetState()
   -- wait for take-off
   if getValue( THR ) > THROTTLE_MIN then
      timer2.start()
      timer1.start()
      state = 2
   end
end

local function launchState()
   -- wait for the motor cut
   if getValue( THR ) <= THROTTLE_MIN then
      timer2.stop()
      alt = getValue( ALT )
      max = alt
      if vocalEnabled() then
         playNumber( alt, 6, 0 )
      end
      state = 3
   elseif timer2.getVal() < 0 then
      disqualify()
   end
end

local function cutoffState()
   local a = handleMax()

   -- wait for the 10s end
   if (time3 - (30 - timer2.getVal())) >= 10 then
      alt10 = a
      if vocalEnabled() then
         playNumber( alt10, 6, 0 )
      end
      state = 4
   else
      checkThrottle()
   end
end

local function glideState()
   handleMax()

   -- wait for the end of flight
   if checkEnd() then
      timer2.stop()
      timer1.stop()
      state = 5
   else
      checkThrottle()
   end
end

local function landedState()
   -- wait for reset
   checkReset()
end

local function disqualifyState()
   -- wait for end
   if checkEnd() then
      state = 5
   end
end




local functions = { resetState, launchState, cutoffState, glideState, landedState, disqualifyState }

function background()
   time3 = 600 - timer1.getVal()
   functions[ state ]()
end



local function drawDashboard()
   lcd.drawFilledRectangle( 0, 23, 212, 18, 0 )

   lcd.drawText( 4, 4, "Alt cut:", MIDSIZE )
   lcd.drawNumber( 64, 4, alt, MIDSIZE+LEFT )
   lcd.drawText( lcd.getLastPos(), 4, "m", 0 )

   lcd.drawText( 4, 26, "Alt 10s:", MIDSIZE+INVERS )
   lcd.drawNumber( 64, 26, alt10, MIDSIZE+LEFT+INVERS )
   lcd.drawText( lcd.getLastPos(), 26, "m", INVERS )
   
   lcd.drawText( 4, 48, "Alt max:", MIDSIZE )
   lcd.drawNumber( 64, 48, max, MIDSIZE+LEFT )
   lcd.drawText( lcd.getLastPos(), 48, "m", 0 )
   
   lcd.drawText( 120, 4, "Work:", MIDSIZE )
   timer1.draw( 174, 4, MIDSIZE )

   lcd.drawText( 120, 26, "Engine:", MIDSIZE+INVERS )
   timer2.draw( 174, 26, MIDSIZE+INVERS )

   lcd.drawText( 120, 48, "Flight:", MIDSIZE )
   lcd.drawTimer( 174, 48, time3, MIDSIZE )
end


local function drawFault()
   lcd.drawRectangle( 4, 4, 204, 56 )
   lcd.drawText( 40, 25, "INVALID FLIGHT", DBLSIZE+BLINK )
end


local function run()
   background()

   if state < 6 then
      drawDashboard()
   else
      drawFault()
   end
end

return {background=background, run=run}

--[[
   LUA telemetry script for F5J training

   Displays the altitude at engine cut-off, 10s after that, and max reached during the flight
   Displays the remaining work time, remaining engine time and the flight time

   If the engine is used more that 30s or twice in the same flight, the flight is declared invalid
   (a badflight.wav file can be used to signal this with audio)

   Switch F is used to signal the end of the flight and stop the timers (up) then reset everything (down)

   Customization (look for numbers in the code):
   (1) CH1 is used for the throttle
   (2) The value where the throttle is meant to be active (defaults to -1024)
   (3) Switch F is used to end (up) then reset (down) the flight
   (4) Language for the sounds (for the texts, change the texts in the drawDashboard() and drawFault() functions)

   Mike, ON4MJ
--]]


--
-- Timer class
--   (this is generic, and will have to be modified in 2.0.13+ where the setTimer() bug is fixed)
-- Precondition: timerId is either 0 or 1
--
local function createTimer( timerId, startValue )
   local id = timerId
   local timer = model.getTimer( id )

   local function setTimerWA() -- work-around for the difference in parameters of setTimer() compared to the return of getTimer()
      local t = {
         mode=timer.mode, start=timer.start, value=timer.value, countdownBeep=timer.countdownBeep,
         minuteBeep = timer.minuteBeep and 1 or 0,
         persistent = timer.persistent and 1 or 0
      }
      model.setTimer( id, t )
   end


   local function getVal()
      timer.value = model.getTimer( id ).value
      return timer.value
   end

   local function start()
      timer.mode = 1
      setTimerWA()
   end

   local function stop()
      timer = model.getTimer( id )
      timer.mode = 0
      setTimerWA()
      return timer.value
   end

   local function reset()
      timer.value = timer.start
      setTimerWA()
   end

   local function draw( x, y, att )
      local val = getVal()
      lcd.drawTimer( x, y, val, att )
      return val
   end



   if startValue then
      timer.start = startValue
      reset()
   end

   return {
      start = start,
      stop = stop,
      reset = reset,
      draw = draw,
      getVal = getVal
   }
end


-- F5J stuff

local SOUND_PATH = '/SOUNDS/EN/'      -- (4)

local THROTTLE_MIN = -1020         -- (2) (normally -1024)
local THR = getFieldInfo( 'ch1' ).id       -- (1)
local ALT = getFieldInfo( 'altitude' ).id
local SF = getFieldInfo( 'sf' ).id       -- (3)


local alt = 0
local alt10 = 0
local max = 0
local state = 1 -- 1=reset; 2=launch; 3=cutoff; 4=glide; 5=landed; 6=disqualify


local timer1 = createTimer( 0, 600 )   -- flight time
local timer2 = createTimer( 1, 30 )   -- engine time
local time3 = 0

local THROTTLE_MIN_HYSTERESIS = THROTTLE_MIN + 4


local function vocalEnabled()
   return true
end

local function handleMax()
   local a = getValue( ALT )
   if a > max then
      max = a
   end
   return a
end

local function disqualify()
   if vocalEnabled() then
      playFile( SOUND_PATH .. 'badflight.wav' )
   end
   timer2.stop()
   timer1.stop()
   state = 6
end

local function checkThrottle()
   if getValue( THR ) > THROTTLE_MIN_HYSTERESIS then
      disqualify()
   end
end

local function checkReset()
   if getValue( SF ) < 0 then
      timer2.stop()
      timer1.stop()
      timer2.reset()
      timer1.reset()
      time3 = 0

      alt = 0
      alt10 = 0
      max = 0

      state = 1
      return true
   end
   return false
end

local function checkEnd()
   return (getValue( SF ) > 0)
end

local function goToLandedState()
   timer2.stop()
   timer1.stop()
   state = 5
end



-- state transition functions

local function resetState()
   -- wait for take-off
   if getValue( THR ) > THROTTLE_MIN_HYSTERESIS then
      timer2.start()
      timer1.start()
      state = 2
   end
end

local function launchState()
   -- wait for the motor cut
   if checkEnd() then
      goToLandedState()
   elseif getValue( THR ) <= THROTTLE_MIN then
      timer2.stop()
      alt = getValue( ALT )
      max = alt
      if vocalEnabled() then
         playNumber( alt, 6, 0 )
      end
      state = 3
   elseif timer2.getVal() < 0 then
      disqualify()
   end
end

local function cutoffState()
   local a = handleMax()

   if checkEnd() then
      goToLandedState()
   else
      -- wait for the 10s end
      if (time3 - (30 - timer2.getVal())) >= 10 then
            alt10 = a
            if vocalEnabled() then
               playNumber( alt10, 6, 0 )
            end
            state = 4
      else
         checkThrottle()
      end
   end
end

local function glideState()
   handleMax()

   -- wait for the end of flight
   if checkEnd() then
      goToLandedState()
   else
      checkThrottle()
   end
end

local function landedState()
   -- wait for reset
   checkReset()
end

local function disqualifyState()
   -- wait for end
   if checkEnd() then
      state = 5
   end
end




local functions = { resetState, launchState, cutoffState, glideState, landedState, disqualifyState }

function background()
   time3 = 600 - timer1.getVal()
   functions[ state ]()
end



local function drawDashboard()
   lcd.drawFilledRectangle( 0, 23, 212, 18, 0 )

   lcd.drawText( 4, 4, "Alt cut:", MIDSIZE )
   lcd.drawNumber( 64, 4, alt, MIDSIZE+LEFT )
   lcd.drawText( lcd.getLastPos(), 4, "m", 0 )

   lcd.drawText( 4, 26, "Alt 10s:", MIDSIZE+INVERS )
   lcd.drawNumber( 64, 26, alt10, MIDSIZE+LEFT+INVERS )
   lcd.drawText( lcd.getLastPos(), 26, "m", INVERS )
   
   lcd.drawText( 4, 48, "Alt max:", MIDSIZE )
   lcd.drawNumber( 64, 48, max, MIDSIZE+LEFT )
   lcd.drawText( lcd.getLastPos(), 48, "m", 0 )
   
   lcd.drawText( 120, 4, "Work:", MIDSIZE )
   timer1.draw( 174, 4, MIDSIZE )

   lcd.drawText( 120, 26, "Engine:", MIDSIZE+INVERS )
   timer2.draw( 174, 26, MIDSIZE+INVERS )

   lcd.drawText( 120, 48, "Flight:", MIDSIZE )
   lcd.drawTimer( 174, 48, time3, MIDSIZE )
end


local function drawFault()
   lcd.drawRectangle( 4, 4, 204, 56 )
   lcd.drawText( 40, 25, "INVALID FLIGHT", DBLSIZE+BLINK )
end


local function run()
   background()

   if state < 6 then
      drawDashboard()
   else
      drawFault()
   end
end

return {background=background, run=run}

--[[
 Task G : 5X2 (10 min window)

 NB: this is a telemetry script
 
 Mike, ON4MJ
--]]



--
-- Timer class
--   (this is generic, and will have to be modified in 2.0.13+ where the setTimer() bug is fixed)
-- Precondition: timerId is either 0 or 1
--
local function createTimer( timerId, startValue )
 local id = timerId
 local timer = model.getTimer( id )

 local function setTimerWA() -- work-around for the difference in parameters of setTimer() compared to the return of getTimer()
 local t = {
 mode=timer.mode, start=timer.start, value=timer.value, countdownBeep=timer.countdownBeep,
 minuteBeep = timer.minuteBeep and 1 or 0,
 persistent = timer.persistent and 1 or 0
 }
 model.setTimer( id, t )
 end


 local function getVal()
 timer.value = model.getTimer( id ).value
 return timer.value
 end

 local function start()
 timer.mode = 1
 setTimerWA()
 end

 local function stop()
 timer = model.getTimer( id )
 timer.mode = 0
 setTimerWA()
 return timer.value
 end

 local function reset()
 timer.value = timer.start
 setTimerWA()
 end

 local function draw( x, y, att )
 local val = getVal()
 lcd.drawTimer( x, y, val, att )
 return val
 end



 if startValue then
 timer.start = startValue
 reset()
 end

 return {
 start = start,
 stop = stop,
 reset = reset,
 draw = draw,
 getVal = getVal
 }
end

---------------------------------------------------

function createTimeKeeper( size, limit )
 local tab = {}
 local LIMIT = limit


 local function initialize( size )
 for i=1,size do
 tab[ i ] = 0
 end
 end

 local function addTime( t )
 local i = #tab - 1
 while i > 0 and t > tab[ i ] do
 tab[ i + 1 ] = tab[ i ]
 i = i - 1
 end
 tab[ i + 1 ] = t
 end


 local function display()
 for i=1,#tab-1 do
 print( tab[ i ] )
 end
 end


 local function getVal( i )
 -- Precondition : 1 <= i <= (#tab - 1)
 return tab[ i ]
 end


 local function getTotal()
 local tot = 0
 for i=1,#tab-1 do
 tot = tot + math.min( tab[ i ], LIMIT )
 end
 return tot
 end



 local function reset()
 initialize( #tab )
 end



 -- "constructor"
 initialize( size + 1 )

 return {
 addTime=addTime,
 display=display,
 getVal=getVal,
 getTotal=getTotal,
 reset=reset
 }
end




local function createTaskG()
 -- Customize your own switches here
 local TMP_SWITCH = getFieldInfo( 'sh' ).id
 local RST_SWITCH = getFieldInfo( 'sf' ).id

 local SOUND_PATH = '/SOUNDS/EN/'

 local MAX_FLIGHT_TIME = 120

 local times -- best times
 local state -- 1=reset; 2=start; 3=flying; 4=landed, 5=end

 local timer1 -- working time
 local timer2 -- current flight time (descending from MAX_FLIGHT_TIME)



 local function earlyReset()
 if getValue( RST_SWITCH ) < 0 then
 timer1.stop()
 timer2.stop()

 timer1.reset()
 timer2.reset()

 state = 1

 return true
 end
 return false
 end

 local function endOfWindow()
 if timer1.getVal() <= 0 then
 timer2.stop()
 timer1.stop()

 times.addTime( MAX_FLIGHT_TIME - timer2.getVal() )
 playFile( SOUND_PATH .. 'taskend.wav' )

 state = 5

 return true
 end
 return false
 end


 -- State functions

 local function resetState()
 -- Wait for the start of the working window
 if getValue( RST_SWITCH ) > 0 then
 times.reset()
 timer1.start()
 playFile( SOUND_PATH .. 'taskg.wav' )
 state = 2
 end
 end

 local function startedState()
 if not endOfWindow() and not earlyReset() then
 -- Wait for the pilot to grab its temp switch
 if getValue( TMP_SWITCH ) > 0 then
 state = 4
 end
 end
 end

 local function flyingState()
 if not endOfWindow() and not earlyReset() then
 -- Wait for the pilot to catch/land (he/she's supposed to pull the temp switch at that moment)
 if getValue( TMP_SWITCH ) > 0 then
 timer2.stop()
 times.addTime( MAX_FLIGHT_TIME - timer2.getVal() )
 state = 4
 end
 end
 end

 local function landedState()
 if not endOfWindow() and not earlyReset() then
 -- Wait for the pilot to launch the plane
 if getValue( TMP_SWITCH ) < 0 then
 timer2.reset()
 timer2.start()
 state = 3
 end
 end
 end

 local function endSate()
 -- Wait for reset
 earlyReset()
 end

 
 local functions = { resetState, startedState, flyingState, landedState, endSate }



 -- public interface
 local function init()
 times = createTimeKeeper( 5, MAX_FLIGHT_TIME )
 state = 1 -- 1=reset; 2=start; 3=flying; 4=landed, 5=end

 timer1 = createTimer( 0, 600 ) -- working time
 timer2 = createTimer( 1, MAX_FLIGHT_TIME ) -- current flight time (descending from MAX_FLIGHT_TIME)
 end


 local function background()
 functions[ state ]()
 end

 
 local function display()
 background()


 timer1.draw( 24, 4, XXLSIZE )

 lcd.drawLine( 0, 47, 159, 47, SOLID, 2 )
 lcd.drawPoint( 0, 47 )

 lcd.drawText( 20, 53, "Current flight: ", 0 )
 lcd.drawTimer( lcd.getLastPos(), 50, MAX_FLIGHT_TIME - timer2.getVal(), MIDSIZE )

 lcd.drawLine( 159, 0, 159, 63, SOLID, 2 )
 lcd.drawPoint( 159, 0 )

 local y = 2
 for i=0,4 do
 lcd.drawTimer( 180, y + 10 * i, times.getVal( i+1 ), 0 )
 end
 lcd.drawFilledRectangle( 160, 53, 52, 11, 0 )
 lcd.drawTimer( 180, 55, times.getTotal(), INVERS )
 end



 return { init=init, background=background, display=display }
end

local task = createTaskG()
return { init=task.init, background=task.background, run=task.display }