很谢谢啊....大家都是好人啊...

lz没说明计算标准.....我先贴个出来

1. #==============================================================================
   
2. # ■ Scene_Map
   
3. #------------------------------------------------------------------------------
   
4. # 　处理地图画面的类。
   
5. #==============================================================================
   
6. 
   
7. class Scene_Map
   
8.   alias _update update
   
9.   #--------------------------------------------------------------------------
   
10.   # ● 刷新画面
    
11.   #--------------------------------------------------------------------------
    
12.   def update
    
13.     _update
    
14.     check_bgm
    
15.   end
    
16.   #--------------------------------------------------------------------------
    
17.   # ● 检查BGM
    
18.   #--------------------------------------------------------------------------
    
19.   def check_bgm
    
20.     return unless $bgm
    
21.     return unless $game_map.events[$event_id]
    
22.     # 计算距离
    
23.     x = ($game_player.x - $game_map.events[$event_id].x)**2
    
24.     y = ($game_player.y - $game_map.events[$event_id].y)**2
    
25.     $bgm.volume = 110 - Math.sqrt(x+y)*4
    
26.     $game_system.bgm_play($bgm)
    
27.   end
    
28. end
    
29. #==============================================================================
    
30. # ■ Interpreter (分割定义 8)
    
31. #------------------------------------------------------------------------------
    
32. # 　执行事件命令的解释器。本类在 Game_System 类
    
33. # 和 Game_Event 类的内部使用。
    
34. #==============================================================================
    
35. 
    
36. class Interpreter
    
37.   #--------------------------------------------------------------------------
    
38.   # ● 开始BGM
    
39.   #--------------------------------------------------------------------------
    
40.   def bgm_start(id)
    
41.     return if $bgm
    
42.     $event_id = id
    
43.     $bgm = $game_system.bgm_memorize
    
44.   end
    
45.   #--------------------------------------------------------------------------
    
46.   # ● 结束BGM
    
47.   #--------------------------------------------------------------------------
    
48.   def bgm_stop
    
49.     $bgm = nil
    
50.     $event_id = nil
    
51.   end
    
52. end
    

复制代码

计算公式在25行左右...可自行更换，如果lz不懂脚本的话，建议改改25行最后一个数字,
算是灵敏度吧，数字越高，每走一格减的音量越多。

使用方法:
1.将其插到Main前。

2.在事件中，在"脚本"中输入
bgm_start(x)
x代表目标事件编号。

3.完事后，在"脚本"中输入
bgm_stop
即停止计算，建议在此之后插入新bgm,当然仅仅是建议.

图例: