components_music_AudioPlayerView.bs

import "pkg:/source/api/baserequest.bs"
import "pkg:/source/api/Image.bs"
import "pkg:/source/utils/config.bs"
import "pkg:/source/utils/misc.bs"

sub init()
  m.top.optionsAvailable = false
  m.inScrubMode = false
  m.lastRecordedPositionTimestamp = 0
  m.scrubTimestamp = -1

  m.queueManager = m.global.queueManager
  m.playlistTypeCount = m.queueManager.callFunc("getQueueUniqueTypes").count()

  m.audioPlayer = m.global.audioPlayer
  m.audioPlayer.observeField("state", "audioStateChanged")
  m.audioPlayer.observeField("position", "audioPositionChanged")
  m.audioPlayer.observeField("bufferingStatus", "bufferPositionChanged")

  setupAnimationTasks()
  setupButtons()
  setupInfoNodes()
  setupDataTasks()
  setupScreenSaver()

  m.buttonCount = m.buttons.getChildCount()
  m.seekPosition.translation = [720 - (m.seekPosition.width / 2), m.seekPosition.translation[1]]

  m.screenSaverTimeout = 300

  m.LoadScreenSaverTimeoutTask.observeField("content", "onScreensaverTimeoutLoaded")
  m.LoadScreenSaverTimeoutTask.control = "RUN"

  m.di = CreateObject("roDeviceInfo")

  ' Write screen tracker for screensaver
  WriteAsciiFile("tmp:/scene.temp", "nowplaying")
  MoveFile("tmp:/scene.temp", "tmp:/scene")

  loadButtons()
  pageContentChanged()
  setShuffleIconState()
  setLoopButtonImage()

  m.buttons.setFocus(true)
end sub

sub onScreensaverTimeoutLoaded()
  data = m.LoadScreenSaverTimeoutTask.content
  m.LoadScreenSaverTimeoutTask.unobserveField("content")
  if isValid(data)
    m.screenSaverTimeout = data
  end if
end sub

sub setupScreenSaver()
  m.screenSaverBackground = m.top.FindNode("screenSaverBackground")

  ' Album Art Screensaver
  m.screenSaverAlbumCover = m.top.FindNode("screenSaverAlbumCover")
  m.screenSaverAlbumAnimation = m.top.findNode("screenSaverAlbumAnimation")
  m.screenSaverAlbumCoverFadeIn = m.top.findNode("screenSaverAlbumCoverFadeIn")

  ' Audio Screensaver
  m.PosterOne = m.top.findNode("PosterOne")
  m.PosterOne.uri = "pkg:/images/branding/logo.png"
  m.BounceAnimation = m.top.findNode("BounceAnimation")
  m.PosterOneFadeIn = m.top.findNode("PosterOneFadeIn")
end sub

sub setupAnimationTasks()
  m.displayButtonsAnimation = m.top.FindNode("displayButtonsAnimation")
  m.playPositionAnimation = m.top.FindNode("playPositionAnimation")
  m.playPositionAnimationWidth = m.top.FindNode("playPositionAnimationWidth")

  m.bufferPositionAnimation = m.top.FindNode("bufferPositionAnimation")
  m.bufferPositionAnimationWidth = m.top.FindNode("bufferPositionAnimationWidth")

  m.screenSaverStartAnimation = m.top.FindNode("screenSaverStartAnimation")
end sub

' Creates tasks to gather data needed to render Scene and play song
sub setupDataTasks()
  ' Load meta data
  m.LoadMetaDataTask = CreateObject("roSGNode", "LoadItemsTask")
  m.LoadMetaDataTask.itemsToLoad = "metaData"

  ' Load background image
  m.LoadBackdropImageTask = CreateObject("roSGNode", "LoadItemsTask")
  m.LoadBackdropImageTask.itemsToLoad = "backdropImage"

  ' Load audio stream
  m.LoadAudioStreamTask = CreateObject("roSGNode", "LoadItemsTask")
  m.LoadAudioStreamTask.itemsToLoad = "audioStream"

  m.LoadScreenSaverTimeoutTask = CreateObject("roSGNode", "LoadScreenSaverTimeoutTask")
