VoxeLibre/mods/PLAYER/mcl_music/init.lua

local modname = minetest.get_current_modname()
local modpath = minetest.get_modpath(modname)

local music_enabled = minetest.settings:get_bool("mcl_game_music", true)

local pianowtune  = "diminixed-pianowtune01"
local end_tune    = "diminixed-ambientwip"
local nether_tune = "horizonchris96-traitor"
local odd_block = "Jester-0dd-BL0ck"
local flock_of_one = "Jester-Flock-of-One"
local gift = "Jester-Gift"
local hailing_forest = "Jester-Hailing_Forest"
local lonely_blossom = "exhale_and_tim_unwin-lonely_blossom"
local valley_of_ghosts = "exhale_and_tim_unwin-valley_of_ghosts"

local dimension_to_base_track = {
	["overworld"]	= {pianowtune, flock_of_one, gift, hailing_forest, lonely_blossom},
	["nether"]		= {nether_tune, valley_of_ghosts},
	["end"]			= {end_tune},
	["mining"]		= {odd_block},
}

local listeners = {}

local weather_state

local function pick_track(dimension, underground)
	local track_key

	if dimension == "overworld" and underground then
		track_key = "mining"
	else
		-- Pick random dimension song
		track_key = dimension
	end

	local dimension_tracks = dimension_to_base_track[track_key]

	if dimension_tracks and #dimension_tracks >= 1 then
		local index = 1
		if #dimension_tracks > 1 then
			index = math.random(1, #dimension_tracks)
		end
		local chosen_track = dimension_tracks[index]
		--minetest.log("chosen_track: " .. chosen_track)
		minetest.log("action", "[mcl_music] Playing track: " .. chosen_track .. ", for context: " .. track_key)
		return chosen_track
	else
		--?
	end

	return nil
end


local function stop_music_for_listener_name(listener_name)
	if not listener_name then return end
	local listener = listeners[listener_name]
	if not listener then return end
	local handle = listener.handle
	if not handle then return end

	minetest.log("action", "[mcl_music] Stopping music")
	minetest.sound_stop(handle)
	listeners[listener_name].handle = nil
end

local function stop_music_for_all()
	for _, player in pairs(minetest.get_connected_players()) do
		local player_name = player:get_player_name()
		stop_music_for_listener_name(player_name)
	end
end

local function play_song(track, player_name, hp, dimension, day_count, underground)
	local spec = {
		name  = track,
		gain  = 0.3,
		pitch = 1.0,
	}
	local parameters = {
		to_player = player_name,
		gain      = 1.0,
		fade      = 0.0,
		pitch     = 1.0,
	}
	local handle = minetest.sound_play(spec, parameters, false)
	listeners[player_name] = {
		handle     = handle,
		hp         = hp,
		dimension  = dimension,
		day_count  = day_count,
		underground  = underground,
	}
end

local function play()
	local new_weather_state = mcl_weather.get_weather()
	local was_good_weather = weather_state == "none" or weather_state == "clear"
	weather_state = new_weather_state
	local is_good_weather = weather_state == "none" or weather_state == "clear"
	local is_weather_changed = weather_state ~= new_weather_state

	local time = minetest.get_timeofday()
	if time < 0.25 or time >= 0.75 then
		stop_music_for_all()
		minetest.after(10, play)
		return
	end

	local day_count = minetest.get_day_count()
	for _, player in pairs(minetest.get_connected_players()) do
		local player_name = player:get_player_name()
		local hp          = player:get_hp()
		local pos         = player:get_pos()

		local dimension   = mcl_worlds.pos_to_dimension(pos)

		local underground = dimension == "overworld" and pos and pos.y < 0

		local listener      = listeners[player_name]
		local handle = listener and listener.handle

		local old_hp			= listener and listener.hp
		local old_dimension		= listener and listener.dimension
		local old_underground	= listener and listener.underground

		local is_dimension_changed = old_dimension and (old_dimension ~= dimension) or false
		local is_hp_changed = old_hp and (math.abs(old_hp - hp) > 0.00001) or false
		local underground_changed = old_underground and underground ~= old_underground


		--minetest.log("handle: " .. dump (handle))
		if is_hp_changed or is_dimension_changed or underground_changed
				or (dimension == "overworld" and (is_weather_changed or not is_good_weather)) then
			stop_music_for_listener_name(player_name)
			if not listeners[player_name] then
				listeners[player_name] = {}
			end
			listeners[player_name].hp = hp
			listeners[player_name].dimension = dimension
			listeners[player_name].underground = underground
		elseif not handle and (not listener or (listener.day_count ~= day_count)) then
			local track = pick_track(dimension, underground)
			if track then
				play_song(track, player_name, hp, dimension, day_count, underground)
			else
				--minetest.log("no track found. weird")
			end
		else
			--minetest.log("else")
		end
	end

	minetest.after(7, play)
end

if music_enabled then
	minetest.log("action", "[mcl_music] In-game music is activated")
	minetest.after(15, play)

	minetest.register_on_joinplayer(function(player, last_login)
		local player_name = player:get_player_name()
		stop_music_for_listener_name(player_name)
	end)

	minetest.register_on_respawnplayer(function(player)
		local player_name = player:get_player_name()
		stop_music_for_listener_name(player_name)
	end)
else
	minetest.log("action", "[mcl_music] In-game music is deactivated")
end