GDC - Message

Goldencolor

=begin



  GDC - Message  GDC = Goldencolor  = =找戳。。。
       = =b未完善啊。还有部分功能没有写出来。。。时间。不够。这个工程写好好了N9。
没有来得及完善。算了。有兴趣的朋友帮忙加强完善。


      
准备把那个漫画对话框加强一下。。结果一看。那个什么啊。啊。咋么可以那样写。
因为是RMXP Standard Development Kit (SDK)基础上扩展的。。
看不懂。。

       算了等下次更新。= =b我坑坑坑
      
                                            V1.0    by Goldencolor

注：本脚本和公共事件开关变量使用起来会更加方便。如：用变量来控制显示头像。开关
来控制各种文字效果。
还有那个初始化配置不要乱改。
颜色的设置 在text_color方法内。  ●  枚举颜色  

   
┏━━━━ 使用说明 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
┠──── Class - 显示文章 ──────────────────────────
┃ \V[n]          - N = 变量ID 显示第 n 号变量中的值。
┃
┃ \C[n]          - N = 枚举颜色值  之后的文字用第 n 号的颜色显示。
┃                 定义枚举颜色：def text_color(n)
┃
┃ \G             - 显示金钱窗口
┃
┃ \F[name]       - name = 图片名字。显示一张图片在信息框里面.注：Pictures文件内
┃
┃ \FL            - 设置显示图片的位置在左边。
┃
┃ \FR            - 设置显示图片的位置在右边。
┃
┃ \BT[name]      - name = 战斗图名字。显示一张战斗图。注：Battlers 文件内
┃
┃ \BL            - 设置战斗图片的位置在左边。
┃
┃ \BR            - 设置战斗图片的位置在右边。
┃
┃ \H             - 可以和NPC对话的时候走动~-_-!! 具体实现方法见Game_Player
┃                - 修改部分地方就可以实现了。
┃
┃ \NA[name]      - name =你要设定角色的名字。 会在左上角出现一个名字窗口(俗称盒子= =b)
┃
┃ \MW[N]         -  改变窗口的宽度\MH   n=数字
┃
┃ \MH[N]         -  改变窗口的高度\MH   n=数字
┃
┃ \B             - 之后的文字为粗体 \i 文字 \i 这样可以只让文字2个字呈现粗体
┃
┃ \I             - 之后的文字为斜体 重复2个可以取消效
┃
┃ \U             - 下划线~
┃
┃ \SH            - 文字带有投影效果
┃
┃ \WX[n]         - 信息窗口的X位置  N=数字
┃
┃ \WY[n]         - 信息窗口的X位置  N=数字
┃
┃ \TP[n]         - 出现在目标身上。N = EVENT ID 。0指角色。
┃
┃ \MW[n]         - 层叠窗口 N=数字。
┃
┃ \MT[n]         - 自动根据文字内容调整大小。0=不适用。1=使用。
┃
┃ \SCO           — 实现对话框卷动效果(像读书系统一样自动翻页阅读)
┃
┃ \SCO           — 停止卷动
┃   
┃ \CD            — 显示多窗口。可以多人同时说话 注：使用如果使用这个，
┃                — 请设置好每个对话框的位置否则会重叠
┃
┃ \CT[ n ]       — 等待n帧数  N=数字
┃
┃ \CL            — 停止等待
┃
┃ \Sk         — 显示技能图标及名字  I = 技能ID
┃
┃ \WP         — 显示物品图标及名字  I = 物品ID
┃
┃ \WQ         — 显示武器图标及名字  I = 武器ID
┃
┃
┃
┃= =b其他没有来得及写。下次补上
┃
┃
┃
┃
┃
┃
┃
┃
┃
┠──── Class - 事件 ────────────────────────────
┃
┃ 一坨。。。。。。。。。。。。。。。。。。。。。。。。。。。
┃ 有时间在补上吧。啊
┃
┃
┃
┃
┃
┃
┃
┃
┃
┃
┃
┃
┃
┃
┃
┃
┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
=end
#==============================================================================
# ■ Game_Temp
#------------------------------------------------------------------------------
# 　在没有存档的情况下，处理临时数据的类。这个类的实例请参考
# $game_temp 。
#==============================================================================
class Game_System
  
  alias mrmo_settings_ms_system_initialize initialize #别名
  #--------------------------------------------------------------------------
  # ● 定义实例变量
  #--------------------------------------------------------------------------
  attr_accessor :letterBYletter
  attr_accessor :letter_speed
  attr_accessor :letter_se
  attr_accessor :window_x
  attr_accessor :window_y
  attr_accessor :player_skip
  attr_accessor :window_to_text
  attr_accessor :message_width
  attr_accessor :message_height
  attr_accessor :nameBox_opacity
  attr_accessor :nameBox_to_window_opacity
  attr_accessor :message_font
  attr_accessor :hover_message
  attr_accessor :face_graphic
  attr_accessor :face_justify
  attr_accessor :battler_graphic
  attr_accessor :battler_justify
  attr_accessor :multiple_windows
  attr_accessor :scrolling_text
  attr_accessor :scroll_speed
  attr_accessor :scroll_lines
  attr_accessor :auto_scroll
  attr_accessor :close_on_display
  attr_accessor :close_on_time
  #--------------------------------------------------------------------------
  # ● 初始化对像
  # 下面是对整个对话框的配置
  #--------------------------------------------------------------------------
  def initialize
   
    mrmo_settings_ms_system_initialize


    @nameBox_opacity = 0      # 名字窗口不透明度数
   
    @nameBox_to_window_opacity = true # true对名字框不设置不透明，false设置
                                       
    @letterBYletter = true      # 如果真可以用\lbl控制显示样式。
    #0=直接在上面显示文本。其他以打字方式出现
   
    @letter_speed = 2            # 控制对话框的速度
    #建议变量控制起来
                                
    @player_skip = true          #如果按下决定键可以让对话跳过吗？
    #\ps[0]  可以跳过。\PS[1]不可以
                              
                                
    @letter_se = ""#"033-Switch02"   对话打字效果播放的SE音效
    #如果不想使用""就可以了
                                
    @window_x  = 80                  #对话框的X位置。\wx
                                
    @window_y  = 304                 #对话框的X位置。\wy
                                
    @window_to_text =false            #使用模式对话框。对话框会根据文本大小自动调整。
    #建议用开关控制起来               #\mt[0]
                                      
    @message_width = 480              # 信息窗口的宽度
    # \mw[width]
                                
    @message_height = 160             # 信息窗口的高度
    # \mh[height]
                                       
    @message_font = Font.default_name  # 信息框字体类型
    # \ft[name]
                        
    @hover_message = false             # 对话框的时候玩家可以移动
    # \h
            
    @face_graphic = ""                 # 信息框显示图片。这个用变量控制起来最好用了
    # \f[name]
    # 注：在 picture
                                       
    @face_justify = 0                  # 0 = 左边 1 = 右边  #图片
    # \fl = 左边 \fr = 右边
                                       
    @battler_justify = 0               # 0 = 左边 1 = 右边
    # \bl = 左边 \br = 右边
            
    @battler_graphic = ""              #显示战斗图。   
    # \bt[name]
   
    @scroll_speed = 30                 # 卷动速度。数字越高越慢。
   
    @scroll_lines = 4                  # 卷动数字
   
    @close_on_display = false          # 结束等待。
    # \cl
    @close_on_time = nil               # 等待时间
    # \ct[time]
    #############下面东西不要修改。                                    
    @multiple_windows = []
    @scrolling_text = nil     
    @auto_scroll = true   #决定键
  end
  #--------------------------------------------------------------------------
  # ●  枚举颜色。可以自定义颜色\C[n] 文字用第 n 号的颜色显示。
  #---------------------------------------------------------------------------
  #  例：
  #  when N Color.new(R,R,R,A)
  #  N = 你枚举的数
  #  R = RGB标准值
  #  A = 颜色透明度
  #--------------------------------------------------------------------------
  def text_color(n)
    case n
    when 0
      return Color.new(255, 255, 255, 255) # 白色
    when 1
      return Color.new(128, 128, 255, 255) # 黑色
    when 2
      return Color.new(255, 128, 128, 255) # 红色
    when 3
      return Color.new(128, 255, 128, 255) # 绿色
    when 4
      return Color.new(128, 255, 255, 255) # 浅蓝
    when 5
      return Color.new(255, 128, 255, 255) # 紫色
    when 6
      return Color.new(255, 255, 128, 255) # 黄色
    when 7
      return Color.new(192, 192, 192, 255) # 灰色
      #when 8
      #return Color.new(RED,BLUE,GREEN,ALPHA)#枚举标准格式
    else
      normal_color
    end
  end
  
  #--------------------------------------------------------------------------
  # ● 定义实例变量(如果想要添加：实例Name)
  #--------------------------------------------------------------------------
  attr_accessor :letterBYletter, :letter_speed, :letter_se, :window_x, :window_y,
    :player_skip, :window_to_text, :message_width, :message_height, :nameBox_opacity,
    :nameBox_to_window_opacity, :message_font, :hover_message, :face_graphic,
    :face_justify, :battler_graphic, :battler_justify, :multiple_windows,
    :scrolling_text, :scroll_speed, :scroll_lines, :auto_scroll, :close_on_display,
    :close_on_time