end sub

' Setup playback buttons, default to Play button selected
sub setupButtons()
  m.buttons = m.top.findNode("buttons")
  m.top.observeField("selectedButtonIndex", "onButtonSelectedChange")

  ' If we're playing a mixed playlist, remove the shuffle and loop buttons
  if m.playlistTypeCount > 1
    shuffleButton = m.top.findNode("shuffle")
    m.buttons.removeChild(shuffleButton)

    loopButton = m.top.findNode("loop")
    m.buttons.removeChild(loopButton)

    m.previouslySelectedButtonIndex = 0
    m.top.selectedButtonIndex = 1
    return
  end if

  m.previouslySelectedButtonIndex = 1
  m.top.selectedButtonIndex = 2
end sub

' Event handler when user selected a different playback button
sub onButtonSelectedChange()
  ' Change previously selected button back to default image
  selectedButton = m.buttons.getChild(m.previouslySelectedButtonIndex)
  selectedButton.uri = selectedButton.uri.Replace("-selected", "-default")

  ' Change selected button image to selected image
  selectedButton = m.buttons.getChild(m.top.selectedButtonIndex)
  selectedButton.uri = selectedButton.uri.Replace("-default", "-selected")
end sub

sub setupInfoNodes()
  m.albumCover = m.top.findNode("albumCover")
  m.backDrop = m.top.findNode("backdrop")
  m.playPosition = m.top.findNode("playPosition")
  m.bufferPosition = m.top.findNode("bufferPosition")
  m.seekBar = m.top.findNode("seekBar")
  m.thumb = m.top.findNode("thumb")
  m.shuffleIndicator = m.top.findNode("shuffleIndicator")
  m.loopIndicator = m.top.findNode("loopIndicator")
  m.positionTimestamp = m.top.findNode("positionTimestamp")
  m.seekPosition = m.top.findNode("seekPosition")
  m.seekTimestamp = m.top.findNode("seekTimestamp")
  m.totalLengthTimestamp = m.top.findNode("totalLengthTimestamp")
end sub

sub bufferPositionChanged()
  if m.inScrubMode then return

  if not isValid(m.audioPlayer.bufferingStatus)
    bufferPositionBarWidth = m.seekBar.width
  else
    bufferPositionBarWidth = m.seekBar.width * m.audioPlayer.bufferingStatus.percentage
  end if

  ' Ensure position bar is never wider than the seek bar
  if bufferPositionBarWidth > m.seekBar.width
    bufferPositionBarWidth = m.seekBar.width
  end if

  ' Use animation to make the display smooth
  m.bufferPositionAnimationWidth.keyValue = [m.bufferPosition.width, bufferPositionBarWidth]
  m.bufferPositionAnimation.control = "start"
end sub

sub audioPositionChanged()
  stopLoadingSpinner()

  if m.audioPlayer.position = 0
    m.playPosition.width = 0
  end if

  if not isValid(m.audioPlayer.position)
    playPositionBarWidth = 0
  else if not isValid(m.songDuration)
    playPositionBarWidth = 0
  else
    songPercentComplete = m.audioPlayer.position / m.songDuration
    playPositionBarWidth = m.seekBar.width * songPercentComplete
  end if

  ' Ensure position bar is never wider than the seek bar
  if playPositionBarWidth > m.seekBar.width
    playPositionBarWidth = m.seekBar.width
  end if

  if not m.inScrubMode
    moveSeekbarThumb(playPositionBarWidth)
    ' Change the seek position timestamp
    m.seekTimestamp.text = secondsToTimestamp(m.audioPlayer.position, false)
  end if

  ' Use animation to make the display smooth
  m.playPositionAnimationWidth.keyValue = [m.playPosition.width, playPositionBarWidth]
  m.playPositionAnimation.control = "start"

  ' Update displayed position timestamp
  if isValid(m.audioPlayer.position)
    m.lastRecordedPositionTimestamp = m.audioPlayer.position
    m.positionTimestamp.text = secondsToTimestamp(m.audioPlayer.position, false)
  else
    m.lastRecordedPositionTimestamp = 0
    m.positionTimestamp.text = "0:00"
  end if

  ' Only fall into screensaver logic if the user has screensaver enabled in Roku settings
  if m.screenSaverTimeout > 0
    if m.di.TimeSinceLastKeypress() >= m.screenSaverTimeout - 2
      if not screenSaverActive()
        startScreenSaver()
      end if
    end if
  end if
