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

#==============================================================================
# ■ Scene_File
#------------------------------------------------------------------------------
# 　存档画面及读档画面的超级类。
# 脚本优化: SailCat
#==============================================================================
class Scene_File
#--------------------------------------------------------------------------
# ● 常量 (存档页数)
#--------------------------------------------------------------------------
MaxPages = 25
#--------------------------------------------------------------------------
# ● 初始化对像
# help_text : 帮助窗口显示的字符串
#--------------------------------------------------------------------------
def initialize(help_text)
@help_text = help_text
@slots = MaxPages * 4
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
# This is setting up the background picture
@background = Sprite.new
@background.bitmap = RPG::Cache.picture("save window")
@background.x = 0
@background.y = 0
# ヘルプウィンドウを作成
@help_window = Window_Help.new
@help_window.opacity = 0
@help_window.set_text(@help_text)
# セーブファイルウィンドウを作成
# 生成帮助窗口
# @help_window = Window_Help.new
# @help_window.set_text(@help_text)
@file_index = $game_temp.last_file_index
# 生成存档文件窗口
@savefile_windows = []
# 选择最后操作的文件
for i in @file_index / 4 * 4..@file_index / 4 * 4 + 3
load_window(i)
@savefile_windows[i].visible = true
end
@savefile_windows[@file_index].selected = true
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面被切换的话就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
# 释放窗口
@help_window.dispose
for i in 0...@slots
@savefile_windows[i].dispose if @savefile_windows[i] != nil
end
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 刷新窗口
@help_window.update
for i in @file_index / 4 * 4..@file_index / 4 * 4 + 3
@savefile_windows[i].update if @savefile_windows[i].visible
end
# 按下 C 键的情况下
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 调用过程 on_decision (定义继承目标)
on_decision(make_filename(@file_index))
$game_temp.last_file_index = @file_index
return
end
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 调用过程 on_cancel (定义继承目标)
on_cancel
return
end
# 按下方向键下的情况下
if Input.repeat?(Input::DOWN)
# 演奏光标 SE
$game_system.se_play($data_system.cursor_se)
# 光标向下移动
@savefile_windows[@file_index].selected = false
@file_index = (@file_index + 1) % @slots
# 翻到下一页的情况下
if @file_index % 4 == 0
for index in @file_index / 4 * 4..@file_index / 4 * 4 + 3
@savefile_windows[(index + @slots - 4) % @slots].visible = false
load_window(index)
@savefile_windows[index].visible = true
end
end
@savefile_windows[@file_index].selected = true
return
end
# 按下方向键上的情况下
if Input.repeat?(Input::UP)
# 演奏光标 SE
$game_system.se_play($data_system.cursor_se)
# 光标向上移动
@savefile_windows[@file_index].selected = false
@file_index = (@file_index + @slots - 1) % @slots
# 翻到上一页的情况下
if @file_index % 4 == 3
for index in @file_index / 4 * 4..@file_index / 4 * 4 + 3
@savefile_windows[(index + 4) % @slots].visible = false
load_window(index)
@savefile_windows[index].visible = true
end
end
@savefile_windows[@file_index].selected = true
return
end
# 按下方向键左或者 L 的情况下
if Input.repeat?(Input::LEFT) or Input.trigger?(Input::L)
# 演奏光标 SE
$game_system.se_play($data_system.cursor_se)
# 前翻一页
@savefile_windows[@file_index].selected = false
@file_index = (@file_index + @slots - 4) % @slots
for index in @file_index / 4 * 4..@file_index / 4 * 4 + 3
@savefile_windows[(index + 4) % @slots].visible = false
load_window(index)
@savefile_windows[index].visible = true
end
@savefile_windows[@file_index].selected = true
return
end
# 按下方向键右或者 R 的情况下
if Input.repeat?(Input::RIGHT) or Input.trigger?(Input::R)
# 演奏光标 SE
$game_system.se_play($data_system.cursor_se)
# 前翻一页
@savefile_windows[@file_index].selected = false
@file_index = (@file_index + 4) % @slots
for index in @file_index / 4 * 4..@file_index / 4 * 4 + 3
@savefile_windows[(index + @slots - 4) % @slots].visible = false
load_window(index)
@savefile_windows[index].visible = true
end
@savefile_windows[@file_index].selected = true
return
end
end
#--------------------------------------------------------------------------
# ● 生成文件名
# file_index : 文件名的索引 (0～n)
#--------------------------------------------------------------------------
def make_filename(记录_index)
#return "Save#{file_index + 1}.rxdata"
return "Save#{记录_index + 1}.rxdata"
end
#--------------------------------------------------------------------------
# ● 载入当前页存档
# 避免因存档位过多造成的卡壳现象
#--------------------------------------------------------------------------
def load_window(i)
if @savefile_windows[i] != nil
return
else
@savefile_windows[i] = Window_SaveFile.new(i, make_filename(i))
end
end
end

复制代码

以下引用一醉倾城于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