Project1»广场 › 技术讨论 › RPG Maker VX Ace 讨论区 › 新人请教一个问题：播放任意bgm音乐的脚本代码是什么？ ...

新人请教一个问题：播放任意bgm音乐的脚本代码是什么？

查看数: 3502 | 评论数: 11 | 收藏 1

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

飞翔的小鸟3

发布时间: 2013-11-2 23:33

正文摘要:

本帖最后由飞翔的小鸟3 于 2013-11-3 00:46 编辑各位前辈，是这样的：前几天在ACE的提问区偶然发现有人提问“ 怎么在游戏中更换标题bgm？ ”（地址，这位的问题已经解决了：http://rpg.blue/thread-336928-1-2 ...

飞翔的小鸟3 发表于 2013-11-3 11:49:43

余烬之中发表于 2013-11-3 11:10
Scene_Changebgm
class Scene_Changebgm < Scene_Base
#开始处理

谢谢！真的谢谢你们！！
余烬之中，还有喵呜喵5前辈！
在此向你们辛勤的帮助以示感谢。我的问题已经得到了很好的解决，虽然这个脚本真的很无聊，但我还是得到了你们的真诚相助，我再次表示感谢！
嗯，问题解决了，我可以改为“已经解决”了吧？

点评

飞翔的小鸟3

嗯，知道了。发表于 2013-11-3 11:56

余烬之中

不用自己改，版主会来结算【笑发表于 2013-11-3 11:52

余烬之中 发表于 2013-11-3 11:10:52

飞翔的小鸟3 发表于 2013-11-3 10:40
前辈，这里要做个说明：
1.我本来也没用，但是结果BGM音乐播放出来了，窗口却卡住了。如下：

Scene_Changebgm

RUBY 代码复制

class Scene_Changebgm < Scene_Base
#开始处理
  def start
    super
    @changebgm = Bgm_change.new(0,0)
    create_background
    create_command_window
    @ALLBGMMAX = 5
    @NOWBGM    = 1
    @bgmname = ["","Theme1","Theme2","Theme3","Theme4","Theme5"]
  end
#结束处理
  def terminate
    super
    @changebgm.dispose
    dispose_background
    close_command_window
  end
#生成背景
  def create_background
    @background_sprite = Sprite.new
    @background_sprite.bitmap = SceneManager.background_bitmap
    @background_sprite.color.set(0, 0, 0, 128)
  end
#释放背景
  def dispose_background
    @background_sprite.dispose
  end
#生成窗口指令
  def create_command_window
  @changebgm.set_handler(:biaoti, method(:return_scene))
  @changebgm.set_handler(:last, method(:last))
  @changebgm.set_handler(:next, method(:next))
  @changebgm.set_handler(:savemusic, method(:savemusic))
  end
#关闭窗口指令
  def close_command_window
    @changebgm.dispose
  end
#上一首
  def last 
    if @NOWBGM != 1
      @NOWBGM -= 1
    elsif @NOWBGM = 1
      @NOWBGM = @ALLBGMMAX
    end
    playbgm
  end
#下一首
  def next 
    if @NOWBGM != @ALLBGMMAX
      @NOWBGM += 1
    elsif @NOWBGM = @ALLBGMMAX
      @NOWBGM = 1
    end
    playbgm
  end
#播放音乐
  def playbgm
 
    Audio.bgm_stop
    Audio.bgm_play("Audio/BGM/#{@bgmname[@NOWBGM]}",100,70,0)
  end
#保存当前音乐
  def savemusic
    $data_system.title_bgm = RPG::BGM.new(@bgmname[@NOWBGM])
    save_data($data_system, "Data/System.rvdata2")
    Sound.play_save
    return_scene
  end
end

class Scene_Changebgm < Scene_Base


#开始处理


  def start


    super


    @changebgm = Bgm_change.new(0,0)


    create_background


    create_command_window


    @ALLBGMMAX = 5


    @NOWBGM    = 1


    @bgmname = ["","Theme1","Theme2","Theme3","Theme4","Theme5"]


  end


#结束处理


  def terminate


    super


    @changebgm.dispose


    dispose_background


    close_command_window


  end


#生成背景


  def create_background


    @background_sprite = Sprite.new


    @background_sprite.bitmap = SceneManager.background_bitmap


    @background_sprite.color.set(0, 0, 0, 128)


  end


#释放背景


  def dispose_background


    @background_sprite.dispose


  end


#生成窗口指令


  def create_command_window


  @changebgm.set_handler(:biaoti, method(:return_scene))


  @changebgm.set_handler(:last, method(:last))


  @changebgm.set_handler(:next, method(:next))


  @changebgm.set_handler(:savemusic, method(:savemusic))


  end


#关闭窗口指令


  def close_command_window


    @changebgm.dispose


  end


#上一首


  def last 


    if @NOWBGM != 1


      @NOWBGM -= 1


    elsif @NOWBGM = 1


      @NOWBGM = @ALLBGMMAX


    end


    playbgm


  end


#下一首


  def next 


    if @NOWBGM != @ALLBGMMAX


      @NOWBGM += 1


    elsif @NOWBGM = @ALLBGMMAX


      @NOWBGM = 1


    end


    playbgm


  end


#播放音乐


  def playbgm


 


    Audio.bgm_stop


    Audio.bgm_play("Audio/BGM/#{@bgmname[@NOWBGM]}",100,70,0)


  end


#保存当前音乐


  def savemusic


    $data_system.title_bgm = RPG::BGM.new(@bgmname[@NOWBGM])


    save_data($data_system, "Data/System.rvdata2")


    Sound.play_save


    return_scene


  end


