[PS0]读书读报系统(2012.02.24)

仲秋启明 · 发表于 2012-2-5 11:05:13

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由仲秋启明于 2012-2-24 20:56 编辑

VA的“显示滚动文字”是个新东西，用这个就可以直接改为读书读报系统
此读书读报系统和XP的不一样

RUBY 代码复制

#==============================================================================
# [PS0]读书读报系统
#      Reading_System
#==============================================================================
# [更新记录]
#    - 2011.12.27 By 仲秋启明
#      * 编写开始，遵循PS0协议；
#      * 设定开关以控制
#    - 2012.02.24 By feizhaodan
#      * 修正没法翻页和显示问题
#------------------------------------------------------------------------------
# [使用方法]
#    - 替换原Window_ScrollText或复制到Main之前
#    - 打开Reading_System_Switch定义的开关
#==============================================================================
$_PS0 = {} if $_PS0 == nil  
$_PS0["Reading_System"] = 20120205
#==============================================================================
# [PS0] 通用配置模块  
#==============================================================================
module PS0
  module Reading_System
    Reading_System_Switch = 50
  end
end
#==============================================================================
# ■ Window_ScrollText
#------------------------------------------------------------------------------
# 　显示滚动文字的窗口。
#   这类窗口没有边框，归类为窗口只是为了方便。
#   窗口打开时角色不能移动。
#==============================================================================
 
class Window_ScrollText < Window_Base
  #--------------------------------------------------------------------------
  # ● 初始化对象
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, Graphics.width, Graphics.height)
    self.opacity = 0
    self.arrows_visible = false
    hide
  end
  #--------------------------------------------------------------------------
  # ● 更新画面
  #--------------------------------------------------------------------------
  def update
    super
    if $game_switches[PS0::Reading_System::Reading_System_Switch] != true
      if $game_message.scroll_mode
        self.opacity = 0
        update_message if @text
        start_message if !@text && $game_message.has_text?
      end
    else
      self.opacity = 200
      if Input.trigger?(:B) or Input.trigger?(:C)
        terminate_message
      elsif Input.trigger?(:DOWN) or Input.trigger?(:RIGHT)
        self.oy += 512 if self.oy + 512 < contents.height
        self.oy = [self.oy,contents.height].min
      elsif Input.trigger?(:UP) or Input.trigger?(:LEFT)
        self.oy -= 512
        self.oy = [self.oy,0].max
      end
      if $game_message.scroll_mode
        start_message if !@text && $game_message.has_text?
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 开始信息的显示
  #--------------------------------------------------------------------------
  def start_message
    @text = $game_message.all_text
    refresh
    show
  end
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  def refresh
    reset_font_settings
    update_all_text_height
    create_contents
    draw_text_ex(4, 0, @text)
    if $game_switches[PS0::Reading_System::Reading_System_Switch] != true
      self.oy = @scroll_pos = -height
    end
  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
    if $game_switches[PS0::Reading_System::Reading_System_Switch] != true
    @scroll_pos += scroll_speed
    self.oy = @scroll_pos
    terminate_message if @scroll_pos >= contents.height
    end
  end
  #--------------------------------------------------------------------------
  # ● 获取滚动速度
  #--------------------------------------------------------------------------
  def scroll_speed
    $game_message.scroll_speed * (show_fast? ? 1.0 : 0.5)
  end
  #--------------------------------------------------------------------------
  # ● 快进判定
  #--------------------------------------------------------------------------
  def show_fast?
    !$game_message.scroll_no_fast && (Input.press?(:A) || Input.press?(:C))
  end
  #--------------------------------------------------------------------------
  # ● 结束信息的显示
  #--------------------------------------------------------------------------
  def terminate_message
    @text = nil
    $game_message.clear
    hide
  end
end

#==============================================================================


# [PS0]读书读报系统


#      Reading_System


#==============================================================================


# [更新记录]


#    - 2011.12.27 By 仲秋启明


#      * 编写开始，遵循PS0协议；


#      * 设定开关以控制


#    - 2012.02.24 By feizhaodan


#      * 修正没法翻页和显示问题


#------------------------------------------------------------------------------


# [使用方法]


#    - 替换原Window_ScrollText或复制到Main之前


#    - 打开Reading_System_Switch定义的开关


#==============================================================================


$_PS0 = {} if $_PS0 == nil  


$_PS0["Reading_System"] = 20120205


#==============================================================================


# [PS0] 通用配置模块  


#==============================================================================


module PS0


  module Reading_System


    Reading_System_Switch = 50


  end


end


#==============================================================================


# ■ Window_ScrollText


#------------------------------------------------------------------------------


# 　显示滚动文字的窗口。


#   这类窗口没有边框，归类为窗口只是为了方便。


#   窗口打开时角色不能移动。


#==============================================================================


 


