【XP】地图式 可传递触发事件 字幕滚动 V1.0版

TERENCE

◎前言
某诈尸龙继续来发布 RMXP 新的脚本作品，
发现有时还是得写写，实用性且看得到效果的脚本作品，
会比较有人捧场 XD

前先天，看到这帖子中
http://rpg.blue/thread-162889-1-1.html
某版主大大，提出当前地图下字幕的滚动，
所以大概花了两天去实现效果，
顺便测试俺这几年在实验室长期写C++面对像概念的实力，XD
现在发现对RMXP整体架构，似乎有跟以前完全不一样的感觉了，所有变数都当C中指标去看待了 XD
以前俺写的脚本其实都不是完全明白 =w=
以上

◎效果
# (1) 可以配合地图上的事件或某些特效处理
# (2) 字幕滚动的效果永远会显示在最前面
# (3) 字幕滚动中，能侦测到讯号的传递，藉此触发可以处理一些事情与特效

地圖上的範例 :

配合移动远景脚本的范例 :


配合事件显示图片效果的范例 :



◎脚本

RUBY 代码复制

#==============================================================================
# ■ 地图式 可传递触发事件 字幕滚动 V1.0版  (By TERENCE龙皇)
#------------------------------------------------------------------------------
# 使用效果：
# (1) 可以配合地图上的事件或某些特效处理
# (2) 字幕滚动的效果永远会显示在最前面
# (3) 字幕滚动中，能侦测到事件的传递，藉此触发可以处理一些事情与特效
#
# 如何使用：
# (1) 字幕使用 UTF-8 格式的 TXT 档传写，请放在 Credit 文件夹之下
# (2) TXT 档名，请使用英文，才不会导致不同语言作业系统上读取失败
# (3) 其他部分，详见发布帖子，或研究范例工程
#==============================================================================
 
CREDIT_DETECTE_Y = 240          # 触发侦测线
CREDIT_NONEVISIBLE_HEIGHT = 25  # 字幕上下两侧不可视区域
 
#==============================================================================
# ■ Game_System
#------------------------------------------------------------------------------
# 　处理系统附属资料的类别。(扩增字幕)
# 　本类别的实例请参考 $game_system。
#==============================================================================
class Game_System
  #--------------------------------------------------------------------------
  # ● 定义实例变数
  #--------------------------------------------------------------------------
  attr_accessor :credit_obj               # 字幕物件暂存
  attr_accessor :credit_working           # 字幕执行中的标志
  attr_accessor :credit_filename          # 读取字幕的TXT档名
  #--------------------------------------------------------------------------
  # ● 初始化物件
  #--------------------------------------------------------------------------
  alias original_initialize initialize
  def initialize
    @credit_working = false
    @credit_filename = ""
    original_initialize
  end
  #--------------------------------------------------------------------------
  # ● 字幕启用
  #--------------------------------------------------------------------------
  def credit_start(filename)
    @credit_working = true
    @credit_filename = "Credit/#{filename}.txt"
  end
  #--------------------------------------------------------------------------
  # ● 字幕取消
  #--------------------------------------------------------------------------
  def credit_canceled
    if @credit_working
      @credit_obj.y = -(@credit_obj.bitmap_hieght)
    end
  end
  #--------------------------------------------------------------------------
  # ● 字幕讯息事件是否被传递
  #--------------------------------------------------------------------------
  def credit_mesgpost?
    # 若启动字幕滚动
    if @credit_working
      # 侦测字幕滚动是否有事件被触发
      if @credit_obj.message_flag
        @credit_obj.message_flag = false
        return true
      else; return false; end
    else; return false; end
  end
end
 
