98 lines
1.7 KiB
Lua
98 lines
1.7 KiB
Lua
bgm = {
|
|
credit_roll = {
|
|
gm3 = love.audio.newSource("res/bgm/tgm_credit_roll.mp3", "stream"),
|
|
},
|
|
pacer_test = love.audio.newSource("res/bgm/pacer_test.mp3", "stream"),
|
|
}
|
|
|
|
local current_bgm = nil
|
|
local pitch = 1
|
|
local bgm_locked = false
|
|
|
|
function switchBGM(sound, subsound)
|
|
if bgm_locked then
|
|
return
|
|
end
|
|
if current_bgm ~= nil then
|
|
current_bgm:stop()
|
|
end
|
|
if config.bgm_volume <= 0 then
|
|
current_bgm = nil
|
|
elseif sound ~= nil then
|
|
if subsound ~= nil then
|
|
current_bgm = bgm[sound][subsound]
|
|
else
|
|
current_bgm = bgm[sound]
|
|
end
|
|
else
|
|
current_bgm = nil
|
|
end
|
|
if current_bgm ~= nil then
|
|
resetBGMFadeout()
|
|
end
|
|
end
|
|
|
|
function switchBGMLoop(sound, subsound)
|
|
switchBGM(sound, subsound)
|
|
if current_bgm then current_bgm:setLooping(true) end
|
|
end
|
|
|
|
function lockBGM()
|
|
bgm_locked = true
|
|
end
|
|
|
|
function unlockBGM()
|
|
bgm_locked = false
|
|
end
|
|
|
|
local fading_bgm = false
|
|
local fadeout_time = 0
|
|
local total_fadeout_time = 0
|
|
|
|
function fadeoutBGM(time)
|
|
if fading_bgm == false then
|
|
fading_bgm = true
|
|
fadeout_time = time
|
|
total_fadeout_time = time
|
|
end
|
|
end
|
|
|
|
function resetBGMFadeout(time)
|
|
current_bgm:setVolume(config.bgm_volume)
|
|
fading_bgm = false
|
|
resumeBGM()
|
|
end
|
|
|
|
function processBGMFadeout(dt)
|
|
if current_bgm and fading_bgm then
|
|
fadeout_time = fadeout_time - dt
|
|
if fadeout_time < 0 then
|
|
fadeout_time = 0
|
|
fading_bgm = false
|
|
end
|
|
current_bgm:setVolume(
|
|
fadeout_time * config.bgm_volume / total_fadeout_time
|
|
)
|
|
end
|
|
end
|
|
|
|
function pauseBGM()
|
|
if current_bgm ~= nil then
|
|
current_bgm:pause()
|
|
end
|
|
end
|
|
|
|
function resumeBGM()
|
|
if current_bgm ~= nil then
|
|
current_bgm:play()
|
|
current_bgm:setPitch(pitch)
|
|
end
|
|
end
|
|
|
|
function pitchBGM(new_pitch)
|
|
pitch = new_pitch
|
|
if current_bgm ~= nil then
|
|
current_bgm:setPitch(pitch)
|
|
end
|
|
end
|