class Window_ScrollText < Window_Base


  #--------------------------------------------------------------------------


  # ● 初始化对象


  #--------------------------------------------------------------------------


  def initialize


    super(0, 0, Graphics.width, Graphics.height)


    self.opacity = 0


    self.arrows_visible = false


    hide


  end


  #--------------------------------------------------------------------------


  # ● 更新画面


  #--------------------------------------------------------------------------


  def update


    super


    if $game_switches[PS0::Reading_System::Reading_System_Switch] != true


      if $game_message.scroll_mode


        self.opacity = 0


        update_message if @text


        start_message if !@text && $game_message.has_text?


      end


    else


      self.opacity = 200


      if Input.trigger?(:B) or Input.trigger?(:C)


        terminate_message


      elsif Input.trigger?(:DOWN) or Input.trigger?(:RIGHT)


        self.oy += 512 if self.oy + 512 < contents.height


        self.oy = [self.oy,contents.height].min


      elsif Input.trigger?(:UP) or Input.trigger?(:LEFT)


        self.oy -= 512


        self.oy = [self.oy,0].max


      end


      if $game_message.scroll_mode


        start_message if !@text && $game_message.has_text?


      end


    end


  end


  #--------------------------------------------------------------------------


  # ● 开始信息的显示


  #--------------------------------------------------------------------------


  def start_message


    @text = $game_message.all_text


    refresh


    show


  end


  #--------------------------------------------------------------------------


  # ● 刷新


  #--------------------------------------------------------------------------


  def refresh


    reset_font_settings


    update_all_text_height


    create_contents


    draw_text_ex(4, 0, @text)


    if $game_switches[PS0::Reading_System::Reading_System_Switch] != true


      self.oy = @scroll_pos = -height


    end


  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


    if $game_switches[PS0::Reading_System::Reading_System_Switch] != true


    @scroll_pos += scroll_speed


    self.oy = @scroll_pos


    terminate_message if @scroll_pos >= contents.height


    end


  end


  #--------------------------------------------------------------------------


  # ● 获取滚动速度


  #--------------------------------------------------------------------------


  def scroll_speed


    $game_message.scroll_speed * (show_fast? ? 1.0 : 0.5)


  end


  #--------------------------------------------------------------------------


  # ● 快进判定


  #--------------------------------------------------------------------------


  def show_fast?


    !$game_message.scroll_no_fast && (Input.press?(:A) || Input.press?(:C))


  end


  #--------------------------------------------------------------------------


  # ● 结束信息的显示


  #--------------------------------------------------------------------------


  def terminate_message


    @text = nil


    $game_message.clear


    hide


  end


end

效果：

与XP版的区别

直接上图

凌依约 · 发表于 2012-2-5 18:45:18

好东西哟,不过要是界面能够再华丽点,然后支持用PgUP PgDn 或者 ← →键来控制就好了

迷糊的安安 · 发表于 2012-2-22 21:09:43

本帖最后由迷糊的安安于 2012-2-22 21:10 编辑

报告两个BUG
1、文字比较长的时候没法翻页。
2、将50开关打开，启用读报系统，显示滚动文字以后，将开关关闭，再显示滚动文字，依然带有框。此后若再打开开关，则什么都显示不出来。
@仲秋启明

仲秋启明 · 发表于 2012-2-22 21:38:23

迷糊的安安发表于 2012-2-22 21:09
报告两个BUG
1、文字比较长的时候没法翻页。
2、将50开关打开，启用读报系统，显示滚动文字以后，将开关关 ...

1.这个……手动翻页我还要试一下
2.这个我没遇到过，我只遇到过滚动文字有时显示不全

迷糊的安安 · 发表于 2012-2-23 02:11:23

本帖最后由迷糊的安安于 2012-2-23 02:12 编辑

仲秋启明发表于 2012-2-22 21:38
1.这个……手动翻页我还要试一下
2.这个我没遇到过，我只遇到过滚动文字有时显示不全 ...

是这样的我详细地说明一下吧

按照这样的流程走
1、显示第一段滚动文字。
2、打开开关50，显示第二段滚动文字。
3、关闭开关50，显示第三段滚动文字。
4、打开开关50，显示第四段滚动文字。

若如此做，则：
第一段：正常滚动文字。
第二段：带底框的读报文字。
第三段：带底框的滚动文字。
第四段：只显示框，什么字也显示不出来。

第三段和第四段明显是不正常的……

@仲秋启明

各种压力的猫君 · 发表于 2012-2-23 04:19:46

与其对原来的滚动文字下手……不如直接对事件解释器下手，
把文字截出来。然后自己写窗口，这样也不会导致奇怪的BUG。

eve592370698 · 发表于 2012-2-24 11:33:39

凌依约发表于 2012-2-5 18:45
好东西哟,不过要是界面能够再华丽点,然后支持用PgUP PgDn 或者 ← →键来控制就好了 ...

很悲剧!我还以为是Xp的读取txt脚本移植过来了呢.

仲秋启明 · 发表于 2012-2-24 20:56:22

迷糊的安安发表于 2012-2-22 21:09
报告两个BUG
1、文字比较长的时候没法翻页。
2、将50开关打开，启用读报系统，显示滚动文字以后，将开关关 ...

BUG已由FZD君修复

敏儿 · 发表于 2012-3-5 14:46:31

读书读报系统是不是不需要使用事件来进行？
要是很长的文字显示应该没有什么缺少吧

因为是新人，所以不太懂。。。不好意思

迷糊的安安 · 发表于 2012-3-9 21:41:32

本帖最后由迷糊的安安于 2012-3-9 21:42 编辑

翻页存在一些问题。
@feizhaodan
@仲秋启明

帐号		自动登录	找回密码
密码			注册会员

[RMVA发布] [PS0]读书读报系统(2012.02.24)

加入我们，或者，欢迎回来。

评分

评分

点评

点评

贵宾

开拓者

短篇七成年组亚军

剧作品鉴家