#==============================================================================
# ■ Sprite_Credit
#------------------------------------------------------------------------------
# 　显示字幕滚动用的活动区块。监视 $game_system 丶活动区块状态
# 　自动变化。
#==============================================================================
class Sprite_Credit < Sprite
  #--------------------------------------------------------------------------
  # ● 定义实例变数
  #--------------------------------------------------------------------------
  attr_accessor :message_flag               # 讯息标志
  attr_accessor :bitmap_hieght              # 字幕高
  #--------------------------------------------------------------------------
  # ● 初始化物件
  #--------------------------------------------------------------------------
  def initialize(viewport)
    super(viewport)
    self.x = 0
    self.y = 430
    self.z = 0
    @new_bitmap_flag = false
    @line_counts = 0
    @bitmap_hieght = 0
    @message_line = []
    @message_flag = false
    update
  end
  #--------------------------------------------------------------------------
  # ● 字幕 Bitmap 初始建立
  #--------------------------------------------------------------------------
  def create(filename)
    unless FileTest.exist?(filename)
      $game_system.credit_working = false
      @new_bitmap_flag = false
      @line_counts = 0
      return
    end
    @bitmap_hieght = File.read(filename).count("\n")
    @bitmap_hieght = 32*(1+@bitmap_hieght)
    self.bitmap = Bitmap.new(640, @bitmap_hieght)
    File.open(filename) do |file|
      while line = file.gets
        dump_lines(line)
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● TXT 文件 行处理
  #--------------------------------------------------------------------------
  def dump_lines(line)
    yy = 32*@line_counts
    if (line.gsub!(/\<PostMessage\>/){""})!=nil
      @message_line.push(yy+self.y)
    end
    if @line_counts == 0
      self.bitmap.draw_text(0, yy, 640, 32, line[3, line.size], 1)
    else
      self.bitmap.draw_text(0, yy, 640, 32, line, 1)
    end
    @line_counts += 1
  end
  #--------------------------------------------------------------------------
  # ● 释放
  #--------------------------------------------------------------------------
  def dispose
    if self.bitmap != nil
      self.bitmap.dispose
    end
    super
  end
  #--------------------------------------------------------------------------
  # ● 更新画面
  #--------------------------------------------------------------------------
  def update
    super
    # 设定计时器执行中为可见
    self.visible = $game_system.credit_working
    # 若启动字幕滚动
    if $game_system.credit_working
      unless @new_bitmap_flag
        @new_bitmap_flag = true
        create($game_system.credit_filename)
      end
      scroll_update
      message_detected
    end
  end
  #--------------------------------------------------------------------------
  # ● 字幕滚动
  #--------------------------------------------------------------------------
  def scroll_update
    if scroll_end?
      $game_system.credit_working = false
      @new_bitmap_flag = false
      @message_flag = false
      @message_line.clear
      @line_counts = 0
      self.y = 430
      if self.bitmap != nil
        self.bitmap.dispose
      end
    else
      self.y -= 1
    end
  end
  #--------------------------------------------------------------------------
  # ● 字幕滚动结束 ?
  #--------------------------------------------------------------------------
  def scroll_end?
    if self.y <= -(@bitmap_hieght)
      return true
    else
      return false
    end
  end
  #--------------------------------------------------------------------------
  # ● 事件讯息祯测
  #--------------------------------------------------------------------------
  def message_detected
    for i in 0...(@message_line.size)
      if @message_line[i] == nil; break; end
      @message_line[i] -= 1
      if @message_line[i] <= CREDIT_DETECTE_Y-32 # 触发侦测线
        @message_line.delete_at(i)
        @message_flag = true
      end
    end
  end
end
 
#==============================================================================
# ■ Spriteset_Map
#------------------------------------------------------------------------------
# 　处理地图画面活动区块和元件的类别。 (扩增字幕)
# 　本类别在 Scene_Map 类别的内部使用。
#==============================================================================
class Spriteset_Map
  #--------------------------------------------------------------------------
  # ● 初始化物件
  #--------------------------------------------------------------------------
  alias original_initialize initialize
  def initialize
    # 字幕尚未启动才 生成
    unless $game_system.credit_working
      hh = CREDIT_NONEVISIBLE_HEIGHT
      credit_viewport = Viewport.new(0,hh,640,480-hh*2)
      credit_viewport.z = 5000 + 200
      $game_system.credit_obj = Sprite_Credit.new(credit_viewport)
    end
    original_initialize
  end
  #--------------------------------------------------------------------------
  # ● 释放
  #--------------------------------------------------------------------------
  alias original_dispose dispose
  def dispose
    # 场景非地图 字幕滚动区块可视关闭
    unless $scene.is_a?(Scene_Map)
      $game_system.credit_obj.visible = false
    end
    # 字幕尚未启动才 释放字幕滚动区块
    unless $game_system.credit_working
      # 释放显示连接埠
      $game_system.credit_obj.viewport.dispose
      $game_system.credit_obj.dispose
    end
    original_dispose
  end
  #--------------------------------------------------------------------------
  # ● 更新画面
  #--------------------------------------------------------------------------
  alias original_update update
  def update
    # 更新字幕滚动区块
    $game_system.credit_obj.update
    # 更新显示连接埠
    $game_system.credit_obj.viewport.update
    original_update
  end