end

class Bgm_change

RUBY 代码复制

class Bgm_change < Window_Command
  def initialize(x,y)
    super
    self.openness = 0
    open
  end
  def make_command_list
    add_command(Vocab::Backbiaoti, :biaoti)
    add_command(Vocab::Last, :last)
    add_command(Vocab::Next, :next)
    add_command(Vocab::Savemusic, :savemusic)
  end
  def process_ok
    super
    activate
  end
end

class Bgm_change < Window_Command


  def initialize(x,y)


    super


    self.openness = 0


    open


  end


  def make_command_list


    add_command(Vocab::Backbiaoti, :biaoti)


    add_command(Vocab::Last, :last)


    add_command(Vocab::Next, :next)


    add_command(Vocab::Savemusic, :savemusic)


  end


  def process_ok


    super


    activate


  end


end

Scene_Title

RUBY 代码复制

#encoding:utf-8
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　标题画面
#==============================================================================
 
class Scene_Title < Scene_Base
  #--------------------------------------------------------------------------
  # ● 开始处理
  #--------------------------------------------------------------------------
  def start
    super
    SceneManager.clear
    Graphics.freeze
    create_background
    create_foreground
    create_command_window
    play_title_music
  end
  #--------------------------------------------------------------------------
  # ● 获取渐变速度
  #--------------------------------------------------------------------------
  def transition_speed
    return 20
  end
  #--------------------------------------------------------------------------
  # ● 结束处理
  #--------------------------------------------------------------------------
  def terminate
    super
    SceneManager.snapshot_for_background
    dispose_background
    dispose_foreground
  end
  #--------------------------------------------------------------------------
  # ● 生成背景
  #--------------------------------------------------------------------------
  def create_background
    @sprite1 = Sprite.new
    @sprite1.bitmap = Cache.title1($data_system.title1_name)
    @sprite2 = Sprite.new
    @sprite2.bitmap = Cache.title2($data_system.title2_name)
    center_sprite(@sprite1)
    center_sprite(@sprite2)
  end
  #--------------------------------------------------------------------------
  # ● 生成背景(gai)
  #--------------------------------------------------------------------------
  def create_background
    beijing = rand(3)
    case beijing
      when 0
        @beijingtwo = "Book"
      when 1
        @beijingtwo = "Castle"
      when 2
        @beijingtwo = "CrossedSwords"
    end
    @sprite1 = Sprite.new
    @sprite1.bitmap = Cache.title1($data_system.title1_name)
    @sprite1.bitmap = Cache.title1(@beijingtwo)
    @sprite2 = Sprite.new
    @sprite2.bitmap = Cache.title2($data_system.title2_name)
    center_sprite(@sprite1)
    center_sprite(@sprite2)
  end
 
  #--------------------------------------------------------------------------
  # ● 生成前景
  #--------------------------------------------------------------------------
  def create_foreground
    @foreground_sprite = Sprite.new
    @foreground_sprite.bitmap = Bitmap.new(Graphics.width, Graphics.height)
    @foreground_sprite.z = 100
    draw_game_title if $data_system.opt_draw_title
  end
  #--------------------------------------------------------------------------
  # ● 绘制游戏标题
  #--------------------------------------------------------------------------
  def draw_game_title
    @foreground_sprite.bitmap.font.size = 48
    rect = Rect.new(0, 0, Graphics.width, Graphics.height / 2)
    @foreground_sprite.bitmap.draw_text(rect, $data_system.game_title, 1)
  end
  #--------------------------------------------------------------------------
  # ● 释放背景
  #--------------------------------------------------------------------------
  def dispose_background
    @sprite1.bitmap.dispose
    @sprite1.dispose
    @sprite2.bitmap.dispose
    @sprite2.dispose
  end
  #--------------------------------------------------------------------------
  # ● 释放前景
  #--------------------------------------------------------------------------
  def dispose_foreground
    @foreground_sprite.bitmap.dispose
    @foreground_sprite.dispose
  end
  #--------------------------------------------------------------------------
  # ● 执行精灵居中
  #--------------------------------------------------------------------------
  def center_sprite(sprite)
    sprite.ox = sprite.bitmap.width / 2
    sprite.oy = sprite.bitmap.height / 2
    sprite.x = Graphics.width / 2
    sprite.y = Graphics.height / 2
  end
  #--------------------------------------------------------------------------
  # ● 生成指令窗口
  #--------------------------------------------------------------------------
  def create_command_window
    @command_window = Window_TitleCommand.new
    @command_window.set_handler(:new_game, method(:command_new_game))
    @command_window.set_handler(:continue, method(:command_continue))
    @command_window.set_handler(:shutdown, method(:command_shutdown))
    @command_window.set_handler(:changebgm, method(:command_changebgm_open))
  end
  #--------------------------------------------------------------------------
  # ● 指令“更改BGM”
  #--------------------------------------------------------------------------
  def command_changebgm_open
    SceneManager.call(Scene_Changebgm)
  end
  #--------------------------------------------------------------------------
  # ● 关闭指令窗口
  #--------------------------------------------------------------------------
  def close_command_window
    @command_window.close
    update until @command_window.close?
  end
  #--------------------------------------------------------------------------
  # ● 指令“开始游戏”
  #--------------------------------------------------------------------------
  def command_new_game
    DataManager.setup_new_game
    close_command_window
    fadeout_all
    $game_map.autoplay
    SceneManager.goto(Scene_Map)
  end
  #--------------------------------------------------------------------------
  # ● 指令“继续游戏”
  #--------------------------------------------------------------------------
  def command_continue
    close_command_window
    SceneManager.call(Scene_Load)
  end
  #--------------------------------------------------------------------------
  # ● 指令“退出游戏”
  #--------------------------------------------------------------------------
  def command_shutdown
    close_command_window
    fadeout_all
    SceneManager.exit
  end
  #--------------------------------------------------------------------------
  # ● 播放标题画面音乐
  #--------------------------------------------------------------------------
  def play_title_music
    $data_system.title_bgm.play
    RPG::BGS.stop
    RPG::ME.stop
  end
