mStream.lua

local config = require("mconfig") or error("You must set up a config file")
local channel = config.channel or error("You must configure a channel")
local station = config.station or "an mStream Station"
local id = os.getComputerID()
local protocol = "CCSMB-5"
local directories = config.directories
local volume = config.volume or 1
local version = 1.2

local modem = peripheral.wrap(config.modem) or peripheral.find("modem") or error("A modem must be attached")
local speaker = peripheral.find("speaker") or error("A speaker must be attached")
local title = "Nothing is playing right now"

local currentFile = ""
local buffer

local dfpwm = require("cc.audio.dfpwm")
local decoder = dfpwm.make_decoder()


local hex_to_char = function(x)
  return string.char(tonumber(x, 16))
end

local unescape = function(url)
  return url:gsub("%%(%x%x)", hex_to_char)
end

local function update()
    local s = shell.getRunningProgram()
    handle = http.get("https://raw.githubusercontent.com/knijn/mStream/main/mStream.lua")
    if not handle then
        error("Could not download new version, Please update manually.",0)
    else
        data = handle.readAll()
        local f = fs.open(s, "w")
        handle.close()
        f.write(data)
        f.close()
        error("Please reopen mStream")
    end
end

local h = http.get("https://raw.githubusercontent.com/knijn/mStream/main/data.json")
local latestVersion = textutils.unserialiseJSON(h.readAll()).latestVersion

if latestVersion > version then update() end

local function playSong(file)
  currentFile = file
  title = fs.getName(unescape(file)):sub(1, -7)
  for chunk in io.lines(file, 16 * 1024) do
    local buffer = decoder(chunk)
    local packet = {buffer = buffer, id = id, station = station, title = title, protocol = protocol}
      modem.transmit(channel,channel,packet)

      while not speaker.playAudio(buffer,volume) do
        os.pullEvent("speaker_audio_empty")
        sleep(0)
      end
  end
end

local function draw()
  while true do
    local xSize, ySize = term.getSize()
    term.setTextColor(colors.white)
    term.setBackgroundColor(colors.black)
    term.clear()
    term.setCursorPos(1,1)
    term.write("mStream " .. version .. ": " .. station .. "  |  " .. channel)
    term.setCursorPos(1,ySize - 1)
    term.write("Now Playing")
    term.setCursorPos(1,ySize)
    term.write(title)
    sleep(0.2)
  end
end

local function player()
  while true do
      for i,folder in pairs(directories) do
        for i,file in pairs(fs.list(folder)) do
          playSong(folder .. file)
        end
      end
  end
end



while true do
  parallel.waitForAny(draw,player)
end