end sub

function screenSaverActive() as boolean
  return m.screenSaverBackground.visible or m.screenSaverAlbumCover.opacity > 0 or m.PosterOne.opacity > 0
end function

sub startScreenSaver()
  m.screenSaverBackground.visible = true
  m.top.overhangVisible = false

  if m.albumCover.uri = ""
    ' Audio Logo Screensaver
    m.PosterOne.visible = true
    m.PosterOneFadeIn.control = "start"
    m.BounceAnimation.control = "start"
  else
    ' Album Art Screensaver
    m.screenSaverAlbumCoverFadeIn.control = "start"
    m.screenSaverAlbumAnimation.control = "start"
  end if
end sub

sub endScreenSaver()
  m.PosterOneFadeIn.control = "pause"
  m.screenSaverAlbumCoverFadeIn.control = "pause"
  m.screenSaverAlbumAnimation.control = "pause"
  m.BounceAnimation.control = "pause"
  m.screenSaverBackground.visible = false
  m.screenSaverAlbumCover.opacity = 0
  m.PosterOne.opacity = 0
  m.top.overhangVisible = true
end sub

sub audioStateChanged()
  ' Song Finished, attempt to move to next song
  if m.audioPlayer.state = "finished"
    ' User has enabled single song loop, play current song again
    if m.audioPlayer.loopMode = "one"
      m.scrubTimestamp = -1
      playAction()
      exitScrubMode()
      return
    end if

    if m.queueManager.callFunc("getPosition") < m.queueManager.callFunc("getCount") - 1
      m.top.state = "finished"
    else
      ' We are at the end of the song queue

      ' User has enabled loop for entire song queue, move back to first song
      if m.audioPlayer.loopMode = "all"
        m.queueManager.callFunc("setPosition", -1)
        LoadNextSong()
        return
      end if

      ' Return to previous screen
      m.top.state = "finished"
    end if
  end if
end sub

function playAction() as boolean

  if m.audioPlayer.state = "playing"
    m.audioPlayer.control = "pause"
    ' Allow screen to go to real screensaver
    WriteAsciiFile("tmp:/scene.temp", "nowplaying-paused")
    MoveFile("tmp:/scene.temp", "tmp:/scene")
  else if m.audioPlayer.state = "paused"
    m.audioPlayer.control = "resume"
    ' Write screen tracker for screensaver
    WriteAsciiFile("tmp:/scene.temp", "nowplaying")
    MoveFile("tmp:/scene.temp", "tmp:/scene")
  else if m.audioPlayer.state = "finished"
    m.audioPlayer.control = "play"
    ' Write screen tracker for screensaver
    WriteAsciiFile("tmp:/scene.temp", "nowplaying")
    MoveFile("tmp:/scene.temp", "tmp:/scene")
  end if

  return true
end function