end

#encoding:utf-8


#==============================================================================


# ■ Scene_Title


#------------------------------------------------------------------------------


# 　标题画面


#==============================================================================


 


class Scene_Title < Scene_Base


  #--------------------------------------------------------------------------


  # ● 开始处理


  #--------------------------------------------------------------------------


  def start


    super


    SceneManager.clear


    Graphics.freeze


    create_background


    create_foreground


    create_command_window


    play_title_music


  end


  #--------------------------------------------------------------------------


  # ● 获取渐变速度


  #--------------------------------------------------------------------------


  def transition_speed


    return 20


  end


  #--------------------------------------------------------------------------


  # ● 结束处理


  #--------------------------------------------------------------------------


  def terminate


    super


    SceneManager.snapshot_for_background


    dispose_background


    dispose_foreground


  end


  #--------------------------------------------------------------------------


  # ● 生成背景


  #--------------------------------------------------------------------------


  def create_background


    @sprite1 = Sprite.new


    @sprite1.bitmap = Cache.title1($data_system.title1_name)


    @sprite2 = Sprite.new


    @sprite2.bitmap = Cache.title2($data_system.title2_name)


    center_sprite(@sprite1)


    center_sprite(@sprite2)


  end


  #--------------------------------------------------------------------------


  # ● 生成背景(gai)


  #--------------------------------------------------------------------------


  def create_background


    beijing = rand(3)


    case beijing


      when 0


        @beijingtwo = "Book"


      when 1


        @beijingtwo = "Castle"


      when 2


        @beijingtwo = "CrossedSwords"


    end


    @sprite1 = Sprite.new


    @sprite1.bitmap = Cache.title1($data_system.title1_name)


    @sprite1.bitmap = Cache.title1(@beijingtwo)


    @sprite2 = Sprite.new


    @sprite2.bitmap = Cache.title2($data_system.title2_name)


    center_sprite(@sprite1)


    center_sprite(@sprite2)


  end


 


  #--------------------------------------------------------------------------


  # ● 生成前景


  #--------------------------------------------------------------------------


  def create_foreground


    @foreground_sprite = Sprite.new


    @foreground_sprite.bitmap = Bitmap.new(Graphics.width, Graphics.height)


    @foreground_sprite.z = 100


    draw_game_title if $data_system.opt_draw_title


  end


  #--------------------------------------------------------------------------


  # ● 绘制游戏标题


  #--------------------------------------------------------------------------


  def draw_game_title


    @foreground_sprite.bitmap.font.size = 48


    rect = Rect.new(0, 0, Graphics.width, Graphics.height / 2)


    @foreground_sprite.bitmap.draw_text(rect, $data_system.game_title, 1)


  end


  #--------------------------------------------------------------------------


  # ● 释放背景


  #--------------------------------------------------------------------------


  def dispose_background


    @sprite1.bitmap.dispose


    @sprite1.dispose


    @sprite2.bitmap.dispose


    @sprite2.dispose


  end


  #--------------------------------------------------------------------------


  # ● 释放前景


  #--------------------------------------------------------------------------


  def dispose_foreground


    @foreground_sprite.bitmap.dispose


    @foreground_sprite.dispose


  end


  #--------------------------------------------------------------------------


  # ● 执行精灵居中


  #--------------------------------------------------------------------------


  def center_sprite(sprite)


    sprite.ox = sprite.bitmap.width / 2


    sprite.oy = sprite.bitmap.height / 2


    sprite.x = Graphics.width / 2


    sprite.y = Graphics.height / 2


  end


  #--------------------------------------------------------------------------


  # ● 生成指令窗口


  #--------------------------------------------------------------------------


  def create_command_window


    @command_window = Window_TitleCommand.new


    @command_window.set_handler(:new_game, method(:command_new_game))


    @command_window.set_handler(:continue, method(:command_continue))


    @command_window.set_handler(:shutdown, method(:command_shutdown))


    @command_window.set_handler(:changebgm, method(:command_changebgm_open))


  end


  #--------------------------------------------------------------------------


  # ● 指令“更改BGM”


  #--------------------------------------------------------------------------


  def command_changebgm_open


    SceneManager.call(Scene_Changebgm)


  end


  #--------------------------------------------------------------------------


  # ● 关闭指令窗口


  #--------------------------------------------------------------------------


  def close_command_window


    @command_window.close


    update until @command_window.close?


  end


  #--------------------------------------------------------------------------


  # ● 指令“开始游戏”


  #--------------------------------------------------------------------------


  def command_new_game


    DataManager.setup_new_game


    close_command_window


    fadeout_all


    $game_map.autoplay


    SceneManager.goto(Scene_Map)


  end


  #--------------------------------------------------------------------------


  # ● 指令“继续游戏”


  #--------------------------------------------------------------------------


  def command_continue


    close_command_window


    SceneManager.call(Scene_Load)


  end


  #--------------------------------------------------------------------------


  # ● 指令“退出游戏”


  #--------------------------------------------------------------------------


  def command_shutdown


    close_command_window


    fadeout_all


    SceneManager.exit


  end


  #--------------------------------------------------------------------------


  # ● 播放标题画面音乐


  #--------------------------------------------------------------------------


  def play_title_music


    $data_system.title_bgm.play


    RPG::BGS.stop


    RPG::ME.stop


  end