end

class Window_Message < Window_Selectable
  #--------------------------------------------------------------------------
  attr_accessor :text
  attr_accessor :messboxStyle
  attr_accessor :messboxName
  
  #--------------------------------------------------------------------------
  #  ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize
    super(80, 304, $game_system.message_width, $game_system.message_height)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.visible = false
    self.z = 9998
    @fade_in = @fade_out = @contents_showing = false
    @cursor_width = 0
    self.active = false
    self.index = -1
    @lbl_count = @face_width = @battler_width = 0
    @name_box = Window_NameBoxMd.new
    # 空文本
    @text = nil
  end
  #--------------------------------------------------------------------------
  #  ● 释放
  #--------------------------------------------------------------------------
  def dispose
    terminate_message
    $game_temp.message_window_showing = false
    @input_number_window.dispose if @input_number_window != nil
    @name_box.dispose
    super
  end
  #--------------------------------------------------------------------------
  # ● 处理信息结束
  #--------------------------------------------------------------------------
  def terminate_message
    self.active = false
    self.pause = false
    self.index = -1
    self.contents.clear
    ####
    $game_system.hover_message = false
    # 清除显示中标志
   
    @contents_showing = false
   
    # 呼叫信息调用
    $game_temp.message_proc.call if $game_temp.message_proc != nil
   
    # 清除文章、选择项、输入数值的相关变量
    $game_temp.message_text = nil
    $game_temp.message_proc = nil
    $game_temp.choice_start = 99
    $game_temp.choice_max = 0
    $game_temp.choice_cancel_type = 0
    $game_temp.choice_proc = nil
    $game_temp.num_input_start = 99
    $game_temp.num_input_variable_id = 0
    $game_temp.num_input_digits_max = 0
   
    # 开放金钱窗口
    if @gold_window != nil
      @gold_window.dispose
      @gold_window = nil
    end
    # 其他
    @lbl_count = 0
    @temp_skip = false
    $game_system.close_on_display = false
    $game_system.close_on_time = nil
    @name_box.visible = false
    # Text
    @text = nil
    $game_system.scrolling_text = nil
    # 多重窗口
    if !$game_system.multiple_windows.include?(self)
      for i in 0..$game_system.multiple_windows.size
        w = $game_system.multiple_windows
        next if w.nil?
        w.terminate_message
        w.dispose
      end
      $game_system.multiple_windows = []
    end
    # ShowImamgs =v-!
    self.contents.dispose
    self.contents = Bitmap.new(width - 32, height - 32)
    self.oy = 0
    @scroll_up = nil
  end
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    self.contents.font.color = normal_color
    @scroll_up = nil
    x = y = 0
    @cursor_width = 0
    # 到选择项的下一行字
    x = 8 if $game_temp.choice_start == 0
    # 有等待显示的文字的情况下
    if $game_temp.message_text != nil
      @text = $game_temp.message_text if @text.nil?
      @saved_text = @text
      #调整改变窗口大小
      modify_window
      #开始文本处理~
      begin
        last_text = @text.clone
        @text.gsub!(/\\[Vv]\[([0-9]+)\]/) { $game_variables[$1.to_i] }
      end until @text == last_text
      @text.gsub!(/\\[Nn]\[([0-9]+)\]/) do
        $game_actors[$1.to_i] != nil ? $game_actors[$1.to_i].name : ""
      end     
      #跳动
      @text.gsub!(/\\[Pp][Ss]\[([0-9]+)\]/) do
        bool = $1.to_i
        $game_system.player_skip = (bool == 0 ? false : true)
        ""
      end
      # 为了方便、将 "\\\\" 变换为 "\000"
      @text.gsub!(/\\\\/) { "\000" }
      # "\\C" 变为 "\001" 、"\\G" 变为 "\002"
      @text.gsub!(/\\[Cc]\[([0-9]+)\]/) { "\001[#{$1}]" }
      @text.gsub!(/\\[Gg]/) { "\002" }
      # lbl
      @text.gsub!(/\\[Ll][Bb][Ll]\[([0-9]+)\]/) { "\003[#{$1}]" }
      # lse =w= 音效！
      @text.gsub!(/\\[Ss][Ee]\[(.*?)\]/) { "\004[#{$1}]" }
      # ls
      @text.gsub!(/\\[Ll][Ss]\[([0-9]+)\]/) { "\005[#{$1}]" }
      # 图标
      @text.gsub!(/\\[Ii][Cc]\[(.*?)\]/) { "\015[#{$1}]" }
      # 物品图标
      @text.gsub!(/\\[Ww][Pp]\[([0-9]+)\]/) {
        item = $data_items[$1.to_i]
      "\016[#{$1}]"+item.name }
      # 武器图标
      @text.gsub!(/\\[Ww][Qq]\[([0-9]+)\]/) {
        item = $data_weapons[$1.to_i]
        "\017[#{$1}]" + item.name
      }
      # 防具图标
      @text.gsub!(/\\[Dd][Ff]\[([0-9]+)\]/) {
        item = $data_armors[$1.to_i]
        "\018[#{$1}]" + item.name
      }
      # 技能图标
      @text.gsub!(/\\[Ss][Kk]\[([0-9]+)\]/) {
        item = $data_skills[$1.to_i]
        "\019[#{$1}]"+ item.name
      }
      # 字体
      @text.gsub!(/\\[Ff][Tt]\[(.*?)\]/) { "\013[#{$1}]" }
      # b - 粗体
      @text.gsub!(/\\[Bb]/) { "\006" }
      # i - 斜体字
      @text.gsub!(/\\[Ii]/) { "\007" }
      # st - 特殊字符
      @text.gsub!(/\\[Tt][Ss]/) { "\010" }
      # u - 文字下划线
      @text.gsub!(/\\[Uu]/) { "\011" }
      # sh - 文字影子
      @text.gsub!(/\\[Yy][Zz]/) { "\014" }
      # 等待？帧数 \CT[帧数]
      @text.gsub!(/\\[Cc][Tt]\[([0-9]+)\]/) do
        $game_system.close_on_time = $1.to_i
        ""
      end
      # 停止等待
      @text.gsub!(/\\[Cc][Ll]/) do
        $game_system.close_on_display = true
        ""
      end
      #= =b这个暂时丢掉不用。以后更新在、、
      #      @text.gsub!(/\\[Pp][Ee]/) { "#{$game_player.social.personality}" }
      if $game_system.face_graphic != ""
        bitmap = RPG::Cache.picture($game_system.face_graphic)
        if $game_system.face_justify == 0
          self.contents.blt(0, y + 4, bitmap, Rect.new(0, 0, bitmap.width, bitmap.height))
        else
          self.contents.blt(self.width-bitmap.width-32, y + 4, bitmap, Rect.new(0, 0, bitmap.width, bitmap.height))
        end
        @face_width = bitmap.width
        x = 0
        x += @face_width if $game_system.face_justify == 0
      else
        @face_width = 0
      end
      # 显示Battle
      if $game_system.battler_graphic != ""
        bitmap = RPG::Cache.battler($game_system.battler_graphic,0)
        if $game_system.battler_justify == 0
          self.contents.blt(0, y + 4, bitmap, Rect.new(0, 0, bitmap.width, bitmap.height))
        else
          self.contents.blt(self.width-bitmap.width-32, y + 4, bitmap, Rect.new(0, 0, bitmap.width, bitmap.height))
        end
        @battler_width = bitmap.width
        x = 0
        x += @battler_width if $game_system.battler_justify == 0
      else
        @battler_width = 0
      end
      #循环获取文本。
      while ((c = @text.slice!(/./m)) != nil)#54就可用了
        # 卷动情况全解！！！！！独家啊
        
        if !$game_system.scrolling_text.nil?
          if !@scroll_up.nil?
            if @scroll_up == y
              scroll_frames = $game_system.scroll_speed
              # 等待。。。。等啊等啊
              while scroll_frames > 0
                scroll_frames -= 1
              end
              @scroll_up = y+1
              auto_s += 1
              @temp_skip = false
              if !$game_system.auto_scroll and auto_s == 4
                auto_s = 0
                #循环
                loop do
                  #刷新游戏画面
                  Graphics.update
                  # Player Skip
                  Input.update         
                  #按下C停止跳动
                  if Input.trigger?(Input::C)
                    break
                  end           
                end
              end
              #向上卷动
              self.oy+=32
            end
          else
            auto_s = 0
            self.oy -= 32*3
            @scroll_up = 1
          end
        end
        # \lbl 的情况下卷动
        if c == "\003"
          @text.sub!(/\[([0-9]+)\]/, "")
          bool = $1.to_i
          $game_system.letterBYletter = (bool == 0 ? false : true)
          next
        end
        # \ls 的情况下
        if c == "\005"
          @text.sub!(/\[([0-9]+)\]/, "")
          bool = $1.to_i
          $game_system.letter_speed = bool
          next
        end
        # \lse 的情况下
        if c == "\004"
          @text.sub!(/\[(.*?)\]/, "")
          $game_system.letter_se = $1.to_s
          next
        end
        if $game_system.letterBYletter and !@temp_skip
          @lbl_count = $game_system.letter_speed
          # 循环
          while @lbl_count > 0
            # 刷新画面
            Graphics.update
            if $game_system.player_skip
              Input.update         
              if Input.trigger?(Input::C)
                @temp_skip = true
              end           
            end
            #更新计数
            @lbl_count -= 1
          end
          if $game_system.letter_se != ""
            Audio.se_play("Audio/SE/" + $game_system.letter_se, 100, 100)
          end
        end
        # \\ 的情况下
        if c == "\000"
          # 还原为本来的文字
          c = "\\"
        end
        # \C[n] 的情况下
        if c == "\001"
          # 更改文字色
          @text.sub!(/\[([0-9]+)\]/, "")
          color = $1.to_i
          if color >= 0 and color <= 7
            self.contents.font.color = $game_system.text_color(color)
          end
          # 下面的文字         
          next
        end
        # \b 的情况下
        if c == "\006"
          # 变换文字
          self.contents.font.bold = !self.contents.font.bold
          # 下面的文字
          next
        end
        # \i 的情况下
        if c == "\007"
          # 变换文字
          self.contents.font.italic = !self.contents.font.italic
          # 下面的文字
          next
        end
        # \st 的情况下
        if c == "\010"
          # 变换文字
          self.contents.font.strikethrough = !self.contents.font.strikethrough if self.contents.font.respond_to?(:strikethrough)
          # 下面的文字
          next
        end
        # \u 的情况下
        if c == "\011"
          #
          self.contents.font.underline = !self.contents.font.underline if self.contents.font.respond_to?(:underline)
          # 下面的文字
          next
        end
        # \sh 的情况下
        if c == "\014"
          # 变换文字
          self.contents.font.shadow = !self.contents.font.shadow if self.contents.font.respond_to?(:shadow)
          # 下面的文字
          next
        end
        # \font 的情况下
        if c == "\013"
          @text.sub!(/\[(.*?)\]/, "")
          $game_system.message_font = $1.to_s
          # 下面的文字
          next
        end
        if $game_system.message_font.downcase == ""
          self.contents.font.name = Font.default_name
        else
          self.contents.font.name = $game_system.message_font
        end
        # \G 的情况下
        if c == "\002"
          # 生成金钱窗口
          if @gold_window.nil?
            @gold_window = Window_Gold.new
            @gold_window.x = 560 - @gold_window.width
            if $game_temp.in_battle
              @gold_window.y = 192
            else
              @gold_window.y = self.y-@gold_window.height
              @gold_window = self.y+self.height if @gold_window.y  < 0
              @gold_window.x = self.x
            end
            @gold_window.opacity = self.opacity
            @gold_window.back_opacity = self.back_opacity
          end
          # 下面的文字
          next
        end
        # 另起一行文字的情况下
        if c == "\n"
          # 刷新选择项及光标的高
          if y >= $game_temp.choice_start
            @cursor_width = [@cursor_width, x].max
          end
          # y 加 1
          y += 1
          x = 0
          x += @face_width if $game_system.face_justify == 0
          x += @battler_width if $game_system.battler_justify == 0
          # 刷新选择项及光标的高
          if y >= $game_temp.choice_start
            index = y-$game_temp.choice_start
            cursor_width = self.width / 2 - 32
            x = index % 2 * (cursor_width + 32) + 8
          end
          # 下面的文字
          next
        end
        # 图标的情况下
        if c == "\015"
          @text.sub!(/\[(.*?)\]/, "")
          bitmap = RPG::Cache.icon($1.to_s)
          self.contents.blt(x, 32*y + 4, bitmap, Rect.new(0, 0, 24, 24))
          # x 为要描绘文字的加法运算
          x += 24
          next
        end
        # 物品图标的情况下
        if c == "\016"
          @text.sub!(/\[([0-9]+)\]/, "")
          name = $data_items[$1.to_i]
          next if name.nil?
          bitmap = RPG::Cache.icon(name.icon_name)
          self.contents.blt(x, 32*y + 4, bitmap, Rect.new(0, 0, 24, 24))
          # x 为要描绘文字的加法运算
          x += 24
          next
        end
        # 武器图标的情况下
        if c == "\017"
          @text.sub!(/\[([0-9]+)\]/, "")
          name = $data_weapons[$1.to_i]
          next if name.nil?
          bitmap = RPG::Cache.icon(name.icon_name)
          self.contents.blt(x, 32*y + 4, bitmap, Rect.new(0, 0, 24, 24))
          # x 为要描绘文字的加法运算
          x += 24
          next
        end
        # 防具图标情况下
        if c == "\018"
          @text.sub!(/\[([0-9]+)\]/, "")
          name = $data_armors[$1.to_i]
          next if name.nil?
          bitmap = RPG::Cache.icon(name.icon_name)
          self.contents.blt(x, 32*y + 4, bitmap, Rect.new(0, 0, 24, 24))
          # x 为要描绘文字的加法运算
          x += 24
          next
        end
        # 技能图标的情况下
        if c == "\019"
          @text.sub!(/\[([0-9]+)\]/, "")
          index = $1.to_i
         # name = $data_skills[$1.to_i]
          item = $data_skills[index]
          next if name.nil?
          icon = RPG::Cache.icon(item.icon_name)
          bitmap = RPG::Cache.icon(name.icon_name)
          self.contents.blt(x, 32*y + 4, bitmap, Rect.new(0, 0, 24, 24))
          #self.contents.blt(@x + 2, (@y * line) + 4, icon, Rect.new(0, 0, 24, 24))
          # x 为要描绘文字的加法运算
          x += 24
          next
        end
        # 描绘文字
        self.contents.draw_text(4 + x, 32 * y, 40, 32, c) if y < $game_temp.choice_start
        index = y - $game_temp.choice_start
        self.contents.draw_text(4 + x, (index/2*32)+((y-index)*32), 40, 32, c) if y >= $game_temp.choice_start
        # x 为要描绘文字的加法运算
        x += self.contents.text_size(c).width
      end
    end
    self.oy += 32 if !$game_system.scrolling_text.nil?
    # 选择项的情况
    if $game_temp.choice_max > 0
      @item_max = $game_temp.choice_max
      self.active = true
      @column_max = 2 if $game_temp.choice_max > 1
      self.index = 0
    end
    # 输入数值的情况
    if $game_temp.num_input_variable_id > 0
      digits_max = $game_temp.num_input_digits_max
      number = $game_variables[$game_temp.num_input_variable_id]
      @input_number_window = Window_InputNumber.new(digits_max)
      @input_number_window.number = number
      @input_number_window.x = self.x + 8
      @input_number_window.y = self.y + $game_temp.num_input_start * 32
    end
    if $game_system.close_on_display
      if $game_temp.choice_max > 0
        $game_system.se_play($data_system.decision_se)
        $game_temp.choice_proc.call(self.index)
      end
      terminate_message
    end
    if $game_system.close_on_time != nil
      loop do
        Graphics.update
        $game_system.close_on_time -= 1
        break if $game_system.close_on_time <= 0
      end
      if $game_temp.choice_max > 0
        $game_system.se_play($data_system.decision_se)
        $game_temp.choice_proc.call(self.index)
      end
      terminate_message
    end
  end
  #--------------------------------------------------------------------------
  # ● 改变窗口
  #--------------------------------------------------------------------------
  #   有关控制信息窗口的都在这里
  #--------------------------------------------------------------------------
  def modify_window
    # 改变窗口的宽度
    @text.gsub!(/\\[Mm][Ww]\[([0-9]+)\]/) do
      $game_system.message_width = self.width = $1.to_i
      ""
    end
    # 改变窗口的高度\MH
    @text.gsub!(/\\[Mm][Hh]\[([0-9]+)\]/) do
      $game_system.message_height = self.height = $1.to_i
      ""
    end
    # 窗口的大小根据文本长度改变\Mt 模态窗口
    @text.gsub!(/\\[Mm][Tt]\[([0-9]+)\]/) do
   
      bool = $1.to_i
      $game_system.window_to_text = (bool == 0 ? false : true)
      ""
    end   
    if $game_system.window_to_text
      size = 0
      for string in (@text.clone).split("\n")
        next if string.nil?
        w = contents.text_size(string).width+32
        size = w+32 if size+32 < w
      end
      self.width = size
      self.width = size*2 if $game_temp.choice_start == 0
      self.height = (@text.clone).split("\n").size * 32 + 32
      self.height = self.height/2 + 32 if $game_temp.choice_start == 0
      self.contents.dispose
      if $game_system.scrolling_text.nil?
        self.contents = Bitmap.new(width - 32, height - 32)
      else
        h = ($game_temp.message_text.clone).split("\n").size * 32 + 32
        self.contents.dispose
        self.contents = Bitmap.new(width - 32, h+32)
      end
    else
      self.width = $game_system.message_width
      self.height = $game_system.message_height
      if $game_system.scrolling_text.nil?
        self.contents = Bitmap.new(width - 32, height - 32)
      else
        h = ($game_temp.message_text.clone).split("\n").size * 32 + 32
        self.contents.dispose
        self.contents = Bitmap.new(width - 32, h+32)
      end
    end
    # X 位置
    @text.gsub!(/\\[Ww][Xx]\[([0-9]+)\]/) do
      $game_system.window_x = self.x = $1.to_i
      ""
    end
    # Y 位置
    @text.gsub!(/\\[Ww][Yy]\[([0-9]+)\]/) do
      $game_system.window_y = self.y = $1.to_i
      ""
    end
    # 消息框的位置。0=角色
    @text.gsub!(/\\[Ww][Zz]\[([0-9]+)\]/) do
      id = $1.to_i
      if id == 0
        self.x = $game_player.screen_x - self.width/2
        self.y = $game_player.screen_y
        self.y = $game_player.screen_y - (64+self.height) if $game_system.window_to_text
      else
        self.x = $game_map.events[id].screen_x - self.width/2
        self.y = $game_map.events[id].screen_y
        self.y = $game_map.events[id].screen_y - (64+self.height) if $game_system.window_to_text
      end
      ""
    end
    # 正常窗口
    correct_window
    # 显示名字盒子\Nm[name]
    @text.gsub!(/\\[Nn][Mm]\[(.*?)\]/) do
      name = $1.to_s
      @name_box.text = name
      @name_box.visible = true
      @name_box.y = self.y-@name_box.height
      @name_box.x = self.x
      @name_box.y = self.height if @name_box.y < 0
      ""
    end
    # 显示图片
    @text.gsub!(/\\[Ff]\[(.*?)\]/) do
      name = $1.to_s
      $game_system.face_graphic = name
      @face_width = 0 if name == ""
      ""
    end
    # 设置头像位置左边
    @text.gsub!(/\\[Ff][Ll]/) do
      $game_system.face_justify = 0
      ""
    end
    # 设置头像位置右边
    @text.gsub!(/\\[Ff][Rr]/) do
      $game_system.face_justify = 1
      ""
    end
    # 显示战斗图片
    @text.gsub!(/\\[Bb][Tt]\[(.*?)\]/) do
      name = $1.to_s
      $game_system.battler_graphic = name
      @battler_width = 0 if name == ""
      ""
    end
    # 设置战斗图位置左边
    @text.gsub!(/\\[Bb][Ll]/) do
      $game_system.battler_justify = 0
      ""
    end
    # 设置战斗图位置右边
    @text.gsub!(/\\[Bb][Rr]/) do
      $game_system.battler_justify = 1
      ""
    end
  end
  #--------------------------------------------------------------------------
  # ● 正常窗口
  #--------------------------------------------------------------------------
  def correct_window
    if self.x > 640-self.width
      self.x = 640-self.width
    elsif self.x < 0
      self.x = 0
    end
    if self.y > 480-self.height
      self.y = 480-self.height
    elsif self.y <= 0
      self.y = 0
    end
  end
  #--------------------------------------------------------------------------
  # ● 设置窗口位置与不透明度
  #--------------------------------------------------------------------------
  #  这里可以修改文章选项位置和不透明度~~
  #--------------------------------------------------------------------------
  def reset_window
    if $game_temp.in_battle
      self.y = 16
    else
      case $game_system.message_position
      when 0  # 上
        self.y = 16
      when 1  # 中
        self.y = 160
      when 2  # 下
        self.y = 304
      end
    end     
    if $game_system.message_frame == 0
      self.opacity = 255
    else
      self.opacity = 0
    end
    self.back_opacity = 160
    self.x = $game_system.window_x
    self.y = $game_system.window_y
    @temp_skip = false
    # 更新图片大小
    if !$game_system.scrolling_text.nil?
      h = ($game_temp.message_text.clone).split("\n").size * 32
      self.contents.dispose
      self.contents = Bitmap.new(width - 32, h)
    end
  end
  #--------------------------------------------------------------------------
  # ● 向下卷动
  #--------------------------------------------------------------------------
  def scroll_down
    i = 0
    h = @text.split("\n").size * 32 + 32
    while i < 32*4
      # 刷新游戏画面
      Graphics.update
      self.oy += $game_system.scroll_speed
      i += $game_system.scroll_speed
      if self.oy >= self.contents.height
        break
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 搞定卷动
  #--------------------------------------------------------------------------
  def scroll_done
    return true if self.oy >= self.contents.height - 32*4
    return false
  end
  #--------------------------------------------------------------------------
  # ● 显示多个窗口(本脚本的特点啊！)
  #--------------------------------------------------------------------------
  def show_m_window
    @contents_showing = true
    reset_window
    self.visible = true if $game_system.letterBYletter or !$game_system.scrolling_text.nil?
    refresh
    Graphics.frame_reset
    self.visible = true
    if @input_number_window != nil
      @input_number_window.contents_opacity = 0 if !$game_system.letterBYletter and $game_system.scrolling_text.nil?
    end
  end
  #--------------------------------------------------------------------------
  # ● 刷新画面 = =b又到了刷新的时候了。刷一刷天天都干净！-_-!!
  #--------------------------------------------------------------------------
  def update
    super
    #在存在的时候。名字框刷新。
    @name_box.update if @name_box.visible
    @name_box.opacity = $game_system.nameBox_opacity if !$game_system.nameBox_to_window_opacity and @name_box.opacity != $game_system.nameBox_opacity
    @name_box.opacity = self.opacity if $game_system.nameBox_to_window_opacity and @name_box.opacity != self.opacity
    # 渐变的情况下
    if @fade_in and !$game_system.letterBYletter and $game_system.scrolling_text.nil?
      self.contents_opacity += 24
      if @input_number_window != nil
        @input_number_window.contents_opacity += 24
      end
      if self.contents_opacity == 255
        @fade_in = false
      end
      return
    elsif ($game_system.letterBYletter or !$game_system.scrolling_text.nil?) and @fade_in
      return @fade_in = false
    end
    # 输入数值的情况下
    if @input_number_window != nil
      @input_number_window.update
      #确定
      if Input.trigger?(Input::C)
        $game_system.se_play($data_system.decision_se)
        $game_variables[$game_temp.num_input_variable_id] = @input_number_window.number
        $game_map.need_refresh = true
        # 释放输入数值窗口
        @input_number_window.dispose
        @input_number_window = nil
        terminate_message
      end
      return
    end
    # 显示信息中的情况下
    if @contents_showing
      # 如果不是在显示选择项中就显示暂停标志
      if $game_temp.choice_max == 0
        self.pause = true
      end
      # 确定
      if Input.trigger?(Input::B)
        if $game_temp.choice_max > 0 and $game_temp.choice_cancel_type > 0
          $game_system.se_play($data_system.cancel_se)
          $game_temp.choice_proc.call($game_temp.choice_cancel_type - 1)
          terminate_message
        end
      end
      # 确定  
      if Input.trigger?(Input::UP) or Input.trigger?(Input::DOWN) or
          Input.trigger?(Input::LEFT) or Input.trigger?(Input::RIGHT)
        if $game_temp.choice_max <= 0 and $game_system.hover_message
          return terminate_message
        end
      end
      # 确定  
      if Input.trigger?(Input::C)
        if $game_temp.choice_max > 0
          $game_system.se_play($data_system.decision_se)
          $game_temp.choice_proc.call(self.index)
        end
        terminate_message
      end
      return
    end
    # 在渐变以外的状态下有等待显示的信息与选择项的场合
    if @fade_out == false and $game_temp.message_text != nil
      @contents_showing = true
      $game_temp.message_window_showing = true
      reset_window
      self.visible = true if $game_system.letterBYletter or !$game_system.scrolling_text.nil?
      refresh
      Graphics.frame_reset
      self.visible = true
      self.contents_opacity = 0 if !$game_system.letterBYletter and $game_system.scrolling_text.nil?
      if @input_number_window != nil
        @input_number_window.contents_opacity = 0 if !$game_system.letterBYletter and $game_system.scrolling_text.nil?
      end
      # 显示多窗口
      if !$game_system.multiple_windows.include?(self)
        for w in $game_system.multiple_windows
          next if w.nil?
          w.show_m_window
        end
      end
      return @fade_in = true
    end
    # 没有可以显示的信息、但是窗口为可见的情况下
    if self.visible   
      @fade_out = true
      self.opacity -= 48
      if self.opacity == 0
        self.visible = false
        @fade_out = false
        $game_temp.message_window_showing = false
      end
      return
    end
  end
  #--------------------------------------------------------------------------
  # ● 更新光标矩形
  #-------------------------------------------------------------------------- def update_cursor_rect
  def update_cursor_rect
    # 光标位置不满 0 的情况下
    return self.cursor_rect.empty if @index < 0
    # 获取当前的行
    row = @index / @column_max
    # 当前行被显示开头行前面的情况下
    if row < self.top_row
      # 从当前行向开头行滚动
      self.top_row = row
    end
    # 当前行被显示末尾行之后的情况下
    if row > self.top_row + (self.page_row_max - 1)
      # 从当前行向末尾滚动
      self.top_row = row - (self.page_row_max - 1)
    end
    # 计算光标的宽度
    cursor_width = self.width / @column_max - 32
    # 计算光标坐标
    x = @index % @column_max * (cursor_width + 32)
    y = @index / @column_max * 32 - self.oy
    # 更新光标矩形
    self.cursor_rect.set(x, y+($game_temp.choice_start*32), cursor_width, 32)
  end