function previousClicked() as boolean
  currentQueuePosition = m.queueManager.callFunc("getPosition")
  if currentQueuePosition = 0 then return false

  if m.playlistTypeCount > 1
    previousItem = m.queueManager.callFunc("getItemByIndex", currentQueuePosition - 1)
    previousItemType = m.queueManager.callFunc("getItemType", previousItem)

    if previousItemType <> "audio"
      m.audioPlayer.control = "stop"

      m.global.sceneManager.callFunc("clearPreviousScene")
      m.queueManager.callFunc("moveBack")
      m.queueManager.callFunc("playQueue")
      return true
    end if
  end if

  exitScrubMode()

  m.lastRecordedPositionTimestamp = 0
  m.positionTimestamp.text = "0:00"

  if m.audioPlayer.state = "playing"
    m.audioPlayer.control = "stop"
  end if

  ' Reset loop mode due to manual user interaction
  if m.audioPlayer.loopMode = "one"
    resetLoopModeToDefault()
  end if

  m.queueManager.callFunc("moveBack")
  pageContentChanged()

  return true
end function

sub resetLoopModeToDefault()
  m.audioPlayer.loopMode = ""
  setLoopButtonImage()
end sub

function loopClicked() as boolean
  if m.audioPlayer.loopMode = ""
    m.audioPlayer.loopMode = "all"
  else if m.audioPlayer.loopMode = "all"
    m.audioPlayer.loopMode = "one"
  else
    m.audioPlayer.loopMode = ""
  end if

  setLoopButtonImage()

  return true
end function

sub setLoopButtonImage()
  if m.audioPlayer.loopMode = "all"
    m.loopIndicator.opacity = "1"
    m.loopIndicator.uri = m.loopIndicator.uri.Replace("-off", "-on")
  else if m.audioPlayer.loopMode = "one"
    m.loopIndicator.uri = m.loopIndicator.uri.Replace("-on", "1-on")
  else
    m.loopIndicator.uri = m.loopIndicator.uri.Replace("1-on", "-off")
  end if
end sub

function nextClicked() as boolean

  if m.playlistTypeCount > 1
    currentQueuePosition = m.queueManager.callFunc("getPosition")
    if currentQueuePosition < m.queueManager.callFunc("getCount") - 1

      nextItem = m.queueManager.callFunc("getItemByIndex", currentQueuePosition + 1)
      nextItemType = m.queueManager.callFunc("getItemType", nextItem)

      if nextItemType <> "audio"
        m.audioPlayer.control = "stop"

        m.global.sceneManager.callFunc("clearPreviousScene")
        m.queueManager.callFunc("moveForward")
        m.queueManager.callFunc("playQueue")
        return true
      end if
    end if
  end if

  exitScrubMode()

  m.lastRecordedPositionTimestamp = 0
  m.positionTimestamp.text = "0:00"

  ' Reset loop mode due to manual user interaction
  if m.audioPlayer.loopMode = "one"
    resetLoopModeToDefault()
  end if

  if m.queueManager.callFunc("getPosition") < m.queueManager.callFunc("getCount") - 1
    LoadNextSong()
  end if

  return true
end function

sub toggleShuffleEnabled()
  m.queueManager.callFunc("toggleShuffle")
end sub

function findCurrentSongIndex(songList) as integer
  if not isValidAndNotEmpty(songList) then return 0

  for i = 0 to songList.count() - 1
    if songList[i].id = m.queueManager.callFunc("getCurrentItem").id
      return i
    end if
  end for

  return 0
end function

function shuffleClicked() as boolean
  currentSongIndex = findCurrentSongIndex(m.queueManager.callFunc("getUnshuffledQueue"))

  toggleShuffleEnabled()

  if not m.queueManager.callFunc("getIsShuffled")
    m.shuffleIndicator.opacity = ".4"
    m.shuffleIndicator.uri = m.shuffleIndicator.uri.Replace("-on", "-off")
    m.queueManager.callFunc("setPosition", currentSongIndex)
    setTrackNumberDisplay()
    return true
  end if

  m.shuffleIndicator.opacity = "1"
  m.shuffleIndicator.uri = m.shuffleIndicator.uri.Replace("-off", "-on")
  setTrackNumberDisplay()

  return true
end function

sub setShuffleIconState()
  if m.queueManager.callFunc("getIsShuffled")
    m.shuffleIndicator.opacity = "1"
    m.shuffleIndicator.uri = m.shuffleIndicator.uri.Replace("-off", "-on")
  end if