end

Window_TitleCommand

RUBY 代码复制

#encoding:utf-8
#==============================================================================
# ■ Window_TitleCommand
#------------------------------------------------------------------------------
# 　标题画面中，选择“开始游戏／继续游戏”的窗口。
#==============================================================================
 
class Window_TitleCommand < Window_Command
  #--------------------------------------------------------------------------
  # ● 初始化对象
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0)
    update_placement
    select_symbol(:continue) if continue_enabled
    self.openness = 0
    open
  end
  #--------------------------------------------------------------------------
  # ● 获取窗口的宽度
  #--------------------------------------------------------------------------
  def window_width
    return 160
  end
  #--------------------------------------------------------------------------
  # ● 更新窗口的位置
  #--------------------------------------------------------------------------
  def update_placement
    self.x = (Graphics.width - width) / 2
    self.y = (Graphics.height * 1.6 - height) / 2
  end
  #--------------------------------------------------------------------------
  # ● 生成指令列表
  #--------------------------------------------------------------------------
  def make_command_list
    add_command(Vocab::new_game, :new_game)
    add_command(Vocab::continue, :continue, continue_enabled)
    add_command(Vocab::Changebgm,:changebgm)
    add_command(Vocab::shutdown, :shutdown)
  end
  #--------------------------------------------------------------------------
  # ● 获取“继续游戏”选项是否有效
  #--------------------------------------------------------------------------
  def continue_enabled
    DataManager.save_file_exists?
  end
end

#encoding:utf-8


#==============================================================================


# ■ Window_TitleCommand


#------------------------------------------------------------------------------


# 　标题画面中，选择“开始游戏／继续游戏”的窗口。


#==============================================================================


 


class Window_TitleCommand < Window_Command


  #--------------------------------------------------------------------------


  # ● 初始化对象


  #--------------------------------------------------------------------------


  def initialize


    super(0, 0)


    update_placement


    select_symbol(:continue) if continue_enabled


    self.openness = 0


    open


  end


  #--------------------------------------------------------------------------


  # ● 获取窗口的宽度


  #--------------------------------------------------------------------------


  def window_width


    return 160


  end


  #--------------------------------------------------------------------------


  # ● 更新窗口的位置


  #--------------------------------------------------------------------------


  def update_placement


    self.x = (Graphics.width - width) / 2


    self.y = (Graphics.height * 1.6 - height) / 2


  end


  #--------------------------------------------------------------------------


  # ● 生成指令列表


  #--------------------------------------------------------------------------


  def make_command_list


    add_command(Vocab::new_game, :new_game)


    add_command(Vocab::continue, :continue, continue_enabled)


    add_command(Vocab::Changebgm,:changebgm)


    add_command(Vocab::shutdown, :shutdown)


  end


  #--------------------------------------------------------------------------


  # ● 获取“继续游戏”选项是否有效


  #--------------------------------------------------------------------------


  def continue_enabled


    DataManager.save_file_exists?


  end


end

Vocab没有修改

评分

参与人数 1	梦石 +2	收起理由
Sion	+ 2	认可答案

查看全部评分

余烬之中 发表于 2013-11-3 10:26:10

飞翔的小鸟3 发表于 2013-11-3 10:07
谢谢前辈的不吝赐教，又弄好了。
再厚脸皮问一个问题：怎么实现保存当前背景音乐呢？我那个不是保存的方 ...

Scene_Changebgm

RUBY 代码复制

def playbgm
    bgmname = [
               "","Audio/BGM/Theme1","Audio/BGM/Theme2","Audio/BGM/Theme3",
               "Audio/BGM/Theme4","Audio/BGM/Theme5"
               ]
    Audio.bgm_stop 
    filename = bgmname[$NOWBGM]
    Audio.bgm_play(filename,100,70,0)
    SceneManager.goto(Scene_Changebgm)
  end

def playbgm


    bgmname = [


               "","Audio/BGM/Theme1","Audio/BGM/Theme2","Audio/BGM/Theme3",


               "Audio/BGM/Theme4","Audio/BGM/Theme5"


               ]


    Audio.bgm_stop 


    filename = bgmname[$NOWBGM]


    Audio.bgm_play(filename,100,70,0)


    SceneManager.goto(Scene_Changebgm)


  end

不需要SceneManager.goto(Scene_Changebgm)

RUBY 代码复制

def savemusic
    @game_system = Game_System.new
    @game_system.save_bgm
    Sound.play_save
    SceneManager.return
  end

def savemusic


    @game_system = Game_System.new


    @game_system.save_bgm


    Sound.play_save


    SceneManager.return


  end

改为

RUBY 代码复制

def savemusic
    $data_system.title_bgm = bgmname[$NOWBGM]
    save_data($data_system, "Data/System.rvdata2")

def savemusic


    $data_system.title_bgm = bgmname[$NOWBGM]


    save_data($data_system, "Data/System.rvdata2")

飞翔的小鸟3 发表于 2013-11-3 10:19:36

喵呜喵5 发表于 2013-11-3 10:12
这个具体要看你想要实现怎样的保存效果，请描述的清楚一些……

