2VIP，请人帮我加一个滚动条（分不够可以追加）

一醉倾城

    哪位帮帮忙，只要在我的存档脚本中加一个滚动条就可以了，因为貌似现在的存档业面4格一页，鼠标想再往下好象没有办法了，所以希望加一个支持鼠标的滚动条。。。。。。。。
    2VIP了= =那顺便帮我把物品和技能那里的滚动条也做下吧= =多谢。
这个是脚本：

1. #==============================================================================
   
2. # ■ Scene_File
   
3. #------------------------------------------------------------------------------
   
4. # 　存档画面及读档画面的超级类。
   
5. #   脚本优化: SailCat
   
6. #==============================================================================
   
7. 
   
8. class Scene_File
   
9. #--------------------------------------------------------------------------
   
10. # ● 常量 (存档页数)
    
11. #--------------------------------------------------------------------------
    
12. MaxPages = 25
    
13. #--------------------------------------------------------------------------
    
14. # ● 初始化对像
    
15. #     help_text : 帮助窗口显示的字符串
    
16. #--------------------------------------------------------------------------
    
17. def initialize(help_text)
    
18.   @help_text = help_text
    
19.   @slots = MaxPages * 4
    
20. end
    
21. #--------------------------------------------------------------------------
    
22. # ● 主处理
    
23. #--------------------------------------------------------------------------
    
24. def main
    
25.   # This is setting up the background picture
    
26.   @background = Sprite.new
    
27.   @background.bitmap = RPG::Cache.picture("save window")
    
28.   @background.x = 0
    
29.   @background.y = 0
    
30. 
    
31.   # ヘルプウィンドウを作成
    
32.   @help_window = Window_Help.new
    
33.   @help_window.opacity = 0
    
34.   @help_window.set_text(@help_text)
    
35.   # セーブファイルウィンドウを作成
    
36.   # 生成帮助窗口
    
37. #   @help_window = Window_Help.new
    
38. #   @help_window.set_text(@help_text)
    
39.   @file_index = $game_temp.last_file_index
    
40.   # 生成存档文件窗口
    
41.   @savefile_windows = []
    
42.   # 选择最后操作的文件
    
43.   for i in @file_index / 4 * 4..@file_index / 4 * 4 + 3
    
44.     load_window(i)
    
45.     @savefile_windows[i].visible = true
    
46.   end
    
47.   @savefile_windows[@file_index].selected = true
    
48.   # 执行过渡
    
49.   Graphics.transition
    
50.   # 主循环
    
51.   loop do
    
52.     # 刷新游戏画面
    
53.     Graphics.update
    
54.     # 刷新输入信息
    
55.     Input.update
    
56.     # 刷新画面
    
57.     update
    
58.     # 如果画面被切换的话就中断循环
    
59.     if $scene != self
    
60.       break
    
61.     end
    
62.   end
    
63. # 准备过渡
    
64. Graphics.freeze
    
65. # 释放窗口
    
66. @help_window.dispose
    
67. for i in 0...@slots
    
68.    @savefile_windows[i].dispose if @savefile_windows[i] != nil
    
69. end
    
70. end
    
71. #--------------------------------------------------------------------------
    
72. # ● 刷新画面
    
73. #--------------------------------------------------------------------------
    
74. def update
    
75. # 刷新窗口
    
76. @help_window.update
    
77. for i in @file_index / 4 * 4..@file_index / 4 * 4 + 3
    
78.    @savefile_windows[i].update if @savefile_windows[i].visible
    
79. end
    
80. # 按下 C 键的情况下
    
81. 
    
82.   # 按下 C 键的情况下
    
83.   if Input.trigger?(Input::C)
    
84.     # 调用过程 on_decision (定义继承目标)
    
85.     on_decision(make_filename(@file_index))
    
86.     $game_temp.last_file_index = @file_index
    
87.     return
    
88.   end
    
89.   # 按下 B 键的情况下
    
90.   if Input.trigger?(Input::B)
    
91.     # 调用过程 on_cancel (定义继承目标)
    
92.     on_cancel
    
93.     return
    
94.   end
    
95.   # 按下方向键下的情况下
    
96.   if Input.repeat?(Input::DOWN)
    
97.     # 演奏光标 SE
    
98.     $game_system.se_play($data_system.cursor_se)
    
99.     # 光标向下移动
    
100.     @savefile_windows[@file_index].selected = false
     
101.     @file_index = (@file_index + 1) % @slots
     
102.     # 翻到下一页的情况下
     
103.     if @file_index % 4 == 0
     
104.       for index in @file_index / 4 * 4..@file_index / 4 * 4 + 3
     
