wnsrc/lua/pac3/libraries/webaudio/streams.lua

--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| 	Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]

-- made by Morten and CapsAdmin

pac.webaudio = pac.webaudio or {}
local webaudio = pac.webaudio

webaudio.Streams = webaudio.Streams or {}

webaudio.Streams.LastStreamId = 0
webaudio.Streams.Streams      = {}

function webaudio.Streams.CreateStream(url)
	--url = url:gsub("http[s?]://", "http://")

	if not url:find("http",1,true) then
		url = "asset://garrysmod/sound/" .. url
	end

	local stream = setmetatable({}, webaudio.Streams.STREAM)

	webaudio.Streams.LastStreamId = webaudio.Streams.LastStreamId + 1
	stream:SetId(webaudio.Streams.LastStreamId)
	stream:SetUrl(url)

	webaudio.Streams.Streams[stream:GetId()] = stream

	webaudio.Browser.QueueJavascript(string.format("createStream(%q, %d)", stream:GetUrl(), stream:GetId()))

	return stream
end

function webaudio.Streams.GetStream(streamId)
	return webaudio.Streams.Streams[streamId]
end

function webaudio.Streams.StreamExists(streamId)
	return webaudio.Streams.Streams[streamId] ~= nil
end

function webaudio.Streams.Think()
	for streamId, stream in pairs(webaudio.Streams.Streams) do
		if stream:IsValid() then
			stream:Think()
		else
			stream:Stop()
			webaudio.Streams.Streams[streamId] = nil
			webaudio.Browser.QueueJavascript(string.format("destroyStream(%i)", stream:GetId()))

			setmetatable(stream, getmetatable(NULL))
		end
	end
end