end
#==============================================================================
#● 名字框家族= =b之一
#-------------------------------------------------------------------------------
# 这个算老大吧。
#===============================================================================
class Window_NameBoxMd < Window_Base
  #--------------------------------------------------------------------------
  #  ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 160, 32)
    self.visible = false
    @text = ""
    @dummy_window = Window_NameBoxModel.new(self)
  end
  #--------------------------------------------------------------------------
  # ● 文本
  #--------------------------------------------------------------------------
  def text=(t)
    return if @text == t
    # 编辑文本
    @dummy_window.text = @text = t
  end
  #--------------------------------------------------------------------------
  #  ● 释放
  #--------------------------------------------------------------------------
  def dispose
    super
    @dummy_window.dispose if !@dummy_window.nil?
  end
  # X
  def y=(v)
    super(v)
    @dummy_window.y = v-16 if !@dummy_window.nil?
  end
  # Y
  def x=(v)
    super(v)
    @dummy_window.x = v if !@dummy_window.nil?
  end
  #--------------------------------------------------------------------------
  # ● 显示端口
  #--------------------------------------------------------------------------
  def visible=(v)
    super(v)
    @dummy_window.visible = v if !@dummy_window.nil?
  end
end
#==============================================================================
# ● 名字框家族= =b之一
#------------------------------------------------------------------------------
# 这个就是传说中又上角那个小框框~显示名字那个地方
#===============================================================================
class Window_NameBoxModel < Window_Base
  #--------------------------------------------------------------------------
  #  ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize(parent)
    super(0, 0, 160, 64)
    self.visible = false
    self.opacity = 0
    @name_box = parent
    self.contents = Bitmap.new(width - 32, height - 32)
    @text = ""
  end
  #--------------------------------------------------------------------------
  # ● 文本
  #--------------------------------------------------------------------------
  def text=(t)
    return if @text == t
    @text = t
    refresh
  end
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  def refresh
    # 变化大小~
    self.width = cx = contents.text_size(@text).width + 32
    @name_box.width = self.width
    self.contents.dispose if !self.contents.disposed?
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.draw_text(0, 0, cx-32, 32, @text)
  end
  