前辈你好，我是想按下“保存BGM”键时，把当前播放的背景音乐保存到数据库里面，这样当下一次打开游戏时，播放的就是上一次自己选的BGM了。类似于在按F9弹出的数据库中----->系统------>改标题画面的音乐。

点评

喵呜喵5

按楼下的方式来，之后load_data一下就好了发表于 2013-11-3 10:31

喵呜喵5 发表于 2013-11-3 10:12:38

这个具体要看你想要实现怎样的保存效果，请描述的清楚一些……

飞翔的小鸟3 发表于 2013-11-3 10:07:26

余烬之中发表于 2013-11-3 09:27
Scene_Changebgm 46行和55行
类似于$NOWBGM + 1的地方
改为$NOWBGM += 1

谢谢前辈的不吝赐教，又弄好了。
再厚脸皮问一个问题：怎么实现保存当前背景音乐呢？我那个不是保存的方法......
这个要用像存档这样的方式吗？

余烬之中 发表于 2013-11-3 09:27:28

飞翔的小鸟3 发表于 2013-11-3 09:13
谢谢这位前辈了，我弄好了。
但想问问为什么播放后一直是第一首和最后一首？
我想可能也就只有@b的值被固 ...

Scene_Changebgm 46行和55行
类似于$NOWBGM + 1的地方
改为$NOWBGM += 1
之前你只是加上，表达式的值改变了，变量还是原来的样子
要赋值

Scene_Title 177

RUBY 代码复制

def command_changebgm_open
    SceneManager.call(Scene_Changebgm)
    @command_window.close
  end

def command_changebgm_open


    SceneManager.call(Scene_Changebgm)


    @command_window.close


  end

改为

RUBY 代码复制

def command_changebgm_open
    SceneManager.call(Scene_Changebgm)
  end

def command_changebgm_open


    SceneManager.call(Scene_Changebgm)


  end

场景转换不需要关闭窗口

Vocab不建议使用Next
next好像就是一个保留字还是关键字什么的…………

飞翔的小鸟3 发表于 2013-11-3 09:13:38

本帖最后由飞翔的小鸟3 于 2013-11-3 09:25 编辑

喵呜喵5 发表于 2013-11-3 00:35
Audio.bgm_play(filename,100,70,0)即可
大括号的意思表示后面几个参数已经有了默认的定义值所以偷懒的话这 ...

谢谢这位前辈了，我弄好了。
但想问问为什么播放后一直是第一首和最后一首？
我想可能也就只有@b的值被固定为1了？这个是怎么回事？我不是把@ b 的值去运算了吗？
下面是我的场景类中自己写的脚本：（前辈那个简化的方法有点看不懂...抱歉...）

RUBY 代码复制

class Scene_Changebgm<Scene_Base
  $ALLBGMMAX = 5
  $NOWBGM    = 1
#开始处理
  def start
    super
    @changebgm = Bgm_change.new(0,0)
    create_background
    create_command_window
  end
#结束处理
  def terminate
    super
    @changebgm.dispose
    dispose_background
    close_command_window
  end
#生成背景
  def create_background
    @background_sprite = Sprite.new
    @background_sprite.bitmap = SceneManager.background_bitmap
    @background_sprite.color.set(0, 0, 0, 128)
  end
#释放背景
  def dispose_background
    @background_sprite.dispose
  end
#生成窗口指令
  def create_command_window
  @changebgm.set_handler(:biaoti, method(:biaotiback))
  @changebgm.set_handler(:last, method(:last))
  @changebgm.set_handler(:next, method(:next))
  @changebgm.set_handler(:savemusic, method(:savemusic))
  end
#关闭窗口指令
  def close_command_window
    @changebgm.dispose
  end
#返回标题画面
  def biaotiback
    SceneManager.return
  end
#上一首
  def last 
    if $NOWBGM != 1
      $NOWBGM - 1
    else $NOWBGM = 1
      $NOWBGM = $ALLBGMMAX
    end
    playbgm
  end
#下一首
  def next 
    if $NOWBGM != $ALLBGMMAX
      $NOWBGM + 1
    else $NOWBGM = $ALLBGMMAX
      $NOWBGM = 1
    end
    playbgm
  end
#播放音乐
  def playbgm
    bgmname = [
               "","Audio/BGM/Theme1","Audio/BGM/Theme2","Audio/BGM/Theme3",
               "Audio/BGM/Theme4","Audio/BGM/Theme5"
               ]
    Audio.bgm_stop 
    filename = bgmname[$NOWBGM]
    Audio.bgm_play(filename,100,70,0)
    SceneManager.goto(Scene_Changebgm)
  end
#保存当前音乐（这个莫名其妙，好像没用？）
  def savemusic
    @game_system = Game_System.new
    @game_system.save_bgm
    Sound.play_save
    SceneManager.return
  end
end

class Scene_Changebgm<Scene_Base


  $ALLBGMMAX = 5


  $NOWBGM    = 1


#开始处理


  def start


    super


    @changebgm = Bgm_change.new(0,0)


    create_background


    create_command_window


  end


#结束处理


  def terminate


    super


    @changebgm.dispose


    dispose_background


    close_command_window


  end


#生成背景


  def create_background


    @background_sprite = Sprite.new


    @background_sprite.bitmap = SceneManager.background_bitmap


    @background_sprite.color.set(0, 0, 0, 128)


  end


#释放背景


  def dispose_background


    @background_sprite.dispose


  end


