RPG Maker VX地图随机气泡对话 Ver1.0

最近刚看完了Ruby的《元编程》，收获颇丰。

想趁着印象深刻的时候多写点东西练练手，于是想到了这么一个功能。

在辉光翼战记中，玩家在迷宫中移动时，角色偶尔会在屏幕下方进行一些小对话。虽然对剧情本身没有什么影响，

但是这个功能不但削弱了在迷宫中移动时的烦躁感，而且还可以加深对人物性格的刻画。

RPG Maker VX的屏幕默认只有544 * 416大小，在冒险中专门取出一块地方来进行小对话会让游戏画面显得更加狭窄，由此选择了使用漂浮气泡对话。

本脚本主要使用了RPG Maker VX的跟随和村人のつぶやき两个脚本，以这两个脚本为基础，设计了一个小型DSL，这两个脚本的内容附在文章最后。

使用方法如下：

story_event "First Event" do

　　message [-1, 'First Message']

　　message [0, 'Second Message']

　　scope [1, 2, 3, 5]


end

每个小对话使用 story_event来定义，并使用一个字符串对其命名，便于区别其他的小对话

message用来声明一条信息，其中第一个参数表示说话角色，第二个参数表示信息内容。

scope用来声明作用范围，其内容为一个包含了剧情可发生地图的id数组，上例中该剧情可以在map_id为1、2、3、5的地图中发生。

通过提前设置好对话和作用范围，就可以实现玩家在地图移动时的随机对话了。

作为1.0版本，只实现了一个大致上的功能。还有一些设想中的功能没有制作，内容包括：

1. 添加一个run_switch, 内容是一个开关id数组，当run_switch中的所有开关打开时该剧情才可能发生。

2. 添加一个close_switch，其功能和run_switch相反，用来终止一个剧情的发生。

3. 每条message除了可以声明角色和信息内容以外，还可以指定气泡滞留时间，使得句子长的信息滞留更久，句子短的信息消失更快。

4. 可以通过给地图增加特殊声明来修改该地图中随机剧情的出现频度

大概会在后续版本中添加上去。

附录

地图随机剧情脚本

  #==============================================================================
  #
  #   通过扩展Kernel的功能实现的小型DSL
  #   由于RMVX的问题，class_eval内的代码是被迫实现的
  #   原版代码如下
  #   Kernel.send :define_method, :story_event do |name, &block|
  #     now_event = event_list[name] = Move_Talking::Story_Event.new(name)
  #     block.call
  #   end
  #   在RMVX中，由于|name, &block|处会报语法错误，所以变成了现在的丑陋样子。
  #   如果有人知道在RMVX中怎么通过define_method定义方法并可以传递block请告诉我。
  #
