property pChannelNum, pVolume, pMuted, pReserved, pEndTime

on define me, tChannelNum 
  pChannelNum = tChannelNum
  tChannel = sound(pChannelNum)
  if ilk(tChannel) <> #instance then
    return(error(me, "Invalid sound channel:" && pChannelNum, #define, #major))
  end if
  pCounter = 0
  pEndTime = 0
  pMuted = 0
  pVolume = 255
  pReserved = 0
  return TRUE
end

on setSoundState me, tstate 
  tChannel = sound(pChannelNum)
  if ilk(tChannel) <> #instance then
    return(error(me, "Sound channel bug:" && pChannelNum, #setSoundState, #major))
  end if
  if tstate then
    tChannel.volume = pVolume
    pMuted = 0
  else
    tChannel.volume = 0
    pMuted = 1
  end if
end

on reset me 
  pEndTime = 0
  tChannel = sound(pChannelNum)
  if ilk(tChannel) <> #instance then
    return(error(me, "Sound channel bug:" && pChannelNum, #reset, #major))
  end if
  tChannel.setPlayList([])
  tChannel.stop()
  pReserved = 0
  return TRUE
end

on play me, tSoundObj 
  tmember = tSoundObj.getMember()
  if (tmember = 0) then
    return FALSE
  end if
  tChannel = sound(pChannelNum)
  if ilk(tChannel) <> #instance then
    return(error(me, "Sound channel bug:" && pChannelNum, #play, #major))
  end if
  if tSoundObj.getProperty(#infiniteloop) then
    tLoopCount = 0
  else
    tLoopCount = tSoundObj.getProperty(#loopCount)
    if (tLoopCount = void()) then
      tLoopCount = 1
    end if
  end if
  pVolume = tSoundObj.getProperty(#volume)
  if not pMuted then
    tChannel.volume = pVolume
  else
    tChannel.volume = 0
  end if
  pEndTime = (the milliSeconds + (tmember.duration * tLoopCount))
  if (tLoopCount = 0) then
    pEndTime = -1
  end if
  tChannel.play([#member:tmember, #loopCount:tLoopCount])
  return(pChannelNum)
end

on queue me, tSoundObj 
  tmember = tSoundObj.getMember()
  if (tmember = 0) then
    return FALSE
  end if
  tProps = tSoundObj.pProps.duplicate()
  tProps.setAt(#member, tmember)
  pVolume = tProps.getAt(#volume)
  tChannel = sound(pChannelNum)
  if ilk(tChannel) <> #instance then
    return(error(me, "Sound channel bug:" && pChannelNum, #queue, #major))
  end if
  tChannel.queue(tProps)
  return TRUE
end

on startPlaying me 
  tChannel = sound(pChannelNum)
  if ilk(tChannel) <> #instance then
    return(error(me, "Sound channel bug:" && pChannelNum, #startPlaying, #major))
  end if
  tChannel.play()
  return TRUE
end

on getTimeRemaining me 
  tChannel = sound(pChannelNum)
  if ilk(tChannel) <> #instance then
    return(error(me, "Sound channel bug:" && pChannelNum, #getTimeRemaining, #major))
  end if
  if not tChannel.isBusy() and not pReserved then
    return FALSE
  end if
  if (pEndTime = -1) then
    return(#infinite)
  end if
  tDurationLeft = (pEndTime - the milliSeconds)
  if tDurationLeft < 0 then
    tDurationLeft = 0
  end if
  if pReserved and (tDurationLeft = 0) then
    tDurationLeft = 100000
  end if
  return(tDurationLeft)
end

on setReserved me 
  pReserved = 1
end

on getIsReserved me 
  return(pReserved)
end

on dump me 
  tChannel = sound(pChannelNum)
  if ilk(tChannel) <> #instance then
    return(error(me, "Sound channel bug:" && pChannelNum, #dump, #major))
  end if
  tName = "<none>"
  if tChannel.isBusy() then
    tName = tChannel.member.name
  end if
  put("* Channel" && pChannelNum & " - Playtime left:" && me.getTimeRemaining() && "Now playing:" && tName && "Queue:" && tChannel.getPlaylist().count)
end