#生成窗口指令


  def create_command_window


  @changebgm.set_handler(:biaoti, method(:biaotiback))


  @changebgm.set_handler(:last, method(:last))


  @changebgm.set_handler(:next, method(:next))


  @changebgm.set_handler(:savemusic, method(:savemusic))


  end


#关闭窗口指令


  def close_command_window


    @changebgm.dispose


  end


#返回标题画面


  def biaotiback


    SceneManager.return


  end


#上一首


  def last 


    if $NOWBGM != 1


      $NOWBGM - 1


    else $NOWBGM = 1


      $NOWBGM = $ALLBGMMAX


    end


    playbgm


  end


#下一首


  def next 


    if $NOWBGM != $ALLBGMMAX


      $NOWBGM + 1


    else $NOWBGM = $ALLBGMMAX


      $NOWBGM = 1


    end


    playbgm


  end


#播放音乐


  def playbgm


    bgmname = [


               "","Audio/BGM/Theme1","Audio/BGM/Theme2","Audio/BGM/Theme3",


               "Audio/BGM/Theme4","Audio/BGM/Theme5"


               ]


    Audio.bgm_stop 


    filename = bgmname[$NOWBGM]


    Audio.bgm_play(filename,100,70,0)


    SceneManager.goto(Scene_Changebgm)


  end


#保存当前音乐（这个莫名其妙，好像没用？）


  def savemusic


    @game_system = Game_System.new


    @game_system.save_bgm


    Sound.play_save


    SceneManager.return


  end


end

注：
我的脚本大多是在原脚本上修改的，所以下面是我在原脚本中定义的一些代码（用###夹起来的代码）：

Vocab模块

RUBY 代码复制

module Vocab
############################下面
  Changebgm       = "更换bgm" 
  Next            = "下一首"
  Last            = "上一首"
  Backbiaoti      = "返回标题"
  Onbgm           = "选择音乐"
  Savemusic       = "保存音乐"
##############################上面
end

module Vocab


############################下面


  Changebgm       = "更换bgm" 


  Next            = "下一首"


  Last            = "上一首"


  Backbiaoti      = "返回标题"


  Onbgm           = "选择音乐"


  Savemusic       = "保存音乐"


##############################上面


end

Window_TitleCommand类

RUBY 代码复制

class Window_TitleCommand < Window_Command
  #--------------------------------------------------------------------------
  # ● 初始化对象
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0)
    update_placement
    select_symbol(:continue) if continue_enabled
    self.openness = 0
    open
  end
  #--------------------------------------------------------------------------
  # ● 获取窗口的宽度
  #--------------------------------------------------------------------------
  def window_width
    return 160
  end
  #--------------------------------------------------------------------------
  # ● 更新窗口的位置
  #--------------------------------------------------------------------------
  def update_placement
    self.x = (Graphics.width - width) / 2
    self.y = (Graphics.height * 1.6 - height) / 2
  end
  #--------------------------------------------------------------------------
  # ● 生成指令列表
  #--------------------------------------------------------------------------
  def make_command_list
    add_command(Vocab::new_game, :new_game)
    add_command(Vocab::continue, :continue, continue_enabled)
#############################################下面
    add_command(Vocab::Changebgm,:changebgm)
###############################################上面
    add_command(Vocab::shutdown, :shutdown)
  end
  #--------------------------------------------------------------------------
  # ● 获取“继续游戏”选项是否有效
  #--------------------------------------------------------------------------
  def continue_enabled
    DataManager.save_file_exists?
  end
end

class Window_TitleCommand < Window_Command


  #--------------------------------------------------------------------------


  # ● 初始化对象


  #--------------------------------------------------------------------------


  def initialize


    super(0, 0)


    update_placement


    select_symbol(:continue) if continue_enabled


    self.openness = 0


    open


  end


  #--------------------------------------------------------------------------


  # ● 获取窗口的宽度


  #--------------------------------------------------------------------------


  def window_width


    return 160


  end


  #--------------------------------------------------------------------------


  # ● 更新窗口的位置


  #--------------------------------------------------------------------------


  def update_placement


    self.x = (Graphics.width - width) / 2


    self.y = (Graphics.height * 1.6 - height) / 2


  end


  #--------------------------------------------------------------------------


  # ● 生成指令列表


  #--------------------------------------------------------------------------


  def make_command_list


    add_command(Vocab::new_game, :new_game)


    add_command(Vocab::continue, :continue, continue_enabled)


#############################################下面


    add_command(Vocab::Changebgm,:changebgm)


###############################################上面


    add_command(Vocab::shutdown, :shutdown)


  end


  #--------------------------------------------------------------------------


  # ● 获取“继续游戏”选项是否有效


  #--------------------------------------------------------------------------


  def continue_enabled


    DataManager.save_file_exists?


  end


end

一个window类的简单窗口

RUBY 代码复制

class Bgm_change<Window_Command
#####################################下面
  def initialize(x,y)
    super
    self.openness = 0
    open
  end
  def make_command_list
    add_command(Vocab::Backbiaoti, :biaoti)
    add_command(Vocab::Last, :last)
    add_command(Vocab::Next, :next)
    add_command(Vocab::Savemusic, :savemusic)
  end
end
##########################################上面

class Bgm_change<Window_Command


#####################################下面


  def initialize(x,y)


    super


    self.openness = 0


    open


  end


  def make_command_list


    add_command(Vocab::Backbiaoti, :biaoti)


    add_command(Vocab::Last, :last)


    add_command(Vocab::Next, :next)


    add_command(Vocab::Savemusic, :savemusic)


  end