#=============================================================================
  lambda {
    
    event_list = {}   #用以储存所有小剧情事件
    now_event = nil   #用以构造小剧情事件
    
    
    #--------------------------------------------------------------------------
    # ● 定义story_event方法
    #--------------------------------------------------------------------------
    Kernel.class_eval('def story_event(name, &block)
      event_list = get_event_list
      event_list[name] = Move_Talking::Story_Event.new(name)
      now_event = event_list[name]
      set_now_event(now_event)
      block.call
    end')
    
    #--------------------------------------------------------------------------
    # ● 获取event_list
    #     story_event方法专用
    #     如果可以将story_event改回使用define_method实现，本方法可作废
    #--------------------------------------------------------------------------
    Kernel.send :define_method, :get_event_list do
      return event_list
    end
    
    #--------------------------------------------------------------------------
    # ● 设置now_event
    #     story_event方法专用
    #     如果可以将story_event改回使用define_method实现，本方法可作废
    #--------------------------------------------------------------------------
    Kernel.send :define_method, :set_now_event do |event|
      now_event = event
    end
    
    #--------------------------------------------------------------------------
    # ● 定义message方法
    #     接收一个数组作为message内容
    #--------------------------------------------------------------------------
    Kernel.send :define_method, :message do |param|
      now_event.msg_data << param
    end
    
    #--------------------------------------------------------------------------
    # ● 定义scope方法
    #     接收一个数组作为scope内容
    #--------------------------------------------------------------------------
    Kernel.send :define_method, :scope do |scope|
      now_event.scope = scope
    end
    
    #--------------------------------------------------------------------------
    # ● 定义run_switch方法
    #      接收一个数组作为run_switch内容
    #--------------------------------------------------------------------------
    Kernel.send :define_method, :run_switch do |run_switch|
      now_event.run_switch = run_switch
    end
    
    #--------------------------------------------------------------------------
    # ● 获取当前地图适用的小剧情
    #     此处只考虑map_id其他操作在scene_map中具体判别
    #--------------------------------------------------------------------------
    Kernel.send :define_method, :get_story_event do |map_id|
      result = []
      event_list.each do |key, val|
        if    val.scope.nil?            then result.push val 
        elsif val.scope.include? map_id then result.push val
        end
      end
      return result
    end
    
  }.call

  #==============================================================================
  # ■ Move_Talking
  #------------------------------------------------------------------------------
  # 　移动中对话的主要模块
  #==============================================================================
  module Move_Talking
    TRIGGER_COOLDOWN = 1500
    AWP = 500
    
    #--------------------------------------------------------------------------
    # ●Story_Event
    #
    #   用来装载小对话的类
    #--------------------------------------------------------------------------
    class Story_Event
      
      attr_accessor :scope
      attr_accessor :run_switch
      attr_accessor :name
      attr_accessor :msg_data
      attr_accessor :cooldown
      
      #--------------------------------------------------------------------------
      # ● 初始化
      #--------------------------------------------------------------------------
      def initialize(name)
        @name = name
        @msg_data = []
        @scope = nil
        @run_switch = nil
        @index = 0
        @cooldown = 200
      end

      
      #--------------------------------------------------------------------------
      # ● 运行
      #    每次显示一条信息
      #--------------------------------------------------------------------------
      def run
        player = @msg_data[@index][0]
        message = @msg_data[@index][1].dup
        if player == -1
          $game_player.message = message
        else
          $game_party.characters[player].message = message
        end
        @index += 1
      end
      
      #--------------------------------------------------------------------------
      # ● 判断是否全部显示完毕
      #--------------------------------------------------------------------------
      def over?
        @index == @msg_data.size
      end
      
      #--------------------------------------------------------------------------
      # ● 重置
      #    将index复位，以便重复播放
      #--------------------------------------------------------------------------
      def reset
        @index = 0
      end
      
    end
  end
  #==============================================================================
  # ■ Scene_Map
  #------------------------------------------------------------------------------
  # 　处理地图画面的类。
  #==============================================================================
  class Scene_Map < Scene_Base
    
    #--------------------------------------------------------------------------
    #    初始化
    #--------------------------------------------------------------------------
    alias story_event_initialize initialize
    def initialize
      story_event_initialize
      @story_count = 0
      @message_count = 0
      @story_event = nil
    end
    
    #--------------------------------------------------------------------------
    #    更新
    #--------------------------------------------------------------------------
    alias story_event_update update
    def update
      @story_count += 1
      if @story_count >= 1500 && @story_event.nil?
        events = get_story_event($game_map.map_id)
        @story_event = events[rand(events.size)]
        @story_event.reset
        @story_event.run
        @message_count = 0
      elsif @story_event != nil
        @message_count += 1
        if @message_count == 200
          @story_event.run
          @message_count = 0
        end
        if @story_event.over?
          @story_event = nil
          @story_count = 0
        end
      end
      story_event_update
    end
    
  end

 村人のつぶやき

#==============================================================================
# ★ RGSS2_村人のつぶやき
# tomoaky (http://hikimoki.hp.infoseek.co.jp/)
#==============================================================================

#==============================================================================
# ■ 設定項目
#==============================================================================
module TMRBT
  SW_MESSAGE_STOP = 2             # 機能無効化スイッチのID
  MESSAGE_DURATION = 180          # メッセージの表示時間（フレーム）
  MESSAGE = {}
  
  # おじさんタイプのメッセージリスト
  MESSAGE["Test"] = [
    'Test message'
  ]
end

#==============================================================================
# ■ コマンド
#==============================================================================
module TMRBT
  module Commands
    module_function
    #--------------------------------------------------------------------------
    # ● 指定したIDのイベントにメッセージを強制
    #--------------------------------------------------------------------------
    def mes(id, text, count = 300)
      event = $game_map.interpreter.get_character(id)
      if event != nil
        event.message = text
        event.message_count = count
      end
    end
    #--------------------------------------------------------------------------
    # ● 指定したIDのイベントの村人タイプを変更
    #--------------------------------------------------------------------------
    def mes_type(id, type = nil)
      return if id < 0    # プレイヤーには無効
      event = $game_map.interpreter.get_character(id)
      if event != nil
        event.murabito = type
      end
    end
  end
end

class Game_Interpreter
  include TMRBT::Commands
end

#==============================================================================
# ■ Game_Character
#==============================================================================
class Game_Character
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :message                  # フキダシメッセージ
  attr_accessor :message_count            # メッセージ待機カウント
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #--------------------------------------------------------------------------
  alias tmrbt_game_character_initialize initialize
  def initialize
    tmrbt_game_character_initialize
    @message = ""
    @message_count = 60 + rand(240)
  end
  #--------------------------------------------------------------------------
  # ○ メッセージを表示できる状態かどうかを返す
  #--------------------------------------------------------------------------
  def message_can_speak?
    return false if @character_name == "" and @tile_id == 0
    return false if $game_switches[TMRBT::SW_MESSAGE_STOP]
    return true
  end
end

#==============================================================================
# ■ Game_Event
#==============================================================================
class Game_Event < Game_Character
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :murabito                 # 村人タイプ
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #     map_id : マップ ID
  #     event  : イベント (RPG::Event)
  #--------------------------------------------------------------------------
  alias tmrbt_game_event_initialize initialize
  def initialize(map_id, event)
    tmrbt_game_event_initialize(map_id, event)
    @murabito = event.name =~ /<村人:(S+?)>/i ? $1 : nil  # 村人判定
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias tmrbt_game_event_update update
  def update
    tmrbt_game_event_update
    if @murabito != nil
      if @message_count > 0
        @message_count -= 1
        if @message_count == 0
          if message_can_speak?
            n = TMRBT::MESSAGE[@murabito].size
            @message = TMRBT::MESSAGE[@murabito][rand(n)].clone
          end
          @message_count = 270 + rand(300)
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ○ 指定したIDのイベントにメッセージを強制（カスタム移動用）
  #--------------------------------------------------------------------------
  def mes(id, text, count = 300)
    TMRBT::Commands.mes(id == 0 ? @id : id, text, count)
  end
  #--------------------------------------------------------------------------
  # ○ 指定したIDのイベントの村人タイプを変更（カスタム移動用）
  #--------------------------------------------------------------------------
  def mes_type(id, type = nil)
    TMRBT::Commands.mes_type(id == 0 ? @id : id, type)
  end
end

#==============================================================================
# ■ Sprite_Character
#==============================================================================
class Sprite_Character < Sprite_Base
  @@bitmap_murawin = Cache.system("murawin")
  @@windowskin = Cache.system("Window")
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #     viewport  : ビューポート
  #     character : キャラクター (Game_Character)
  #--------------------------------------------------------------------------
  alias tmrbt_sprite_character_initialize initialize
  def initialize(viewport, character = nil)
    @message_duration = 0
    tmrbt_sprite_character_initialize(viewport, character)
  end
  #--------------------------------------------------------------------------
  # ● 解放
  #--------------------------------------------------------------------------
  alias tmrbt_sprite_character_dispose dispose
  def dispose
    dispose_message
    tmrbt_sprite_character_dispose
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias tmrbt_sprite_character_update update
  def update
    tmrbt_sprite_character_update
    update_message
    if @character.message != ""
      @message = @character.message
      start_message
      @character.message = ""
    end
  end
  #--------------------------------------------------------------------------
  # ○ 文字色取得
  #     n : 文字色番号 (0～31)
  #--------------------------------------------------------------------------
  def text_color(n)
    x = 64 + (n % 8) * 8
    y = 96 + (n / 8) * 8
    return @@windowskin.get_pixel(x, y)
  end
  #--------------------------------------------------------------------------
  # ○ 特殊文字の変換
  #--------------------------------------------------------------------------
  def convert_special_characters
    if @message == nil
      @message = ""
    end
    @message.gsub!(/\L/)              { "x00" }
    @message.gsub!(/\V[([0-9]+)]/i) { $game_variables[$1.to_i] }
    @message.gsub!(/\N[([0-9]+)]/i) { $game_actors[$1.to_i].name }
    @message.gsub!(/\C[([0-9]+)]/i) { "x01[#{$1}]" }
    @message.gsub!(/\\/)             { "\" }
  end
  #--------------------------------------------------------------------------
  # ○ フキダシメッセージ表示の開始
  #--------------------------------------------------------------------------
  def start_message
    dispose_message
    convert_special_characters
    @message_duration = TMRBT::MESSAGE_DURATION
    bitmap = Bitmap.new(160, 160)
    bitmap.font.name = "Verdana"
    bitmap.font.size = 14
    w = 0
    contents_x = 4
    contents_y = 0
    loop do
      c = @message.slice!(/./m)         # 次の文字を取得
      case c
      when nil
        break                           # 描画すべき文字がなければ終了
      when "x00"                       # 改行
        w = contents_x if w < contents_x
        contents_x = 4
        contents_y += 16
        next
      when "x01"                       # C[n]  (文字色変更)
        @message.sub!(/[([0-9]+)]/, "")
        bitmap.font.color = text_color($1.to_i)
        next
      else
        bitmap.font.color = Color.new(255, 255, 255)
        bitmap.draw_edge_text(contents_x, contents_y, 40, 16, c, 0, Color.new(94, 24, 24))
        c_width = bitmap.text_size(c).width
        contents_x += c_width
        if contents_x >= 140            # 右端にきていれば改行
          w = contents_x if w < contents_x
          contents_x = 4
          contents_y += 16
        end
      end
    end
    h = contents_y + (contents_x == 4 ? 0 : 16)
    w = (w < contents_x ? contents_x + 4 : w + 4)
    @message_sprite = ::Sprite.new(viewport)
    @message_sprite.ox = w / 2
    @message_sprite.oy = h + 4
    @message_sprite.bitmap = Bitmap.new(w, h + 8)
    rect = Rect.new(0, 0, 8, 8)
    @message_sprite.bitmap.blt(0, 0, @@bitmap_murawin, rect, 192)
    rect.x += 8
    @message_sprite.bitmap.blt(w - 8, 0, @@bitmap_murawin, rect, 192)
    rect.y += 8
    @message_sprite.bitmap.blt(w - 8, h - 8, @@bitmap_murawin, rect, 192)
    rect.x -= 8
    @message_sprite.bitmap.blt(0, h - 8, @@bitmap_murawin, rect, 192)
    rect.set(16, 0, 8, 8)
    @message_sprite.bitmap.blt(@message_sprite.ox - 4, h,
      @@bitmap_murawin, rect, 192)
    color = @@bitmap_murawin.get_pixel(8, 8)
    color.alpha = 192
    @message_sprite.bitmap.fill_rect(8, 0, w - 16, h, color)
    @message_sprite.bitmap.fill_rect(0, 8, 8, h - 16, color)
    @message_sprite.bitmap.fill_rect(w - 8, 8, 8, h - 16, color)
    @message_sprite.bitmap.blt(0, 0, bitmap, bitmap.rect)
    bitmap.dispose
    update_message
  end
  #--------------------------------------------------------------------------
  # ○ フキダシメッセージの更新
  #--------------------------------------------------------------------------
  def update_message
    if @message_duration > 0
      @message_duration -= 1
      if @message_duration == 0 or not @character.message_can_speak?
        @message_duration = 0
        dispose_message
      else
        @message_sprite.x = x
        @message_sprite.y = y - height
        @message_sprite.z = z + 200
        @message_sprite.opacity = @message_duration * 24
      end
    end
  end
  #--------------------------------------------------------------------------
  # ○ フキダシメッセージの解放
  #--------------------------------------------------------------------------
  def dispose_message
    if @message_sprite != nil
      @message_sprite.dispose
      @message_sprite = nil
    end
  end
end

跟随脚本

http://bbs.66rpg.com/thread-111958-1-1.html