end

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


# ■ 地图式 可传递触发事件 字幕滚动 V1.0版  (By TERENCE龙皇)


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


# 使用效果：


# (1) 可以配合地图上的事件或某些特效处理


# (2) 字幕滚动的效果永远会显示在最前面


# (3) 字幕滚动中，能侦测到事件的传递，藉此触发可以处理一些事情与特效


#


# 如何使用：


# (1) 字幕使用 UTF-8 格式的 TXT 档传写，请放在 Credit 文件夹之下


# (2) TXT 档名，请使用英文，才不会导致不同语言作业系统上读取失败


# (3) 其他部分，详见发布帖子，或研究范例工程


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


 


CREDIT_DETECTE_Y = 240          # 触发侦测线


CREDIT_NONEVISIBLE_HEIGHT = 25  # 字幕上下两侧不可视区域


 


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


# ■ Game_System


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


# 　处理系统附属资料的类别。(扩增字幕)


# 　本类别的实例请参考 $game_system。


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


class Game_System


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


  # ● 定义实例变数


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


  attr_accessor :credit_obj               # 字幕物件暂存


  attr_accessor :credit_working           # 字幕执行中的标志


  attr_accessor :credit_filename          # 读取字幕的TXT档名


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


  # ● 初始化物件


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


  alias original_initialize initialize


  def initialize


    @credit_working = false


    @credit_filename = ""


    original_initialize


  end


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


  # ● 字幕启用


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


  def credit_start(filename)


    @credit_working = true


    @credit_filename = "Credit/#{filename}.txt"


  end


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


  # ● 字幕取消


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


  def credit_canceled


    if @credit_working


      @credit_obj.y = -(@credit_obj.bitmap_hieght)


    end


  end


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


  # ● 字幕讯息事件是否被传递


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


  def credit_mesgpost?


    # 若启动字幕滚动


    if @credit_working


      # 侦测字幕滚动是否有事件被触发


      if @credit_obj.message_flag


        @credit_obj.message_flag = false


        return true


      else; return false; end


    else; return false; end


  end


end


 


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


# ■ Sprite_Credit


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


# 　显示字幕滚动用的活动区块。监视 $game_system 丶活动区块状态


# 　自动变化。


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


class Sprite_Credit < Sprite


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


  # ● 定义实例变数


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


  attr_accessor :message_flag               # 讯息标志


  attr_accessor :bitmap_hieght              # 字幕高


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


  # ● 初始化物件


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


  def initialize(viewport)


    super(viewport)


    self.x = 0


    self.y = 430


    self.z = 0


    @new_bitmap_flag = false


    @line_counts = 0


    @bitmap_hieght = 0


    @message_line = []


    @message_flag = false


    update


  end


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


  # ● 字幕 Bitmap 初始建立


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


  def create(filename)


    unless FileTest.exist?(filename)


      $game_system.credit_working = false


      @new_bitmap_flag = false


      @line_counts = 0


      return


    end


    @bitmap_hieght = File.read(filename).count("\n")


    @bitmap_hieght = 32*(1+@bitmap_hieght)


    self.bitmap = Bitmap.new(640, @bitmap_hieght)


    File.open(filename) do |file|


      while line = file.gets


        dump_lines(line)


      end


    end


  end


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


  # ● TXT 文件 行处理


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


  def dump_lines(line)


    yy = 32*@line_counts


    if (line.gsub!(/\<PostMessage\>/){""})!=nil


      @message_line.push(yy+self.y)


    end


    if @line_counts == 0


      self.bitmap.draw_text(0, yy, 640, 32, line[3, line.size], 1)


    else


      self.bitmap.draw_text(0, yy, 640, 32, line, 1)


    end


    @line_counts += 1


  end


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


  # ● 释放


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


  def dispose


    if self.bitmap != nil


      self.bitmap.dispose


    end


    super


  end


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


  # ● 更新画面


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


  def update


    super


    # 设定计时器执行中为可见


    self.visible = $game_system.credit_working


    # 若启动字幕滚动


    if $game_system.credit_working


      unless @new_bitmap_flag


        @new_bitmap_flag = true


        create($game_system.credit_filename)


      end


      scroll_update


      message_detected


    end


  end


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


  # ● 字幕滚动


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


  def scroll_update


    if scroll_end?


      $game_system.credit_working = false


      @new_bitmap_flag = false


      @message_flag = false


      @message_line.clear


      @line_counts = 0


      self.y = 430


      if self.bitmap != nil


        self.bitmap.dispose


      end


    else


      self.y -= 1


    end


  end


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


  # ● 字幕滚动结束 ?


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


  def scroll_end?


    if self.y <= -(@bitmap_hieght)


      return true


    else


      return false


    end


  end


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


  # ● 事件讯息祯测


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


  def message_detected


    for i in 0...(@message_line.size)


      if @message_line[i] == nil; break; end


      @message_line[i] -= 1


      if @message_line[i] <= CREDIT_DETECTE_Y-32 # 触发侦测线


        @message_line.delete_at(i)


        @message_flag = true


      end


    end


  end