end


##########################################上面

Scene_Title类

RUBY 代码复制

class Scene_Title < Scene_Base
  #--------------------------------------------------------------------------
  # ● 开始处理
  #--------------------------------------------------------------------------
  def start
    super
    SceneManager.clear
    Graphics.freeze
    create_background
    create_foreground
    create_command_window
    play_title_music
  end
  #--------------------------------------------------------------------------
  # ● 获取渐变速度
  #--------------------------------------------------------------------------
  def transition_speed
    return 20
  end
  #--------------------------------------------------------------------------
  # ● 结束处理
  #--------------------------------------------------------------------------
  def terminate
    super
    SceneManager.snapshot_for_background
    dispose_background
    dispose_foreground
  end
  #--------------------------------------------------------------------------
  # ● 生成背景
  #--------------------------------------------------------------------------
  def create_background
    @sprite1 = Sprite.new
    @sprite1.bitmap = Cache.title1($data_system.title1_name)
    @sprite2 = Sprite.new
    @sprite2.bitmap = Cache.title2($data_system.title2_name)
    center_sprite(@sprite1)
    center_sprite(@sprite2)
  end
  #--------------------------------------------------------------------------
  # ● 生成背景(gai)
  #--------------------------------------------------------------------------
  def create_background
    beijing = rand(3)
    case beijing
      when 0
        @beijingtwo = "Book"
      when 1
        @beijingtwo = "Castle"
      when 2
        @beijingtwo = "CrossedSwords"
    end
    @sprite1 = Sprite.new
    @sprite1.bitmap = Cache.title1($data_system.title1_name)
    @sprite1.bitmap = Cache.title1(@beijingtwo)
    @sprite2 = Sprite.new
    @sprite2.bitmap = Cache.title2($data_system.title2_name)
    center_sprite(@sprite1)
    center_sprite(@sprite2)
  end
 
  #--------------------------------------------------------------------------
  # ● 生成前景
  #--------------------------------------------------------------------------
  def create_foreground
    @foreground_sprite = Sprite.new
    @foreground_sprite.bitmap = Bitmap.new(Graphics.width, Graphics.height)
    @foreground_sprite.z = 100
    draw_game_title if $data_system.opt_draw_title
  end
  #--------------------------------------------------------------------------
  # ● 绘制游戏标题
  #--------------------------------------------------------------------------
  def draw_game_title
    @foreground_sprite.bitmap.font.size = 48
    rect = Rect.new(0, 0, Graphics.width, Graphics.height / 2)
    @foreground_sprite.bitmap.draw_text(rect, $data_system.game_title, 1)
  end
  #--------------------------------------------------------------------------
  # ● 释放背景
  #--------------------------------------------------------------------------
  def dispose_background
    @sprite1.bitmap.dispose
    @sprite1.dispose
    @sprite2.bitmap.dispose
    @sprite2.dispose
  end
  #--------------------------------------------------------------------------
  # ● 释放前景
  #--------------------------------------------------------------------------
  def dispose_foreground
    @foreground_sprite.bitmap.dispose
    @foreground_sprite.dispose
  end
  #--------------------------------------------------------------------------
  # ● 执行精灵居中
  #--------------------------------------------------------------------------
  def center_sprite(sprite)
    sprite.ox = sprite.bitmap.width / 2
    sprite.oy = sprite.bitmap.height / 2
    sprite.x = Graphics.width / 2
    sprite.y = Graphics.height / 2
  end
  #--------------------------------------------------------------------------
  # ● 生成指令窗口
  #--------------------------------------------------------------------------
  def create_command_window
    @command_window = Window_TitleCommand.new
    @command_window.set_handler(:new_game, method(:command_new_game))
    @command_window.set_handler(:continue, method(:command_continue))
    @command_window.set_handler(:shutdown, method(:command_shutdown))
#################################################下面
   @command_window.set_handler(:changebgm, method(:command_changebgm_open))
################################################上面
  end
#################################################下面
  def command_changebgm_open
    SceneManager.call(Scene_Changebgm)
    @command_window.close
  end
##################################################上面
  #--------------------------------------------------------------------------
  # ● 关闭指令窗口
  #--------------------------------------------------------------------------
  def close_command_window
    @command_window.close
    update until @command_window.close?
  end
  #--------------------------------------------------------------------------
  #
  def command_changebgm
    @changebgm = Bgm_change.new(0,0)
  end
  #--------------------------------------------------------------------------
  # ● 指令“开始游戏”
  #--------------------------------------------------------------------------
  def command_new_game
    DataManager.setup_new_game
    close_command_window
    fadeout_all
    $game_map.autoplay
    SceneManager.goto(Scene_Map)
  end
  #--------------------------------------------------------------------------
  # ● 指令“继续游戏”
  #--------------------------------------------------------------------------
  def command_continue
    close_command_window
    SceneManager.call(Scene_Load)
  end
  #--------------------------------------------------------------------------
  # ● 指令“退出游戏”
  #--------------------------------------------------------------------------
  def command_shutdown
    close_command_window
    fadeout_all
    SceneManager.exit
  end
  #--------------------------------------------------------------------------
  # ● 播放标题画面音乐
  #--------------------------------------------------------------------------
  def play_title_music
    $data_system.title_bgm.play
    RPG::BGS.stop
    RPG::ME.stop
  end
end