end sub

sub setTrackNumberDisplay()
  setFieldTextValue("numberofsongs", "Track " + stri(m.queueManager.callFunc("getPosition") + 1) + "/" + stri(m.queueManager.callFunc("getCount")))
end sub

sub LoadNextSong()
  if m.audioPlayer.state = "playing"
    m.audioPlayer.control = "stop"
  end if

  exitScrubMode()

  ' Reset playPosition bar without animation
  m.playPosition.width = 0
  m.queueManager.callFunc("moveForward")
  pageContentChanged()
end sub

' Update values on screen when page content changes
sub pageContentChanged()

  m.LoadAudioStreamTask.control = "STOP"

  currentItem = m.queueManager.callFunc("getCurrentItem")

  m.LoadAudioStreamTask.itemId = currentItem.id
  m.LoadAudioStreamTask.observeField("content", "onAudioStreamLoaded")
  m.LoadAudioStreamTask.control = "RUN"
end sub

' If we have more and 1 song to play, fade in the next and previous controls
sub loadButtons()
  if m.queueManager.callFunc("getCount") > 1
    m.shuffleIndicator.opacity = ".4"
    m.loopIndicator.opacity = ".4"
    m.displayButtonsAnimation.control = "start"
    setLoopButtonImage()
  end if
end sub

sub onAudioStreamLoaded()
  stopLoadingSpinner()
  data = m.LoadAudioStreamTask.content[0]
  m.LoadAudioStreamTask.unobserveField("content")
  if data <> invalid and data.count() > 0
    ' Reset buffer bar without animation
    m.bufferPosition.width = 0

    useMetaTask = false
    currentItem = m.queueManager.callFunc("getCurrentItem")

    if not isValid(currentItem.RunTimeTicks)
      useMetaTask = true
    end if

    if not isValid(currentItem.AlbumArtist)
      useMetaTask = true
    end if

    if not isValid(currentItem.name)
      useMetaTask = true
    end if

    if not isValid(currentItem.Artists)
      useMetaTask = true
    end if

    if useMetaTask
      m.LoadMetaDataTask.itemId = currentItem.id
      m.LoadMetaDataTask.observeField("content", "onMetaDataLoaded")
      m.LoadMetaDataTask.control = "RUN"
    else
      if isValid(currentItem.ParentBackdropItemId)
        setBackdropImage(ImageURL(currentItem.ParentBackdropItemId, "Backdrop", { "maxHeight": "720", "maxWidth": "1280" }))
      end if

      setPosterImage(ImageURL(currentItem.id, "Primary", { "maxHeight": 500, "maxWidth": 500 }))
      setScreenTitle(currentItem)
      setOnScreenTextValues(currentItem)
      m.songDuration = currentItem.RunTimeTicks / 10000000.0

      ' Update displayed total audio length
      m.totalLengthTimestamp.text = ticksToHuman(currentItem.RunTimeTicks)
    end if

    m.audioPlayer.content = data
    m.audioPlayer.control = "none"
    m.audioPlayer.control = "play"
  end if
end sub

sub onBackdropImageLoaded()
  data = m.LoadBackdropImageTask.content[0]
  m.LoadBackdropImageTask.unobserveField("content")
  if isValid(data) and data <> ""
    setBackdropImage(data)
  end if
end sub

sub onMetaDataLoaded()
  data = m.LoadMetaDataTask.content[0]
  m.LoadMetaDataTask.unobserveField("content")
  if isValid(data) and data.count() > 0 and isValid(data.json)
    ' Use metadata to load backdrop image
    if isValid(data.json.ArtistItems) and isValid(data.json.ArtistItems[0]) and isValid(data.json.ArtistItems[0].id)
      m.LoadBackdropImageTask.itemId = data.json.ArtistItems[0].id
      m.LoadBackdropImageTask.observeField("content", "onBackdropImageLoaded")
      m.LoadBackdropImageTask.control = "RUN"
    end if

    setPosterImage(data.posterURL)
    setScreenTitle(data.json)
    setOnScreenTextValues(data.json)

    if isValid(data.json.RunTimeTicks)
      m.songDuration = data.json.RunTimeTicks / 10000000.0

      ' Update displayed total audio length
      m.totalLengthTimestamp.text = ticksToHuman(data.json.RunTimeTicks)
    end if
  end if
