feat: soundpacks

Author: googer

data_static/gwater2/locale/gwater2_en.txt

@@ -1149,8 +1149,16 @@ gwater2_adminonly (0-1)
 IN CONSOLE
 ]]
 
+"gwater2.menu.Menu.soundpack"=[[
+Menu Soundpack
+]]
+
+"gwater2.menu.Menu.soundpack.desc"=[[
+Selects menu soundpack - sounds that play when you interact with menu.
+]]
+
 ------------------------
--------- РАЗНОЕ --------
+--------- MISC ---------
 ------------------------
 
 "gwater2.menu.Fluid Preview.title"=[[

data_static/gwater2/locale/gwater2_ru.txt

@@ -1145,12 +1145,21 @@ gwater2_adminonly (0-1)
 В КОНСОЛИ
 ]]
 
+"gwater2.menu.Menu.soundpack"=[[
+Пак Звуков Меню
+]]
+
+"gwater2.menu.Menu.soundpack.desc"=[[
+Выбирает пак звуков меню - звуки которые играют когда вы взаимодействуете с меню.
+]]
+
+
 ------------------------
 -------- РАЗНОЕ --------
 ------------------------
 
 "gwater2.menu.Fluid Preview.title"=[[
-Предпросмотр жидкости
+Предпросмотр
 ]]
 
 "gwater2.menu.Explanation Area.title"=[[

lua/gwater2_menu.lua

@@ -480,7 +480,7 @@ local function create_menu(init)
 	        end
     	})
 
-		if LocalPlayer():IsSuperAdmin() then
+		if LocalPlayer():IsListenServerHost() then
 			_util.make_parameter_check(tab, "Menu.admin_only", "Admin Only", {
 				nosync=true,
 				func=function(val)
@@ -494,6 +494,39 @@ local function create_menu(init)
 				end
 			})
 		end
+
+		local soundpacks = {
+			[1] = "default", ["default"] = 1
+		}
+
+		for _, pack in ipairs(select(-1, file.Find("sound/gwater2/menu/packs/*", "GAME"))) do
+			if pack == "default" then continue end
+			soundpacks[#soundpacks+1] = pack
+			soundpacks[pack] = #soundpacks
+		end
+		local _soundpack_label
+		_util.make_parameter_scratch(tab, "Menu.soundpack", "Sound Pack", {
+			nosync=true,
+	        func=function(val)
+	        	gwater2.options.write_config({["menusp"]=soundpacks[val] or "default"})
+				_soundpack_label:SetText(soundpacks[val] or "default")
+	        	return true
+	        end,
+	        setup=function(slider)
+	        	slider:GetParent().button:Remove()
+				local label = slider:GetParent():Add("DLabel")
+				slider:GetParent().dlabel = label
+				_soundpack_label = label
+				label:Dock(BOTTOM)
+				label:SetText(gwater2.options.read_config().menusp)
+				label:SetFont("GWater2Text")
+				slider:GetParent():SetTall(slider:GetParent():GetTall() * 2)
+	        	slider:SetValue(soundpacks[gwater2.options.read_config().menusp])
+	        	return true
+	        end,
+			min=1,
+			max=#soundpacks
+    	})
 	end
 
 	tabs.help_text = help_text

lua/menu/gwater2_util.lua

@@ -33,7 +33,7 @@ local _styling = include("menu/gwater2_styling.lua")
 
 local function emit_sound(type)
 	if not gwater2.options.read_config().sounds then return end
-	surface.PlaySound("gwater2/menu/"..type..".wav")
+	surface.PlaySound("gwater2/menu/packs/"..(gwater2.options.read_config().menusp or "default").."/"..type..".wav")
 end
 
 local function set_gwater_parameter(option, val, ply)

sound/gwater2/menu/packs/classic/confirm.wav

@@ -0,0 +1,2 @@
+Valve - all of HL2 sounds
+dukeofthechickens - making the soundpack

sound/gwater2/menu/packs/classic/credits.txt

@@ -0,0 +1,2 @@
+Valve - all of HL:A sounds
+googer - making the soundpack