class Scene_Title < Scene_Base


  #--------------------------------------------------------------------------


  # ● 开始处理


  #--------------------------------------------------------------------------


  def start


    super


    SceneManager.clear


    Graphics.freeze


    create_background


    create_foreground


    create_command_window


    play_title_music


  end


  #--------------------------------------------------------------------------


  # ● 获取渐变速度


  #--------------------------------------------------------------------------


  def transition_speed


    return 20


  end


  #--------------------------------------------------------------------------


  # ● 结束处理


  #--------------------------------------------------------------------------


  def terminate


    super


    SceneManager.snapshot_for_background


    dispose_background


    dispose_foreground


  end


  #--------------------------------------------------------------------------


  # ● 生成背景


  #--------------------------------------------------------------------------


  def create_background


    @sprite1 = Sprite.new


    @sprite1.bitmap = Cache.title1($data_system.title1_name)


    @sprite2 = Sprite.new


    @sprite2.bitmap = Cache.title2($data_system.title2_name)


    center_sprite(@sprite1)


    center_sprite(@sprite2)


  end


  #--------------------------------------------------------------------------


  # ● 生成背景(gai)


  #--------------------------------------------------------------------------


  def create_background


    beijing = rand(3)


    case beijing


      when 0


        @beijingtwo = "Book"


      when 1


        @beijingtwo = "Castle"


      when 2


        @beijingtwo = "CrossedSwords"


    end


    @sprite1 = Sprite.new


    @sprite1.bitmap = Cache.title1($data_system.title1_name)


    @sprite1.bitmap = Cache.title1(@beijingtwo)


    @sprite2 = Sprite.new


    @sprite2.bitmap = Cache.title2($data_system.title2_name)


    center_sprite(@sprite1)


    center_sprite(@sprite2)


  end


 


  #--------------------------------------------------------------------------


  # ● 生成前景


  #--------------------------------------------------------------------------


  def create_foreground


    @foreground_sprite = Sprite.new


    @foreground_sprite.bitmap = Bitmap.new(Graphics.width, Graphics.height)


    @foreground_sprite.z = 100


    draw_game_title if $data_system.opt_draw_title


  end


  #--------------------------------------------------------------------------


  # ● 绘制游戏标题


  #--------------------------------------------------------------------------


  def draw_game_title


    @foreground_sprite.bitmap.font.size = 48


    rect = Rect.new(0, 0, Graphics.width, Graphics.height / 2)


    @foreground_sprite.bitmap.draw_text(rect, $data_system.game_title, 1)


  end


  #--------------------------------------------------------------------------


  # ● 释放背景


  #--------------------------------------------------------------------------


  def dispose_background


    @sprite1.bitmap.dispose


    @sprite1.dispose


    @sprite2.bitmap.dispose


    @sprite2.dispose


  end


  #--------------------------------------------------------------------------


  # ● 释放前景


  #--------------------------------------------------------------------------


  def dispose_foreground


    @foreground_sprite.bitmap.dispose


    @foreground_sprite.dispose


  end


  #--------------------------------------------------------------------------


  # ● 执行精灵居中


  #--------------------------------------------------------------------------


  def center_sprite(sprite)


    sprite.ox = sprite.bitmap.width / 2


    sprite.oy = sprite.bitmap.height / 2


    sprite.x = Graphics.width / 2


    sprite.y = Graphics.height / 2


  end


  #--------------------------------------------------------------------------


  # ● 生成指令窗口


  #--------------------------------------------------------------------------


  def create_command_window


    @command_window = Window_TitleCommand.new


    @command_window.set_handler(:new_game, method(:command_new_game))


    @command_window.set_handler(:continue, method(:command_continue))


    @command_window.set_handler(:shutdown, method(:command_shutdown))


#################################################下面


   @command_window.set_handler(:changebgm, method(:command_changebgm_open))


################################################上面


  end


#################################################下面


  def command_changebgm_open


    SceneManager.call(Scene_Changebgm)


    @command_window.close


  end


##################################################上面


  #--------------------------------------------------------------------------


  # ● 关闭指令窗口


  #--------------------------------------------------------------------------


  def close_command_window


    @command_window.close


    update until @command_window.close?


  end


  #--------------------------------------------------------------------------


  #


  def command_changebgm


    @changebgm = Bgm_change.new(0,0)


  end


  #--------------------------------------------------------------------------


  # ● 指令“开始游戏”


  #--------------------------------------------------------------------------


  def command_new_game


    DataManager.setup_new_game


    close_command_window


    fadeout_all


    $game_map.autoplay


    SceneManager.goto(Scene_Map)


  end


  #--------------------------------------------------------------------------


  # ● 指令“继续游戏”


  #--------------------------------------------------------------------------


  def command_continue


    close_command_window


    SceneManager.call(Scene_Load)


  end


  #--------------------------------------------------------------------------


  # ● 指令“退出游戏”


  #--------------------------------------------------------------------------


  def command_shutdown


    close_command_window


    fadeout_all


    SceneManager.exit


  end


  #--------------------------------------------------------------------------


  # ● 播放标题画面音乐


  #--------------------------------------------------------------------------


  def play_title_music


    $data_system.title_bgm.play


    RPG::BGS.stop


    RPG::ME.stop


  end


end

可能有点乱....我等等看看再改改排版....

点评

喵呜喵5

0对3取余为0， 1对3取余为1，2对3取余为2，3对3取余为0，4对3取余为1……取余主要就是让你不需要判断当前数字是几也能在一串数字中循环发表于 2013-11-3 10:16

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

新人请教一个问题：播放任意bgm音乐的脚本代码是什么？

正文摘要:

回复

点评

评分

点评

点评