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

精灵使者 · 发表于 2012-9-11 14:10:14

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由精灵使者于 2012-9-12 12:30 编辑

#==============================================================================
# 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

复制代码

使用方法：
开启此脚本：在需要的事件里写bgm_d_start（如果指定某事件就请带参数（bgm_start(你指定的事件ID））
关闭此脚本使用bgm_d_stop /bgs_d_stop（任意事件均可，回复默认的声音大小）
具体距离，使用变量等请在脚本设定部分设置

YeYe. · 发表于 2012-9-11 14:24:47

精灵真厉害~
于是沙发就是我的了！

X幻夜 · 发表于 2012-9-11 14:56:01

好物篝火之类的可以用

zy625741178 · 发表于 2012-9-12 01:37:34

无法拷贝啊...喂....

zy625741178 · 发表于 2012-9-12 12:29:15

............

zy625741178 · 发表于 2012-9-12 22:31:50

本帖最后由 zy625741178 于 2012-9-12 22:37 编辑

zy625741178 发表于 2012-9-12 12:29
............

thank you.太感谢了...但是为什么我进去房间之后动不了啊....

chd114 · 发表于 2012-9-15 09:57:28

不太明白···是离某个东西越远声音越小的意思吗？》

帐号		自动登录	找回密码
密码			注册会员

[原创发布] 【不是创意的创意】BGM/BGS远小近大v1.0

加入我们，或者，欢迎回来。

点评

点评

开拓者

贵宾