105.         @savefile_windows[(index + @slots - 4) % @slots].visible = false
     
106.         load_window(index)
     
107.         @savefile_windows[index].visible = true
     
108.       end
     
109.     end
     
110.     @savefile_windows[@file_index].selected = true
     
111.     return
     
112.   end
     
113.   # 按下方向键上的情况下
     
114.   if Input.repeat?(Input::UP)
     
115.     # 演奏光标 SE
     
116.     $game_system.se_play($data_system.cursor_se)
     
117.     # 光标向上移动
     
118.     @savefile_windows[@file_index].selected = false
     
119.     @file_index = (@file_index + @slots - 1) % @slots
     
120.     # 翻到上一页的情况下
     
121.     if @file_index % 4 == 3
     
122.       for index in @file_index / 4 * 4..@file_index / 4 * 4 + 3
     
123.         @savefile_windows[(index + 4) % @slots].visible = false
     
124.         load_window(index)
     
125.         @savefile_windows[index].visible = true
     
126.       end
     
127.     end
     
128.     @savefile_windows[@file_index].selected = true
     
129.     return
     
130.   end
     
131.   # 按下方向键左或者 L 的情况下
     
132.   if Input.repeat?(Input::LEFT) or Input.trigger?(Input::L)
     
133.     # 演奏光标 SE
     
134.     $game_system.se_play($data_system.cursor_se)
     
135.     # 前翻一页
     
136.     @savefile_windows[@file_index].selected = false
     
137.     @file_index = (@file_index + @slots - 4) % @slots
     
138.     for index in @file_index / 4 * 4..@file_index / 4 * 4 + 3
     
139.       @savefile_windows[(index + 4) % @slots].visible = false
     
140.       load_window(index)
     
141.       @savefile_windows[index].visible = true
     
142.     end
     
143.     @savefile_windows[@file_index].selected = true
     
144.     return
     
145.   end
     
146.   # 按下方向键右或者 R 的情况下
     
147.   if Input.repeat?(Input::RIGHT) or Input.trigger?(Input::R)
     
148.     # 演奏光标 SE
     
149.     $game_system.se_play($data_system.cursor_se)
     
150.     # 前翻一页
     
151.     @savefile_windows[@file_index].selected = false
     
152.     @file_index = (@file_index + 4) % @slots
     
153.     for index in @file_index / 4 * 4..@file_index / 4 * 4 + 3
     
154.       @savefile_windows[(index + @slots - 4) % @slots].visible = false
     
155.       load_window(index)
     
156.       @savefile_windows[index].visible = true
     
157.     end
     
158.     @savefile_windows[@file_index].selected = true
     
159.     return
     
160.   end
     
161. end
     
162. #--------------------------------------------------------------------------
     
163. # ● 生成文件名
     
164. #     file_index : 文件名的索引 (0～n)
     
165. #--------------------------------------------------------------------------
     
166. def make_filename(记录_index)
     
167.   #return "Save#{file_index + 1}.rxdata"
     
168.   return "Save#{记录_index + 1}.rxdata"
     
169. end
     
170. #--------------------------------------------------------------------------
     
171. # ● 载入当前页存档
     
172. #     避免因存档位过多造成的卡壳现象
     
173. #--------------------------------------------------------------------------
     
174. def load_window(i)
     
175.   if @savefile_windows[i] != nil
     
176.     return
     
177.   else
     
178.     @savefile_windows[i] = Window_SaveFile.new(i, make_filename(i))
     
179.   end
     
180. end
     
181. end

复制代码

   这个是存档的图片：

---

此贴于 2008-9-8 10:35:23 被版主darkten提醒，请楼主看到后对本贴做出回应。



附加一个滚动条参考范例。。。窗口太多，我无从改起- -
http://rpg.blue/upload_program/files/mouse_0530_93058312.rar

---

此贴于 2008-9-9 21:18:05 被版主光郎提醒，请楼主看到后对本贴做出回应。

---

版务信息：本贴由楼主自主结贴～

一醉倾城

    算了，范例是对了，其他我自己解决吧，分给你了，最后想请某人介绍一本脚本方面的书，我想恶补下脚本。。。。。。。。

dbshy

以下引用一醉倾城于2008-10-4 12:36:15的发言：


以下引用dbshy于2008-10-4 10:48:58的发言：

被LZ的精神所感,故帮忙遍了一个

没想到编这个东西用了我2个小时,其中调试用了1个多小时
水平越来越废柴了 = =bb

下面是自己可以调的参数

每次滚动条UP OR DOWN 的距离
DisTance = 400 / MaxPages

  滚动条的初始位置
  INI_X = 610
  INI_Y = 50
  
