200分求一音乐播放脚本~

zx100zx

一个菜单上播放音乐的模块，选定并支付一定金钱可以播放，每升一级就开放一首新歌。
谢谢！

---

版务信息：版主帮忙结贴～

殲滅天使·玲

配合事件制作的菜单
全事件完全实施可能..

脚本的话...不太会.

IamI

烦烦烦烦……没想到这么一个东西花了我这么长时间XD

1. class Window_MMusic < Window_Selectable
   
2.   def initialize
   
3.     super(0, 0, 640, 480)
   
4.     @column_max = 2
   
5.     #对应0级1级2级，等级标准是带队角色等级
   
6.     @orzorzorz = ["001-Battle01","002-Battle02","003-Battle03","004-Battle04"]
   
7.     @name = ["战斗01","战斗02","战斗03","战斗04"]
   
8.     $gold_need = [10,10,10,10]
   
9.     refresh
   
10.     self.index = 0
    
11.   end
    
12.   def item
    
13.     return @data[self.index]
    
14.   end
    
15.   def refresh
    
16.     if self.contents != nil
    
17.       self.contents.dispose
    
18.       self.contents = nil
    
19.     end
    
20.     @data = []
    
21.     for i in 0..$game_party.actors[0].level
    
22.       @data.push(@orzorzorz[i])
    
23.     end
    
24.     @item_max = @data.size
    
25.     if @item_max > 0
    
26.       self.contents = Bitmap.new(width - 32, row_max * 32)
    
27.       for i in 0...@item_max
    
28.         draw_item(i)
    
29.       end
    
30.     end
    
31.   end
    
32.   def draw_item(index)
    
33.     item = @data[index]
    
34.     self.contents.font.color = normal_color
    
35.     x = 4 + index % 2 * (288 + 32)
    
36.     y = index / 2 * 32
    
37.     rect = Rect.new(x, y, self.width / @column_max - 32, 32)
    
38.     self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    
39.     opacity = 255
    
40.     self.contents.draw_text(x + 28, y, 212, 32, @name[index], 0)
    
41.   end
    
42. end
    
43. class Scene_MMusic
    
44.   def main
    
45.     # 生成命令窗口
    
46.     @window = Window_MMusic.new
    
47.     # 执行过渡
    
48.     Graphics.transition
    
49.     # 主循环
    
50.     loop do
    
51.       # 刷新游戏画面
    
52.       Graphics.update
    
53.       # 刷新输入情报
    
54.       Input.update
    
55.       # 刷新画面
    
56.       update
    
57.       # 如果画面切换的话就中断循环
    
58.       if $scene != self
    
59.         break
    
60.       end
    
61.     end
    
62.     # 准备过渡
    
63.     Graphics.freeze
    
64.     # 释放窗口
    
65.     @window.dispose
    
66.   end
    
67.   def update
    
68.     @window.update
    
69.     if Input.trigger?(Input::B)
    
70.       $scene = Scene_Map.new
    
71.     end
    
72.     if Input.trigger?(Input::C)
    
73.       if $gold_need[@window.index] > $game_party.gold
    
74.         $game_system.se_play($data_system.buzzer_se)
    
75.         return
    
76.       end
    
77.       Audio.bgm_play("Audio/BGM/" + @window.item)
    
78.       $game_party.lose_gold($gold_need[@window.index])
    
79.     end
    
80.   end
    
81. end

复制代码

召唤方法:$scene = Scene_MMusic.new

---

系统信息：本贴由本区版主认可为正确答案，66RPG感谢您的热情解答～