end sub

' Set poster image on screen
sub setPosterImage(posterURL)
  if isValid(posterURL)
    if m.albumCover.uri <> posterURL
      m.albumCover.uri = posterURL
      m.screenSaverAlbumCover.uri = posterURL
    end if
  end if
end sub

' Set screen's title text
sub setScreenTitle(json)
  newTitle = ""
  if isValid(json)
    if isValid(json.AlbumArtist)
      newTitle = json.AlbumArtist
    end if
    if isValid(json.AlbumArtist) and isValid(json.name)
      newTitle = newTitle + " / "
    end if
    if isValid(json.name)
      newTitle = newTitle + json.name
    end if
  end if

  if m.top.overhangTitle <> newTitle
    m.top.overhangTitle = newTitle
  end if
end sub

' Populate on screen text variables
sub setOnScreenTextValues(json)
  if isValid(json)
    if m.playlistTypeCount = 1
      setTrackNumberDisplay()
    end if

    setFieldTextValue("artist", json.Artists[0])
    setFieldTextValue("song", json.name)
  end if
end sub

' Add backdrop image to screen
sub setBackdropImage(data)
  if isValid(data)
    if m.backDrop.uri <> data
      m.backDrop.uri = data
    end if
  end if
end sub

' setSelectedButtonState: Changes the icon state url for the currently selected button
'
' @param {string} oldState - current state to replace in icon url
' @param {string} newState - state to replace {oldState} with in icon url
sub setSelectedButtonState(oldState as string, newState as string)
  selectedButton = m.buttons.getChild(m.top.selectedButtonIndex)
  selectedButton.uri = selectedButton.uri.Replace(oldState, newState)
end sub

' processScrubAction: Handles +/- seeking for the audio trickplay bar
'
' @param {integer} seekStep - seconds to move the trickplay position (negative values allowed)
sub processScrubAction(seekStep as integer)
  ' Prepare starting playStart property value
  if m.scrubTimestamp = -1
    m.scrubTimestamp = m.lastRecordedPositionTimestamp
  end if

  ' Don't let seek to go past the end of the song
  if m.scrubTimestamp + seekStep > m.songDuration - 5
    return
  end if

  if seekStep > 0
    ' Move seek forward
    m.scrubTimestamp += seekStep
  else if m.scrubTimestamp >= Abs(seekStep)
    ' If back seek won't go below 0, move seek back
    m.scrubTimestamp += seekStep
  else
    ' Back seek would go below 0, set to 0 directly
    m.scrubTimestamp = 0
  end if

  ' Move the seedbar thumb forward
  songPercentComplete = m.scrubTimestamp / m.songDuration
  playPositionBarWidth = m.seekBar.width * songPercentComplete

  moveSeekbarThumb(playPositionBarWidth)

  ' Change the displayed position timestamp
  m.seekTimestamp.text = secondsToTimestamp(m.scrubTimestamp, false)
end sub

' resetSeekbarThumb: Resets the thumb to the playing position
'
sub resetSeekbarThumb()
  m.scrubTimestamp = -1
  moveSeekbarThumb(m.playPosition.width)
end sub

' moveSeekbarThumb: Positions the thumb on the seekbar
'
' @param {float} playPositionBarWidth - width of the play position bar
sub moveSeekbarThumb(playPositionBarWidth as float)
  ' Center the thumb on the play position bar
  thumbPostionLeft = playPositionBarWidth - 10

  ' Don't let thumb go below 0
  if thumbPostionLeft < 0 then thumbPostionLeft = 0

  ' Don't let thumb go past end of seekbar
  if thumbPostionLeft > m.seekBar.width - 25
    thumbPostionLeft = m.seekBar.width - 25
  end if

  ' Move the thumb
  m.thumb.translation = [thumbPostionLeft, m.thumb.translation[1]]

  ' Move the seek position element so it follows the thumb
  m.seekPosition.translation = [720 + thumbPostionLeft - (m.seekPosition.width / 2), m.seekPosition.translation[1]]
