【不是创意的创意】BGM/BGS远小近大v1.0 - Project1

#==============================================================================
# BGM/BGS远小近大
# 原作:沙漠点灰
# 修改：精灵
#==============================================================================
#==============================================================================
# ■ 设定部分
# 所有设定部分都在这里。
#==============================================================================
module FAY
BGM_DURATION = 5 #BGM的减弱距离（不能为0）
BGS_DURATION = 4 #BGS的减弱距离（不能为0）
BGM_VARIABLES = 3 #BGM音乐储存变量ID
BGS_VARIABLES = 4 #BGS音乐储存变量ID
BGM_MAX = 100 #BGM最大音量（默认）
BGS_MAX = 80 #BGS最大音量（默认）
BGM_DISTANCE = 2 #最大音量保持距离
BGS_DISTANCE = 2 #最大音效保持距离
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　处理地图画面的类。
#==============================================================================
class Scene_Map
alias _update update unless method_defined? :_update
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
_update
check_bgm
check_bgs
end
#--------------------------------------------------------------------------
# ● 检查BGM
#--------------------------------------------------------------------------
def check_bgm
if !($bgm or $game_map.events[$bgm_event_id])
if $bgm_stop
$game_system.bgm_restore
$bgm_stop = false
end
else
bgm_x = ($game_player.x - $game_map.events[$bgm_event_id].x)**2
bgm_y = ($game_player.y - $game_map.events[$bgm_event_id].y)**2
$bgm.volume = FAY::BGM_MAX + FAY::BGM_DISTANCE * 4 -
(Math.sqrt(bgm_x+bgm_y)).round*(100/FAY::BGM_DURATION)
$bgm.volume = 0 if $bgm.volume < 0
$bgm.volume = FAY::BGM_MAX if $bgm.volume > FAY::BGM_MAX
$game_variables[FAY::BGM_VARIABLES] = $bgm.volume
$game_system.bgm_play($bgm)
end
return
end
#--------------------------------------------------------------------------
# ● 检查BGS
#--------------------------------------------------------------------------
def check_bgs
if !($bgs or $game_map.events[$bgs_event_id])
if $bgs_stop
$game_system.bgs_restore
$bgs_stop = false
end
else
# 计算距离
bgs_x = ($game_player.x - $game_map.events[$bgs_event_id].x)**2
bgs_y = ($game_player.y - $game_map.events[$bgs_event_id].y)**2
$bgs.volume = FAY::BGS_MAX + FAY::BGS_DISTANCE * 4 -
(Math.sqrt(bgs_x+bgs_y)).round * (100/FAY::BGS_DURATION)
$bgs.volume = 0 if $bgs.volume < 0
$bgs.volume = FAY::BGS_MAX if $bgs.volume > FAY::BGS_MAX
$game_variables[FAY::BGS_VARIABLES] = $bgs.volume
$game_system.bgs_play($bgs)
end
return
end
end
#==============================================================================
# ■ Interpreter (分割定义 8)
#------------------------------------------------------------------------------
# 　执行事件命令的解释器。本类在 Game_System 类
# 和 Game_Event 类的内部使用。
#==============================================================================
class Interpreter
#--------------------------------------------------------------------------
# ● BGM远小近大启动
#--------------------------------------------------------------------------
def bgm_d_start(bgm_id = self.instance_variable_get(:@event_id))
return if $bgm
$bgm_event_id = bgm_id
$bgm = $game_system.bgm_memorize.clone
return true
end
#--------------------------------------------------------------------------
# ● BGM远小近大关闭
#--------------------------------------------------------------------------
def bgm_d_stop
$bgm = nil
$bgm_event_id = nil
$bgm_stop = true
return true
end
#--------------------------------------------------------------------------
# ● BGS远小近大启动
#--------------------------------------------------------------------------
def bgs_d_start(bgs_id = self.instance_variable_get(:@event_id))
# 演奏 BGS
return if $bgs
$bgs_event_id = bgs_id
$bgs = $game_system.bgs_memorize.clone
return true
end
#--------------------------------------------------------------------------
# ● BGS远小近大关闭
#--------------------------------------------------------------------------
def bgs_d_stop
$bgs = nil
$bgs_event_id = nil
$bgs_stop = true
return true
end
end

复制代码