音乐播放器脚本请求修正。

89444640

音乐播放器脚本，很久以前下的
使用方式是建立的道具公用事件
写上我看不懂什么意思的代码
$scene = Scene_music.new
# $scene 为有效的情况下调用 main 过程
while $scene != nil
   $scene.main
end
然后使用道具就而可以出现播放菜单，但是
一直有一些bug
比如用了以后存盘，再读盘就会存档损坏什么的
现在更好，直接给我跳这个，用都没法用了。
请问是什么原因，如何修正呢？



[pre lang="ruby"]#==============================================================================
# ■ Scene_Title音乐播放脚本，来自日本网站http://chronicle.onmitsu.jp
#    由isul和link006007帮助修改
#==============================================================================

class Scene_music
#--------------------------------------------------------------------------
# ● メイン処理
#--------------------------------------------------------------------------
def main
  # データベースをロード
  $data_system = load_data("Data/System.rxdata")
  # システムオブジェクトを作成
  $game_system = Game_System.new
  # ファイルリストを作成
  @filelist = Dir::entries("./Audio/BGM/")
  @filelist.delete(".")
  @filelist.delete("..")
  if @filelist == []
    # ウィンドウを作成
    @filelist_window = Window_Base.new(0,0,360,480)
    @filelist_window.contents = Bitmap.new(328,448)
    @filelist_window.contents.font.color = Color.new(192, 224, 255, 255)
    @filelist_window.contents.draw_text(0,100,328,32,"ファイルが見つかりません",1)
    @filelist_window.contents.font.size = 16
    @filelist_window.contents.font.color = Color.new(255, 255, 255, 255)
    @filelist_window.contents.draw_text(0,150,328,32,"「Audio/BGM」フォルダに",1)
    @filelist_window.contents.draw_text(0,182,328,32,"オーディオファイルを入れてください",1)
  else
    # ウィンドウを作成
    @filelist_window = Window_Command.new(360, @filelist)
    @filelist_window.height = 480
    @filelist_window.x = 0
    @filelist_window.y = 0
  end
  @s_status_window = Window_Sound_State.new(360,0,280,200)
  @s_status_window.active = false
  @key_help_window = Window_Key_Help.new(360,200,280,280)
  @bgm = RPG::AudioFile.new
  @bgm.volume = 100
  @bgm.pitch = 100
  # トランジション実行
  Graphics.transition
  # メインループ
  loop do
    # ゲーム画面を更新
    Graphics.update
    # 入力情報を更新
    Input.update
    # フレーム更新
    update
    # 画面が切り替わったらループを中断
    if $scene != self
      break
    end
  end
  # トランジション準備
  Graphics.freeze
  # ウィンドウを解放
  @filelist_window.dispose
  @s_status_window.dispose
  @key_help_window.dispose
end
#--------------------------------------------------------------------------
# ● フレーム更新
#--------------------------------------------------------------------------
def update
  if @filelist != []
    @filelist_window.update
    @s_status_window.update
    # C ボタンが押された場合
      if Input.trigger?(Input::C)
      @bgm.name = @filelist[@filelist_window.index]
      @s_status_window.set_data(@bgm)
      $game_system.bgm_play(@bgm)
    end

    # B ボタンが押された場合
    if Input.trigger?(Input::B)
      $game_system.bgm_stop
       @filelist_window.dispose
       @s_status_window.dispose
       @key_help_window.dispose
       $scene = Scene_Map.new
       $game_map.autoplay
      # $scene 为有效的情况下调用 main 过程
       while $scene != nil
           $scene.main
        end

     end
    # A ボタンが押された場合
    if Input.trigger?(Input::A)
      if @filelist_window.active
        @filelist_window.active = false
        @s_status_window.active = true
        @key_help_window.refresh_vol
      else
        @s_status_window.active = false
        @filelist_window.active = true
        @key_help_window.refresh
      end
      @bgm.name = @filelist[@filelist_window.index]
      @s_status_window.set_data(@bgm)
    end
  end
end
end

#==============================================================================
# □ Window_Sound_State
#==============================================================================

class Window_Sound_State < Window_Base
#--------------------------------------------------------------------------
# ○ オブジェクト初期化
#     x      : ウィンドウの X 座標
#     y      : ウィンドウの Y 座標
#     width  : ウィンドウの幅
#     height : ウィンドウの高さ
#--------------------------------------------------------------------------
def initialize(x, y, width, height)
  super(x, y, width, height)
  @bgm = RPG::AudioFile.new
  self.contents = Bitmap.new(width - 32, height - 32)
end

#--------------------------------------------------------------------------
# ○ リフレッシュ
#--------------------------------------------------------------------------
def refresh
  self.contents.clear
  self.contents.font.size = 22
  if self.active
    self.contents.font.color = normal_color
  else
    self.contents.font.color = Color.new(255, 255, 64, 255)
  end
  rect = Rect.new(4, 16, self.contents.width - 8, 32)
  self.contents.draw_text(rect, @bgm.name)
  self.contents.font.color = normal_color
  rect = Rect.new(4, 64, self.contents.width - 96, 32)
  self.contents.draw_text(rect, "volume", 2)
  rect = Rect.new(4, 96, self.contents.width - 96, 32)
  self.contents.draw_text(rect, "pitch", 2)
  if self.active
    self.contents.font.size = 18
    self.contents.font.color = system_color
    rect = Rect.new(4, 64, self.contents.width - 12, 32)
    self.contents.draw_text(rect, "↓　　　　↑", 2)
    rect = Rect.new(4, 96, self.contents.width - 12, 32)
    self.contents.draw_text(rect, "←　　　　→", 2)
    self.contents.font.color = Color.new(255, 255, 64, 255)
  end
  self.contents.font.size = 22
  rect = Rect.new(4, 64, self.contents.width - 32, 32)
  self.contents.draw_text(rect, @bgm.volume.to_s, 2)
  rect = Rect.new(4, 96, self.contents.width - 32, 32)
  self.contents.draw_text(rect, @bgm.pitch.to_s, 2)