end
=begin
-------------------------------------------------------------------------------

-------------------------------------------------------------------------------
=end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　处理地图画面的类。
#==============================================================================
class Scene_Map
  #--------------------------------------------------------------------------
  # ● 刷新画面
  #--------------------------------------------------------------------------
  def update
    # 循环
    loop do
      # 按照地图、实例、主角的顺序刷新
      # (本更新顺序不会在满足事件的执行条件下成为给予角色瞬间移动
      #  的机会的重要因素)
      $game_map.update
      $game_system.map_interpreter.update
      $game_player.update
      # 系统 (计时器)、画面刷新
      $game_system.update
      $game_screen.update
      # 如果主角在场所移动中就中断循环
      unless $game_temp.player_transferring
        break
      end
      # 执行场所移动
      transfer_player
      #  处理过渡中的情况下、中断循环
      if $game_temp.transition_processing
        break
      end
    end
    # 刷新活动块
    @spriteset.update
    # 刷新信息窗口
    @message_window.update
    # 游戏结束的情况下
    if $game_temp.gameover
      # 切换的游戏结束画面
      $scene = Scene_Gameover.new
      return
    end
    # 返回标题画面的情况下
    if $game_temp.to_title
      # 切换到标题画面
      $scene = Scene_Title.new
      return
    end
    # 处理过渡中的情况下
    if $game_temp.transition_processing
      # 清除过渡处理中标志
      $game_temp.transition_processing = false
      # 执行过渡
      if $game_temp.transition_name == ""
        Graphics.transition(20)
      else
        Graphics.transition(40, "Graphics/Transitions/" +
            $game_temp.transition_name)
      end
    end
    # 显示信息窗口中的情况下。
    if $game_temp.message_window_showing and !$game_system.hover_message
      return
    end
    # 遇敌计数为 0 且、且遇敌列表不为空的情况下
    if $game_player.encounter_count == 0 and $game_map.encounter_list != []
      # 不是在事件执行中或者禁止遇敌中
      unless $game_system.map_interpreter.running? or
          $game_system.encounter_disabled
        # 确定队伍
        n = rand($game_map.encounter_list.size)
        troop_id = $game_map.encounter_list[n]
        # 队伍有效的话
        if $data_troops[troop_id] != nil
          # 设置调用战斗标志
          $game_temp.battle_calling = true
          $game_temp.battle_troop_id = troop_id
          $game_temp.battle_can_escape = true
          $game_temp.battle_can_lose = false
          $game_temp.battle_proc = nil
        end
      end
    end
    # 按下 B 键的情况下
    if Input.trigger?(Input::B)
      # 不是在事件执行中或菜单禁止中
      unless ($game_system.map_interpreter.running? and !$game_system.hover_message) or
          $game_system.menu_disabled
        # 设置菜单调用标志以及 SE 演奏
        $game_temp.menu_calling = true
        $game_temp.menu_beep = true
      end
    end
    # 调试模式为 ON 并且按下 F9 键的情况下
    if $DEBUG and Input.press?(Input::F9)
      # 设置调用调试标志
      $game_temp.debug_calling = true
    end
    # 不在主角移动中的情况下
    unless $game_player.moving?
      # 执行各种画面的调用
      if $game_temp.battle_calling
        call_battle
      elsif $game_temp.shop_calling
        call_shop
      elsif $game_temp.name_calling
        call_name
      elsif $game_temp.menu_calling
        call_menu
      elsif $game_temp.save_calling
        call_save
      elsif $game_temp.debug_calling
        call_debug
      end
    end
  end
