VoxeLibre/mods/PLAYER/mcl_music/init.lua
2023-03-07 15:56:24 +00:00

174 lines
5.1 KiB
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