Upload

lua/pac3/libraries/webaudio/urlogg.lua

@@ -0,0 +1,68 @@
+--[[
+| 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.Debug        = 0
+
+webaudio.SampleRate   = nil
+
+webaudio.SpeedOfSound = 340.29 -- metres per second
+
+function webaudio.DebugPrint(str, ...)
+	if webaudio.Debug == 0 then return end
+
+    if webaudio.Debug >= 1 then
+        if epoe then
+			-- Why is this even present here?
+            epoe.MsgC(Color(0, 255, 0), "[WebAudio] ")
+            epoe.MsgC(Color(255, 255, 255), str)
+            epoe.Print("")
+		end
+
+        pac.Message(Color(0, 255, 0), "[WebAudio] ", Color(255, 255, 255), str, ...)
+    end
+
+    if webaudio.Debug >= 2 then
+		if easylua then
+			easylua.PrintOnServer("[WebAudio] " .. str .. ' ' .. table.concat({...}, ', '))
+		end
+    end
+end
+
+function webaudio.GetSampleRate ()
+	return webaudio.SampleRate
+end
+
+local volume             = GetConVar("volume")
+local snd_mute_losefocus = GetConVar("snd_mute_losefocus")
+
+pac.AddHook("Think", "webaudio", function()
+	if not webaudio.Browser.IsInitialized () then
+		if not webaudio.Browser.IsInitializing () then
+			webaudio.Browser.Initialize ()
+		end
+		return
+	end
+
+	-- Update volume
+	if not system.HasFocus() and snd_mute_losefocus:GetBool() then
+		-- Garry's Mod not in foreground and we're not supposed to be making any sound
+		webaudio.Browser.SetVolume(0)
+	else
+		webaudio.Browser.SetVolume(volume:GetFloat())
+	end
+
+	webaudio.Streams.Think()
+	webaudio.Browser.Think()
+end)