如何实现鼠标滑轮控制阅读系统翻页 - Project1

=begin
===============================================================================
阅读系统 By喵呜喵5
===============================================================================
【说明】
将事件页中的滚动文字指令整个替换掉变成这个阅读系统……
使用方法很简单，选择事件指令中的滚动文字，
之后在游戏中这个滚动文字就会以可以上下移动的对话框窗口显示出来
上下键用于翻页，左右键用于快速翻页
取消键可以回到开头部分，
确定键可以用来快速翻页，当翻到页底时关闭窗口
因为没有加开关，所以基本上就别指望能再使用显示滚动文字功能了
……反正滚动文字的效果太坑爹了我也用不上
=end
$m5script = {} if $m5script.nil?
$m5script["M5Read"] = true
module M5Read
#==============================================================================
# 设定部分
#==============================================================================
WIDTH = 60
#设置窗口的宽度，数字越大窗口越小
HEIGHT = 60
#设置窗口的高度，数字越大窗口越小
SPEED = 3
#设置文字滚动的速度，数字越大速度越快
SPACE = 9
#设置在文字开头和结尾部分的留空大小，数字越大留空越多
COME = 15
#设置窗口的打开、关闭速度，值越大速度越快
#==============================================================================
# 设定结束
#==============================================================================
end
#encoding:utf-8
#==============================================================================
# ■ Window_ScrollText
#------------------------------------------------------------------------------
# 　喵呜喵5阅读系统（滚动文字改）
#==============================================================================
class Window_ScrollText < Window_Base
#--------------------------------------------------------------------------
# ● 初始化对象
#--------------------------------------------------------------------------
def initialize
super(M5Read::WIDTH / 2, M5Read::HEIGHT / 3, winwidth, winheight)
self.opacity = 255
self.arrows_visible = true
self.openness = 0
[url=home.php?mod=space&uid=26195]@mouse[/url] = nil
end
#--------------------------------------------------------------------------
# ● 获取窗口的宽度
#--------------------------------------------------------------------------
def winwidth
Graphics.width - M5Read::WIDTH
end
#--------------------------------------------------------------------------
# ● 获取窗口的高度
#--------------------------------------------------------------------------
def winheight
Graphics.height - M5Read::HEIGHT
end
#--------------------------------------------------------------------------
# ● 更新
#--------------------------------------------------------------------------
def update
super
return if @opening or @closing
if $game_message.scroll_mode
update_direction
update_ok
self.oy = -M5Read::SPACE if Input.repeat?(:B)
start_message if !@text && $game_message.has_text?
end
end
#--------------------------------------------------------------------------
# ● 更新按下方向键后的处理
#--------------------------------------------------------------------------
def update_direction
update_message_up if Input.press?(:UP)
update_message_down if Input.press?(:DOWN)
15.times {update_message_up} if Input.press?(:LEFT) or mouse_up
15.times {update_message_down} if Input.press?(:RIGHT) or mouse_down
end
#--------------------------------------------------------------------------
# ● 更新按下确定键后的处理
#--------------------------------------------------------------------------
def update_ok
if Input.trigger?(:C)
if self.oy < contents.height - winheight + \
standard_padding * 2 + M5Read::SPACE
30.times {update_message_down}
else
terminate_message
end
end
end
#--------------------------------------------------------------------------
# ● 判定滚轮是否向上滑动
#--------------------------------------------------------------------------
def mouse_up
return false if !@mouse
if @mouse < Mouse.z
@mouse = Mouse.z
return true
end
false
end
#--------------------------------------------------------------------------
# ● 判定滚轮是否向下滑动
#--------------------------------------------------------------------------
def mouse_down
return false if !@mouse
if @mouse > Mouse.z
@mouse = Mouse.z
return true
end
false
end
#--------------------------------------------------------------------------
# ● 显示文字
#--------------------------------------------------------------------------
def start_message
@text = $game_message.all_text
self.oy = -M5Read::SPACE
refresh
open
if $SINOVA and $SINOVA[:mouseBase] and ($SINOVA[:mouseBase] >= 3.00)
Mouse.reset_z
@mouse = Mouse.z
else
@mouse = nil
end
end
#--------------------------------------------------------------------------
# ● 绘制文字
#--------------------------------------------------------------------------
def refresh
reset_font_settings
update_all_text_height
create_contents
draw_text_ex(4, 0, @text)
end
#--------------------------------------------------------------------------
# ● 计算文字的高度
#--------------------------------------------------------------------------
def update_all_text_height
@all_text_height = 1
convert_escape_characters(@text).each_line do |line|
@all_text_height += calc_line_height(line, false)
end
reset_font_settings
end
#--------------------------------------------------------------------------
# ● 获取内容的高度
#--------------------------------------------------------------------------
def contents_height
@all_text_height ? @all_text_height : super
end
#--------------------------------------------------------------------------
# ● 向下翻页
#--------------------------------------------------------------------------
def update_message_down
if contents.height < winheight-standard_padding*2-M5Read::SPACE
return
end
self.oy = [self.oy + scroll_speed,
contents.height - winheight + standard_padding * 2 + M5Read::SPACE ].min
end
#--------------------------------------------------------------------------
# ● 向上翻页
#--------------------------------------------------------------------------
def update_message_up
if contents.height < winheight-standard_padding*2-M5Read::SPACE
return
end
self.oy = [self.oy - scroll_speed,-M5Read::SPACE ].max
end
#--------------------------------------------------------------------------
# ● 获取翻页速度
#--------------------------------------------------------------------------
def scroll_speed
M5Read::SPEED
end
#--------------------------------------------------------------------------
# ● 结束阅读
#--------------------------------------------------------------------------
def terminate_message
@text = nil
$game_message.clear
close
end
#--------------------------------------------------------------------------
# ● 更新打开处理
#--------------------------------------------------------------------------
def update_open
self.openness += M5Read::COME
@opening = false if open?
end
#--------------------------------------------------------------------------
# ● 更新关闭处理
#--------------------------------------------------------------------------
def update_close
self.openness -= M5Read::COME
@closing = false if close?
end
end
#==============================================================================
# 脚本结束
#==============================================================================

复制代码