Mehr Mods hinzugefügt

mods/ambience/init.lua

@@ -0,0 +1,367 @@
+
+-- global
+
+ambience = {}
+
+-- settings
+
+local SOUNDVOLUME = 1.0
+local MUSICVOLUME = 0.6
+local MUSICINTERVAL = 60 * 20
+local play_music = core.settings:get_bool("ambience_music") ~= false
+local radius = 6
+local playing = {} -- user settings, timers and current set playing
+local sound_sets = {} -- all the sounds and their settings
+local sound_set_order = {} -- needed because pairs loops randomly through tables
+local set_nodes = {} -- all the nodes needed for sets
+
+-- translation
+
+local S = core.get_translator("ambience")
+
+-- add set to list
+
+function ambience.add_set(set_name, def)
+
+	if not set_name or not def then return end
+
+	sound_sets[set_name] = {
+		frequency = def.frequency or 50,
+		sounds = def.sounds,
+		sound_check = def.sound_check,
+		nodes = def.nodes
+	}
+
+	-- add set name to the sound_set_order table
+	local can_add = true
+
+	for i = 1, #sound_set_order do
+
+		if sound_set_order[i] == set_name then can_add = false end
+	end
+
+	if can_add then table.insert(sound_set_order, set_name) end
+
+	-- add any missing nodes to the set_nodes table
+	if def.nodes then
+
+		for i = 1, #def.nodes do
+
+			can_add = def.nodes[i]
+
+			for j = 1, #set_nodes do
+
+				if def.nodes[i] == set_nodes[j] then can_add = false end
+			end
+
+			if can_add then table.insert(set_nodes, can_add) end
+		end
+	end
+end
+
+-- return set from list using name
+
+function ambience.get_set(set_name)
+	return sound_sets[set_name]
+end
+
+-- remove set from list
+
+function ambience.del_set(set_name)
+
+	sound_sets[set_name] = nil
+
+	local can_del = false
+
+	for i = 1, #sound_set_order do
+
+		if sound_set_order[i] == set_name then can_del = i end
+	end
+
+	if can_del then table.remove(sound_set_order, can_del) end
+end
+
+-- return node total belonging to a specific group:
+
+function ambience.group_total(ntab, ngrp)
+
+	local tot = 0
+	local def, grp
+
+	for _,n in pairs(ntab) do
+
+		def = core.registered_nodes[_]
+		grp = def and def.groups and def.groups[ngrp]
+
+		if grp and grp > 0 then
+			tot = tot + n
+		end
+	end
+
+	return tot
+end
+
+-- setup table when player joins
+
+core.register_on_joinplayer(function(player)
+
+	if player then
+
+		local name = player:get_player_name()
+		local meta = player:get_meta()
+
+		playing[name] = {
+			mvol = tonumber(meta:get_string("ambience.mvol")) or MUSICVOLUME,
+			svol = tonumber(meta:get_string("ambience.svol")) or SOUNDVOLUME,
+			timer = 0,
+			music = 0,
+			music_handler = nil
+		}
+	end
+end)
+
+-- remove table when player leaves
+
+core.register_on_leaveplayer(function(player)
+
+	if player then playing[player:get_player_name()] = nil end
+end)
+
+-- plays music and selects sound set
+
+local function get_ambience(player, tod, name)
+
+	-- if enabled and not already playing, play local/server music on interval check
+	if play_music and playing[name] and playing[name].mvol > 0 then
+
+		-- increase music time interval
+		playing[name].music = playing[name].music + 1
+
+		-- play music on interval check
+		if playing[name].music > MUSICINTERVAL and playing[name].music_handler == nil then
+
+			playing[name].music_handler = core.sound_play("ambience_music", {
+				to_player = name,
+				gain = playing[name].mvol
+			})
+
+			playing[name].music = 0 -- reset interval
+		end
+--print("-- music timer", playing[name].music .. "/" .. MUSICINTERVAL)
+	end
+
+	-- get foot and head level nodes at player position
+	local pos = player:get_pos() ; if not pos then return end
+	local prop = player:get_properties()
+	local eyeh = prop.eye_height or 1.47 -- eye level with fallback
+
+	pos.y = pos.y + eyeh -- head level
+
+	local nod_head = core.get_node(pos).name
+
+	pos.y = (pos.y - eyeh) + 0.2 -- foot level
+
+	local nod_feet = core.get_node(pos).name
+
+	pos.y = pos.y - 0.2 -- reset pos
+
+	-- get all set nodes around player
+	local ps, cn = core.find_nodes_in_area(
+			{x = pos.x - radius, y = pos.y - radius, z = pos.z - radius},
+			{x = pos.x + radius, y = pos.y + radius, z = pos.z + radius}, set_nodes)
+
+	-- loop through sets in order and choose first that meets conditions set
+	for n = 1, #sound_set_order do
+
+		local set = sound_sets[ sound_set_order[n] ]
+
+		if set and set.sound_check then
+
+			-- get biome data
+			local bdata = core.get_biome_data(pos)
+			local biome = bdata and core.get_biome_name(bdata.biome) or ""
+
+			-- pass settings to set function for condition check
+			local set_name, gain = set.sound_check({
+				player = player,
+				pos = pos,
+				tod = tod,
+				totals = cn,
+				positions = ps,
+				head_node = nod_head,
+				feet_node = nod_feet,
+				biome = biome
+			})
+
+			-- if conditions met return set name and gain value
+			if set_name then return set_name, gain end
+		end
+	end
+
+	return nil, nil
+end
+
+-- players routine
+
+local timer = 0
+local random = math.random
+
+core.register_globalstep(function(dtime)
+
+	local players = core.get_connected_players()
+	local pname
+
+	-- reduce sound timer for each player and stop/reset when needed
+	for _, player in pairs(players) do
+
+		pname = player:get_player_name()
+
+		if playing[pname] and playing[pname].timer > 0 then
+
+			playing[pname].timer = playing[pname].timer - dtime
+
+			if playing[pname].timer <= 0 then
+
+				if playing[pname].handler then
+					core.sound_stop(playing[pname].handler)
+				end
+
+				playing[pname].set = nil
+				playing[pname].gain = nil
+				playing[pname].handler = nil
+			end
+		end
+	end
+
+	-- one second timer
+	timer = timer + dtime ; if timer < 1 then return end ; timer = 0
+
+	local number, chance, ambience, handler, ok
+	local tod = core.get_timeofday()
+
+	-- loop through players
+	for _, player in pairs(players) do
+
+		pname = player:get_player_name()
+
+		local set_name, MORE_GAIN = get_ambience(player, tod, pname)
+
+		ok = playing[pname] -- everything starts off ok if player found
+
+		-- are we playing something already?
+		if ok and playing[pname].handler then
+
+			-- stop current sound if another set active or gain changed
+			if playing[pname].set ~= set_name
+			or playing[pname].gain ~= MORE_GAIN then
+
+--print ("-- change stop", set_name, playing[pname].handler)
+
+				core.sound_stop(playing[pname].handler)
+
+				playing[pname].set = nil
+				playing[pname].gain = nil
+				playing[pname].handler = nil
+				playing[pname].timer = 0
+			else
+				ok = false -- sound set still playing, skip new sound
+			end
+		end
+
+		-- set random chance
+		chance = random(1000)
+
+		-- if chance is lower than set frequency then select set
+		if ok and set_name and chance < sound_sets[set_name].frequency then
+
+			number = random(#sound_sets[set_name].sounds) -- choose random sound from set
+			ambience = sound_sets[set_name].sounds[number] -- grab sound information
+
+			-- play sound
+			handler = core.sound_play(ambience.name, {
+				to_player = pname,
+				gain = ((ambience.gain or 0.3) + (MORE_GAIN or 0)) * playing[pname].svol,
+				pitch = ambience.pitch or 1.0
+			}, ambience.ephemeral)
+
+--print ("playing... " .. ambience.name .. " (" .. chance .. " < "
+--		.. sound_sets[set_name].frequency .. ") @ ", MORE_GAIN, handler)
+
+			if handler then
+
+				-- set what player is currently listening to if handler found
+				playing[pname].set = set_name
+				playing[pname].gain = MORE_GAIN
+				playing[pname].handler = handler
+				playing[pname].timer = ambience.length
+			end
+		end
+	end
+end)
+
+-- sound volume command
+
+core.register_chatcommand("svol", {
+	params = S("<svol>"),
+	description = S("set sound volume (0.1 to 1.0)"),
+	privs = {},
+
+	func = function(name, param)
+
+		local svol = tonumber(param) or playing[name].svol
+
+		if svol < 0.1 then svol = 0.1 end
+		if svol > 1.0 then svol = 1.0 end
+
+		local player = core.get_player_by_name(name)
+		local meta = player:get_meta()
+
+		meta:set_string("ambience.svol", svol)
+
+		playing[name].svol = svol
+
+		return true, S("Sound volume set to @1", svol)
+	end
+})
+
+-- music volume command (0 stops music)
+
+core.register_chatcommand("mvol", {
+	params = S("<mvol>"),
+	description = S("set music volume (0.1 to 1.0, 0 to stop music)"),
+	privs = {},
+
+	func = function(name, param)
+
+		local mvol = tonumber(param) or playing[name].mvol
+
+		-- stop music currently playing by setting volume to 0
+		if mvol == 0 and playing[name].music_handler then
+
+			core.sound_stop(playing[name].music_handler)
+
+			playing[name].music_handler = nil
+
+			core.chat_send_player(name, S("Music stopped!"))
+		end
+
+		if mvol < 0 then mvol = 0 end
+		if mvol > 1.0 then mvol = 1.0 end
+
+		local player = core.get_player_by_name(name)
+		local meta = player:get_meta()
+
+		meta:set_string("ambience.mvol", mvol)
+
+		playing[name].mvol = mvol
+
+		return true, S("Music volume set to @1", mvol)
+	end
+})
+
+-- load default sound sets
+
+dofile(core.get_modpath("ambience") .. "/soundsets.lua")
+
+
+print("[MOD] Ambience Lite loaded")