end
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
# 本类的实例请参考 $game_player。
#==============================================================================
class Game_Player < Game_Character
  #--------------------------------------------------------------------------
  # ● 画面更新
  #--------------------------------------------------------------------------
  def update
    # 本地变量记录移动信息
    last_moving = moving?
    # 移动中、事件执行中、强制移动路线中、
    # 信息窗口一个也不显示的时候
    unless moving? or ($game_system.map_interpreter.running? and !$game_system.hover_message) or
        @move_route_forcing or ($game_temp.message_window_showing and !$game_system.hover_message)
      # 如果方向键被按下、主角就朝那个方向移动
      #= =b我个人比较喜欢8方向行走所有改了这里如果你喜欢改下面注释就好了
      case Input.dir8 #表示8方向
      when 2
        move_down
      when 4
        move_left
      when 6
        move_right
      when 8
        move_up
      when 1
        move_lower_left
      when 3
        move_lower_right
      when 7  
        move_upper_left
      when 9
        move_upper_right
      end
      #case Input.dir4  #表示4方向
      #  when 2  
      #    move_down   
      #  when 4
      #    move_left
      #  when 6
      #   move_right
      #  when 8
      #   move_up
      #  end
    end
    # 本地变量记忆坐标
    last_real_x = @real_x
    last_real_y = @real_y
    super
    # 角色向下移动、画面上的位置在中央下方的情况下
    if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
      # 画面向下卷动
      $game_map.scroll_down(@real_y - last_real_y)
    end
    # 角色向左移动、画面上的位置在中央左方的情况下
    if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
      # 画面向左卷动
      $game_map.scroll_left(last_real_x - @real_x)
    end
    # 角色向右移动、画面上的位置在中央右方的情况下
    if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
      # 画面向右卷动
      $game_map.scroll_right(@real_x - last_real_x)
    end
    # 角色向上移动、画面上的位置在中央上方的情况下
    if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
      # 画面向上卷动
      $game_map.scroll_up(last_real_y - @real_y)
    end
    # 不在移动中的情况下
    unless moving?
      # 上次主角移动中的情况
      if last_moving
        # 与同位置的事件接触就判定为事件启动
        result = check_event_trigger_here([1,2])
        # 没有可以启动的事件的情况下
        if result == false
          # 调试模式为 ON 并且按下 CTRL 键的情况下除外
          unless $DEBUG and Input.press?(Input::CTRL)
            # 遇敌计数下降
            if @encounter_count > 0
              @encounter_count -= 1
            end
          end
        end
      end
      # 按下 C 键的情况下
      if Input.trigger?(Input::C)
        # 判定为同位置以及正面的事件启动
        check_event_trigger_here([0])
        check_event_trigger_there([0,1,2])
      end
    end
  end