end
#--------------------------------------------------------------------------
# ○ サウンドデータをセット
#--------------------------------------------------------------------------
def set_data(bgm)
  @bgm = bgm
  refresh
end
#--------------------------------------------------------------------------
# ○ フレーム更新
#--------------------------------------------------------------------------
def update
  super
  # カーソルの移動が可能な状態の場合
  if self.active
    # 方向ボタンの下が押された場合
     if Input.repeat?(Input::DOWN)
      if @bgm.volume > 0
        @bgm.volume -= 5
        set_data(@bgm)
      end
    end
    # 方向ボタンの上が押された場合
    if Input.repeat?(Input::UP)
      if @bgm.volume < 100
        @bgm.volume += 5
        set_data(@bgm)
      end
    end
    # 方向ボタンの右が押された場合
    if Input.repeat?(Input::RIGHT)
      if @bgm.pitch < 150
        @bgm.pitch += 5
        set_data(@bgm)
      end
    end
    # 方向ボタンの左が押された場合
    if Input.repeat?(Input::LEFT)
      if @bgm.pitch > 50
        @bgm.pitch -= 5
        set_data(@bgm)
      end
    end
  end
end
end

#==============================================================================
# □ Window_Key_Help
#==============================================================================

class Window_Key_Help < Window_Base
#--------------------------------------------------------------------------
# ○ オブジェクト初期化
#--------------------------------------------------------------------------
def initialize(x, y, width, height)
  super(x, y, width, height)
  self.contents = Bitmap.new(width - 32, height - 32)
  self.opacity = 0
  refresh
end
#--------------------------------------------------------------------------
# ○ リフレッシュ（ファイルリスト）
#--------------------------------------------------------------------------
def refresh
  self.contents.clear
  self.contents.font.size = 20
  rect = Rect.new(4, 0, self.contents.width - 8, 22)
  self.contents.draw_text(rect, "- 说明 -",1)
  self.contents.font.color = system_color
  self.contents.font.size = 18
  rect = Rect.new(100, 32, 180, 32)
  self.contents.draw_text(rect, "Enter , Space , C")
  rect = Rect.new(100, 64, 180, 32)
  self.contents.draw_text(rect, "Esc , X , 0")
  rect = Rect.new(100, 96, 180, 32)
  self.contents.draw_text(rect, "Shift , Z")
  rect = Rect.new(100, 128, 180, 32)
  self.contents.draw_text(rect, "↑ , ↓")
  self.contents.font.color = normal_color
  self.contents.font.size = 22
  rect = Rect.new(4, 32, 90, 32)
  self.contents.draw_text(rect, "播放")
  rect = Rect.new(4, 64, 90, 32)
  self.contents.draw_text(rect, "停止")
  rect = Rect.new(4, 96, 90, 32)
  self.contents.draw_text(rect, "音乐选项")
  rect = Rect.new(4, 128, 90, 32)
  self.contents.draw_text(rect, "选曲")
end
#--------------------------------------------------------------------------
# ○ リフレッシュ（ボリュームコントロール）
#--------------------------------------------------------------------------
def refresh_vol
  self.contents.clear
  self.contents.font.size = 20
  rect = Rect.new(4, 0, self.contents.width - 8, 22)
  self.contents.draw_text(rect, "- 说明 -",1)
  self.contents.font.color = system_color
  self.contents.font.size = 18
  rect = Rect.new(100, 32, 180, 32)
  self.contents.draw_text(rect, "↑ , ↓")
  rect = Rect.new(100, 64, 180, 32)
  self.contents.draw_text(rect, "← , →")
  rect = Rect.new(100, 96, 180, 32)
  self.contents.draw_text(rect, "Enter , Space , C")
  rect = Rect.new(100, 128, 180, 32)
  self.contents.draw_text(rect, "Esc , X , 0")
  rect = Rect.new(100, 160, 180, 32)
  self.contents.draw_text(rect, "Shift , Z")
  self.contents.font.color = normal_color
  self.contents.font.size = 22
  rect = Rect.new(4, 32, 90, 32)
  self.contents.draw_text(rect, "音量")
  rect = Rect.new(4, 64, 90, 32)
  self.contents.draw_text(rect, "速度")
  rect = Rect.new(4, 96, 90, 32)
  self.contents.draw_text(rect, "播放")
  rect = Rect.new(4, 128, 90, 32)
  self.contents.draw_text(rect, "停止")
  rect = Rect.new(4, 160, 90, 32)
  self.contents.draw_text(rect, "回主菜单")
end
end
[/pre]

yang1zhi

我没有报错
while $scene != nil
   $scene.main
end
意思是 $scene不是不存在的情况下就执行 $scene的DEF main
由于上面$scene = Scene_music.new 了
所以就马上执行了 Scene_music的main
本来$scene = Scene_music.new 后还要等当前脚本结束后才会进入 Scene_music
这样写了后，就马上进入了 Scene_music，后面的不执行

89444640

yang1zhi 发表于 2017-9-9 21:59
我没有报错
while $scene != nil
   $scene.main

还有个可能，我音乐数据库太大了，脚本无法全部调用，刚才进去一次，界面全是混乱的。
请问有没有类似的脚本，更加易用一些的。毕竟这脚本很老了，至少得6 7年前的了
现在也许有更高级的写法？