向下翻页,鼠标点击的响应位置
if (mouse_x > 580) and (mouse_y > 430) and
       (mouse_x < 640) and (mouse_y < 480) then
    向上翻页,鼠标点击的响应位置
   if (mouse_x > 580) and (mouse_y > 50) and
       (mouse_x < 640) and (mouse_y < 100) then

另外滚动条的图形自己设置,我随便用了个 = =  
设置部分在MAIN中,你应该找的到

可爱范例一头:
http://rpg.blue/upload_program/goods/Project50_103545725.rar


[本贴由作者于 2008-10-4 11:05:05 最后编辑]





感谢dbshy等了这么久终于有人帮忙了，你的范例很好很好，只是好像和鼠标系统冲突的样子？终于吧我把我的范例发上来，麻烦你帮忙整合下好吗？
这是范例：http://xianexs.mail.qq.com/cgi-bin/downloadfilepart/svrid246/%B7%B6%C0%FD.rar?svrid=246&fid=69861e5c2483fd08c9536084cc47f29a75299c34a854339a&&txf_fid=688627e42006201de8e434365aa684a0d98eaaea&&txf_sid=
这是下载的提取码：cd111669

还要售后服务,解决一个又冒出另一个新的不属于此问题范围内的问题,
这样以后没人会帮你 = =

这个就是基于鼠标系统,怎么会冲突???

你的范例懒得看,你把原来的SECEN_FILE全都删了,用我范例中的替换
然后把鼠标系统替换成我范例中的那个,其实是一样的,我的鼠标系统只是把SCENE_FILE
全都注释掉了 = =

一醉倾城

以下引用dbshy于2008-10-4 10:48:58的发言：

被LZ的精神所感,故帮忙遍了一个

没想到编这个东西用了我2个小时,其中调试用了1个多小时
水平越来越废柴了 = =bb

下面是自己可以调的参数

每次滚动条UP OR DOWN 的距离
DisTance = 400 / MaxPages

   滚动条的初始位置
   INI_X = 610
   INI_Y = 50
   
向下翻页,鼠标点击的响应位置
if (mouse_x > 580) and (mouse_y > 430) and
        (mouse_x < 640) and (mouse_y < 480) then
     向上翻页,鼠标点击的响应位置
    if (mouse_x > 580) and (mouse_y > 50) and
        (mouse_x < 640) and (mouse_y < 100) then

  另外滚动条的图形自己设置,我随便用了个 = =  
  设置部分在MAIN中,你应该找的到

可爱范例一头:
http://rpg.blue/upload_program/goods/Project50_103545725.rar


[本贴由作者于 2008-10-4 11:05:05 最后编辑]

感谢dbshy等了这么久终于有人帮忙了，你的范例很好很好，只是好像和鼠标系统冲突的样子？终于吧我把我的范例发上来，麻烦你帮忙整合下好吗？
这是范例：http://xianexs.mail.qq.com/cgi-b ... a&&txf_sid=
这是下载的提取码：cd111669

黑鏻

一醉，有好心人帮你了～～快来看看～～

顺便也顶一下～～

dbshy

被LZ的精神所感,故帮忙遍了一个

没想到编这个东西用了我2个小时,其中调试用了1个多小时
水平越来越废柴了 = =bb

下面是自己可以调的参数

每次滚动条UP OR DOWN 的距离
DisTance = 400 / MaxPages

    滚动条的初始位置
    INI_X = 610
    INI_Y = 50
   
  向下翻页,鼠标点击的响应位置
  if (mouse_x > 580) and (mouse_y > 430) and
         (mouse_x < 640) and (mouse_y < 480) then
      向上翻页,鼠标点击的响应位置
     if (mouse_x > 580) and (mouse_y > 50) and
         (mouse_x < 640) and (mouse_y < 100) then

   另外滚动条的图形自己设置,我随便用了个 = =  
   设置部分在MAIN中,你应该找的到

  可爱范例一头:
  http://rpg.blue/upload_program/goods/Project50_103545725.rar

---

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

一醉倾城

    只要滚动条能用并不出错就可以了

風雲Ж贝贝

以下引用灯笼菜刀王于2008-9-27 21:22:58的发言：

http://rpg.blue/viewthread.php?tid=102029

这里里面就有那个效果-。-，可以尝试拆出来用~~ 不过，我拆不出来。

我把那拆掉给你~~,不过我只给效果,不给全data你~~~

黑鏻

以下引用suicaoya123于2008-10-1 17:27:46的发言：

话说我也想制作......而且我也提问过了2次.但都不满意，为什么不出个全局可用的滚动呢（被pia非....）

等待高手出现，弄个滚动条，受益大家～～