end sub

' exitScrubMode: Moves player out of scrub mode state,  resets back to standard play mode
'
sub exitScrubMode()
  m.buttons.setFocus(true)
  m.thumb.setFocus(false)

  if m.seekPosition.visible
    m.seekPosition.visible = false
  end if

  resetSeekbarThumb()

  m.inScrubMode = false
  m.thumb.visible = false
  setSelectedButtonState("-default", "-selected")
end sub

' Process key press events
function onKeyEvent(key as string, press as boolean) as boolean

  ' Key bindings for remote control buttons
  if press
    ' If user presses key to turn off screensaver, don't do anything else with it
    if screenSaverActive()
      endScreenSaver()
      return true
    end if

    ' Key Event handler when m.thumb is in focus
    if m.thumb.hasFocus()
      if key = "right"
        m.inScrubMode = true
        processScrubAction(10)
        return true
      end if

      if key = "left"
        m.inScrubMode = true
        processScrubAction(-10)
        return true
      end if

      if key = "OK" or key = "play"
        if m.inScrubMode
          startLoadingSpinner()
          m.inScrubMode = false
          m.audioPlayer.seek = m.scrubTimestamp
          return true
        end if

        return playAction()
      end if
    end if

    if key = "play"
      return playAction()
    end if

    if key = "up"
      if not m.thumb.visible
        m.thumb.visible = true
        setSelectedButtonState("-selected", "-default")
      end if
      if not m.seekPosition.visible
        m.seekPosition.visible = true
      end if

      m.thumb.setFocus(true)
      m.buttons.setFocus(false)
      return true
    end if

    if key = "down"
      if m.thumb.visible
        exitScrubMode()
      end if
      return true
    end if

    if key = "back"
      m.audioPlayer.control = "stop"
      m.audioPlayer.loopMode = ""
    else if key = "rewind"
      return previousClicked()
    else if key = "fastforward"
      return nextClicked()
    else if key = "left"
      if m.buttons.hasFocus()
        if m.queueManager.callFunc("getCount") = 1 then return false

        if m.top.selectedButtonIndex > 0
          m.previouslySelectedButtonIndex = m.top.selectedButtonIndex
          m.top.selectedButtonIndex = m.top.selectedButtonIndex - 1
        end if
        return true
      end if
    else if key = "right"
      if m.buttons.hasFocus()
        if m.queueManager.callFunc("getCount") = 1 then return false

        m.previouslySelectedButtonIndex = m.top.selectedButtonIndex
        if m.top.selectedButtonIndex < m.buttonCount - 1 then m.top.selectedButtonIndex = m.top.selectedButtonIndex + 1
        return true
      end if
    else if key = "OK"
      if m.buttons.hasFocus()
        if m.buttons.getChild(m.top.selectedButtonIndex).id = "play"
          return playAction()
        else if m.buttons.getChild(m.top.selectedButtonIndex).id = "previous"
          return previousClicked()
        else if m.buttons.getChild(m.top.selectedButtonIndex).id = "next"
          return nextClicked()
        else if m.buttons.getChild(m.top.selectedButtonIndex).id = "shuffle"
          return shuffleClicked()
        else if m.buttons.getChild(m.top.selectedButtonIndex).id = "loop"
          return loopClicked()
        end if
      end if
    end if
  end if

  return false
end function

sub OnScreenHidden()
  ' Write screen tracker for screensaver
  WriteAsciiFile("tmp:/scene.temp", "")
  MoveFile("tmp:/scene.temp", "tmp:/scene")
end sub