end

#==============================================================================
# ■ Interpreter (分割定义 3)
#------------------------------------------------------------------------------
# 　执行事件指令的解释器。本类在 Game_System 类
# 和 Game_Event 类的内部使用。
# 重新定义101号事件　= =b这里也是整个信息框的核心部分
#==============================================================================

class Interpreter
  #--------------------------------------------------------------------------
  # ● 显示文章
  #  重定义。
  #--------------------------------------------------------------------------
  def command_101
    # # 结束已经设置过 message_text 的情况
    return false if $game_temp.message_text != nil
         
    # 设置信息结束后待机和返回调用标志
    @message_waiting = true
    $game_temp.message_proc = Proc.new { @message_waiting = false }
    # message_text 设置为 1 行
    $game_temp.message_text = @list[@index].parameters[0] + "\n"
    line_count = 1
    #  循环
    loop do
      # 下一个事件指令为文章两行以上的情况
      if @list[@index+1].code == 401
        # message_text 添加到第 2 行以下
        $game_temp.message_text += @list[@index+1].parameters[0] + "\n"
        line_count += 1
        # 事件指令不在文章两行以下的情况
      else
        # 下一个事件指令为显示选择项的情况下
        if @list[@index+1].code == 102
          # 如果选择项能收纳在画面里
          if @list[@index+1].parameters[0].size <= 6 - line_count
            # 推进索引
            @index += 1
            # 设置选择项
            $game_temp.choice_start = line_count
            setup_choices(@list[@index].parameters)
          end
          # 下一个事件指令为处理输入数值的情况下
        elsif @list[@index+1].code == 103
          # 如果数值输入窗口能收纳在画面里
          if line_count < 4
            # 推进索引
            @index += 1
            # 设置输入数值
            $game_temp.num_input_start = line_count
            $game_temp.num_input_variable_id = @list[@index].parameters[0]
            $game_temp.num_input_digits_max = @list[@index].parameters[1]
          end
        end
        # = =b人物可以在对话的时候走动
        $game_temp.message_text.gsub!(/\\[Hh]/) do
          $game_system.hover_message = true
          ""
        end
        # 显示多窗口(层叠)= =b终于要写完了
        $game_temp.message_text.gsub!(/\\[Cc][Dd]/) do
          window = Window_Message.new
          window.text = $game_temp.message_text
          $game_system.multiple_windows.push(window)
          $game_temp.message_text = nil
          $game_temp.message_proc = nil
          @message_waiting = false
          ""
        end
        return true if $game_temp.message_text.nil?
        # 向上卷动
        $game_temp.message_text.gsub!(/\\[Ss][Cc][Oo]/) do
          $game_system.scrolling_text = "" if $game_system.scrolling_text.nil?
          $game_system.scrolling_text += $game_temp.message_text
          #$game_system.scrolling_text += "\n"
          # 清除文章、选择项、输入数值的相关变量
          $game_temp.message_text = nil
          $game_temp.message_proc = nil
          @message_waiting = false
          ""
        end
        return true if $game_temp.message_text.nil?
        $game_temp.message_text.gsub!(/\\[Ss][Cc][Rr]/) do
          $game_system.scrolling_text = "" if $game_system.scrolling_text.nil?
          $game_system.scrolling_text += $game_temp.message_text
          $game_system.scrolling_text.gsub!(/\\[Ss][Cc][Rr]/) { "" }
          $game_system.scrolling_text.gsub!(/\\[Ss][Cc][Oo]/) { "" }
          $game_temp.message_text = $game_system.scrolling_text
          ""
        end
        # 继续
        return true
      end
      # 推进索引
      @index += 1
    end
  end
end

GDC - Message 没有来得及完善。如果您觉得不错。赏我点积分= =b

Goldencolor

what？？！！！算了上传工程
= =b扣吧。连帖子了。。。

风中承诺

（留个言……）
来看看那个名字是什么东东……

lrbm

什么都没看到~