end


 


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


# ■ Spriteset_Map


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


# 　处理地图画面活动区块和元件的类别。 (扩增字幕)


# 　本类别在 Scene_Map 类别的内部使用。


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


class Spriteset_Map


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


  # ● 初始化物件


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


  alias original_initialize initialize


  def initialize


    # 字幕尚未启动才 生成


    unless $game_system.credit_working


      hh = CREDIT_NONEVISIBLE_HEIGHT


      credit_viewport = Viewport.new(0,hh,640,480-hh*2)


      credit_viewport.z = 5000 + 200


      $game_system.credit_obj = Sprite_Credit.new(credit_viewport)


    end


    original_initialize


  end


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


  # ● 释放


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


  alias original_dispose dispose


  def dispose


    # 场景非地图 字幕滚动区块可视关闭


    unless $scene.is_a?(Scene_Map)


      $game_system.credit_obj.visible = false


    end


    # 字幕尚未启动才 释放字幕滚动区块


    unless $game_system.credit_working


      # 释放显示连接埠


      $game_system.credit_obj.viewport.dispose


      $game_system.credit_obj.dispose


    end


    original_dispose


  end


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


  # ● 更新画面


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


  alias original_update update


  def update


    # 更新字幕滚动区块


    $game_system.credit_obj.update


    # 更新显示连接埠


    $game_system.credit_obj.viewport.update


    original_update


  end


end

◎范例工程
http://115.com/file/c2ahgfxj
本人使用繁体环境开发，若有乱码困扰，请使用APP开启工程

◎後记
本人是从 Spriteset_Map 类别里动土
追加 Sprite_Credit 字幕的精灵类

控制的话是使用
Game_System类别的实例 $game_system 上动手

整个设计的过程，大概最伤脑筋的事情，就是释放物件的问题了
在地图场景转换下不能 释放 Sprite_Credit 和 Viewport视口类
但必要时又得 释放这些 东西
如果有发现 没有释放的地方 或 BUG
回报一下

不过目前还没制作出像 多功能字幕滚动
那麽丰富的 字串和图片功能
有兴趣的人，整合去吧 XD

而且 场所以动後(切换地图)，
有画面过度时，字幕滚动会停止一下再滚
不使用画面过度，没有问题，滚动比较自然
估计必须 实做 Graphics 类的内容

若有想使用画面过度换地图的朋友，以下提供思路
不使用画面过度，但能达到比较婉转方式，换地图的效果
##
要换场景前，又事件一张全黑的图片 淡入 先遮挡
到新地图时，然後再淡出 删除图片

end55rpg

娃哈哈，字母在非地图场景就会停止
我估计
你需要把sprite从map_spritest里放在graphics update里

Luciffer

先支持个~等待BUG更正。。。（虽然几乎不用XP）

TERENCE

真頭疼
現在才發現
Ruby 代碼 帖上去 竟然給我 在189行 自動加上 [email] 的 字樣 = ="


現在已經更正成
for i in 0...(@message_line.size)

不加個 括弧 給我自動當成 E-mail 的地址了
真自動 = =