关于【即时消息脚本】修改

神木大人 · 发表于 2016-1-5 18:54:17

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

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

x

这是不知道什么时候找到的一个脚本，可以在左下角显示文字。如下图所示：

但是这个脚本有太多功能我是不需要的
各位大神能不能帮我修改下，修改成只要我输入$am="（内容）"，才有内容显示。
其他入对话显示文字、战斗显示文字等功能一律不要。
游戏连接如下：（还没开始做就放弃了，只是个不成熟的想法，抛砖引玉）

漫画家.rar (353.18 KB, 下载次数: 54)
脚本如下：

RUBY 代码复制

#------------------制作by bluefool,转载请保留------------------
module Blue
  #这个是控制显示最近的多少条信息的,当超出一屏能显示的值的话可通过先按一下shift
  #然后用上下翻看内容。再按一次shift则解除激活
  Blue_max = 9
  #这个填写进如游戏时生成的系统语言,
  INTRO = "欢迎使用即时消息窗口,有什么建议可以联系bluefool,请从左至右依次运行事件体验功能."
  #战斗画面时即时消息窗口的x坐标
  BATAM_X = 0
  #战斗画面时即时消息窗口的y坐标
  BATAM_Y = 90
  #用于清空hash表，可以不管它,但不要让Blue_max大于它，当然，它的值也可以改变
  NAM_MAX = 20
  #主要传递信息参数为函数$am,参见脚本内容
end
#-------------------------------------------
class Scene_Load < Scene_File
  #--------------------------------------------------------------------------
  # ● 确定时的处理
  #--------------------------------------------------------------------------
  def on_decision(filename)
    # 文件不存在的情况下
    unless FileTest.exist?(filename)
      # 演奏冻结 SE
      $game_system.se_play($data_system.buzzer_se)
      return
    end
    # 演奏读档 SE
    $game_system.se_play($data_system.load_se)
    # 写入存档数据
    file = File.open(filename, "rb")
    read_save_data(file)
    file.close
    # 还原 BGM、BGS
    $game_system.bgm_play($game_system.playing_bgm)
    $game_system.bgs_play($game_system.playing_bgs)
    # 刷新地图 (执行并行事件)
    $a = {}
    $game_map.update
    # 切换到地图画面
    $scene = Scene_Map.new
  end
end  
class Game_Player < Game_Character
  def update
    # 本地变量记录移动信息
    last_moving = moving?
    # 移动中、事件执行中、强制移动路线中、
    # 信息窗口一个也不显示的时候
    unless moving? or $game_system.map_interpreter.running? or
           @move_route_forcing or $game_temp.message_window_showing or $ccc == 1
      case Input.dir4
      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  
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　处理标题画面的类。
#==============================================================================
 
class Scene_Title
  #--------------------------------------------------------------------------
  # ● 命令 : 新游戏
  #--------------------------------------------------------------------------
  def command_new_game
    # 演奏确定 SE
    $game_system.se_play($data_system.decision_se)
    # 停止 BGM
    Audio.bgm_stop
    # 重置测量游戏时间用的画面计数器
    Graphics.frame_count = 0
    # 生成各种游戏对像
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party         = Game_Party.new
    $game_troop         = Game_Troop.new
    $game_map           = Game_Map.new
    $game_player        = Game_Player.new
    # 设置初期同伴位置
    $game_party.setup_starting_members
    # 设置初期位置的地图
    $game_map.setup($data_system.start_map_id)
    # 主角向初期位置移动
    $game_player.moveto($data_system.start_x, $data_system.start_y)
    # 刷新主角
    $game_player.refresh
    # 执行地图设置的 BGM 与 BGS 的自动切换
    $game_map.autoplay
    # 刷新地图 (执行并行事件)
    $game_map.update
    $a = {}
    $am = Blue::INTRO
    $ccc = 0
    # 切换地图画面
    $scene = Scene_Map.new
  end
  #--------------------------------------------------------------------------
  # ● 命令 : 继续
  #--------------------------------------------------------------------------
  def command_continue
    # 继续无效的情况下
    unless @continue_enabled
      # 演奏无效 SE
      $game_system.se_play($data_system.buzzer_se)
      return
    end
    # 演奏确定 SE
    $game_system.se_play($data_system.decision_se)
    # 切换到读档画面
    $scene = Scene_Load.new
  end
  #--------------------------------------------------------------------------
  # ● 命令 : 退出
  #--------------------------------------------------------------------------
  def command_shutdown
    # 演奏确定 SE
    $game_system.se_play($data_system.decision_se)
    # BGM、BGS、ME 的淡入淡出
    Audio.bgm_fade(800)
    Audio.bgs_fade(800)
    Audio.me_fade(800)
    # 退出
    $scene = nil
  end
  #--------------------------------------------------------------------------
  # ● 战斗测试
  #--------------------------------------------------------------------------
  def battle_test
    # 载入数据库 (战斗测试用)
    $data_actors        = load_data("Data/BT_Actors.rxdata")
    $data_classes       = load_data("Data/BT_Classes.rxdata")
    $data_skills        = load_data("Data/BT_Skills.rxdata")
    $data_items         = load_data("Data/BT_Items.rxdata")
    $data_weapons       = load_data("Data/BT_Weapons.rxdata")
    $data_armors        = load_data("Data/BT_Armors.rxdata")
    $data_enemies       = load_data("Data/BT_Enemies.rxdata")
    $data_troops        = load_data("Data/BT_Troops.rxdata")
    $data_states        = load_data("Data/BT_States.rxdata")
    $data_animations    = load_data("Data/BT_Animations.rxdata")
    $data_tilesets      = load_data("Data/BT_Tilesets.rxdata")
    $data_common_events = load_data("Data/BT_CommonEvents.rxdata")
    $data_system        = load_data("Data/BT_System.rxdata")
    # 重置测量游戏时间用的画面计数器
    Graphics.frame_count = 0
    # 生成各种游戏对像
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party         = Game_Party.new
    $game_troop         = Game_Troop.new
    $game_map           = Game_Map.new
    $game_player        = Game_Player.new
    $a = {0=>"进入战斗测试."}
    # 设置战斗测试用同伴
    $game_party.setup_battle_test_members
    # 设置队伍 ID、可以逃走标志、战斗背景
    $game_temp.battle_troop_id = $data_system.test_troop_id
    $game_temp.battle_can_escape = true
    $game_map.battleback_name = $data_system.battleback_name
    # 演奏战斗开始 BGM
    $game_system.se_play($data_system.battle_start_se)
    # 演奏战斗 BGM
    $game_system.bgm_play($game_system.battle_bgm)
    # 切换到战斗画面
    $scene = Scene_Battle.new
  end
end
#-------------------------------------------------------
class Scene_Map
  #--------------------------------------------------------------------------
  # ● 主处理
  #--------------------------------------------------------------------------
  def main
    @spriteset = Spriteset_Map.new
    @message_window = Window_Message.new
    @down_window = Window_Down.new
    Graphics.transition
    # 主循环
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @spriteset.dispose
    @message_window.dispose
    @down_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
    @am_size = $a.size
  end
  #---------------------
  def bluefool_sort
    if $am != nil
       if $a.size > Blue::NAM_MAX
          a_temp = {}
          j = 0
          for i in ($a.size - Blue::Blue_max)...$a.size
            a_temp[j] = $a[i]
            j += 1
          end  
         $a = a_temp
       end  
       if $am.length < 54
          $a[$a.size] = $am
        else
          while $am.length > 53
            i = 53
            while (/\W/ =~ $am[i-3,3]) != nil
              i -= 1
            end
            $a[$a.size] = $am[0,i]
            $am = $am[i ,$am.length - i]
          end
          $a[$a.size] = $am
       end
       $am = nil
    end
  end  
  #--------------------------------------------------------------------------
  # ● 刷新画面
  #--------------------------------------------------------------------------
  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
      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
    #---------------------------------------------
    bluefool_sort
    if @am_size != $a.size
       @down_window.refresh
       if $a != nil and $a.size < Blue::Blue_max + 1
        @down_window.index = $a.size/2 - 1
        elsif $a != nil and $a.size > Blue::Blue_max
        @down_window.index = Blue::Blue_max/2 - 1
       end  
       @am_size = $a.size
    end  
    if Input.trigger?(Input::A)
      if @down_window.active == false
        @down_window.active = true
        $ccc = 1
      else
        @down_window.active = false
        $ccc = 0
      end  
    end
    if Input.trigger?(Input::DOWN)#输入DOWN键的情况
      if @down_window.active == true and @down_window.index < (@down_window.item_max-1)/2
        @down_window.index += 1
      end  
    end  
    if Input.trigger?(Input::UP)#输入UP键的情况
      if @down_window.active == true and @down_window.index > 0
        @down_window.index -= 1
      end  
    end  
    #----------------------------------------------
    # 按下 B 键的情况下
    if Input.trigger?(Input::B)
      # 不是在事件执行中或菜单禁止中
      unless $game_system.map_interpreter.running? 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
class Game_Battler
  def bluefool_sort
      if $am != nil
        if $am.length < 54
           $a[$a.size] = $am
        else
           while $am.length > 53
             i = 53
             while (/\W/ =~ $am[i-3,3]) != nil
              i -= 1
             end
             $a[$a.size] = $am[0,i]
             $am = $am[i ,$am.length - i]
           end
           $a[$a.size] = $am
        end
       $am = nil
      end
  end
  #--------------------------------------------------------------------------
  # ● 应用连续伤害效果
  #--------------------------------------------------------------------------
  def slip_damage_effect
    # 设置伤害
    self.damage = self.maxhp / 10
    # 分散
    if self.damage.abs > 0
      amp = [self.damage.abs * 15 / 100, 1].max
      self.damage += rand(amp+1) + rand(amp+1) - amp
    end
    # HP 的伤害减法运算
    self.hp -= self.damage
    if self.damage > 0
      $am = "异常状态使#{self.name}受到了#{self.damage}点伤害."
    elsif self.damage < 0
      $am = "异常状态使#{self.name}恢复了#{self.damage.abs}点#{$data_system.words.hp}"
    end
    bluefool_sort
    # 过程结束
    return true
  end
  #--------------------------------------------------------------------------
  # ● 应用通常攻击效果
  #     attacker : 攻击者 (battler)
  #--------------------------------------------------------------------------
  def attack_effect(attacker)
    # 清除会心一击标志
    self.critical = false
    # 第一命中判定
    hit_result = (rand(100) < attacker.hit)
    # 命中的情况下
    if hit_result == true
      # 计算基本伤害
      atk = [attacker.atk - self.pdef / 2, 0].max
      self.damage = atk * (20 + attacker.str) / 20
      # 属性修正
      self.damage *= elements_correct(attacker.element_set)
      self.damage /= 100
      # 伤害符号正确的情况下
      if self.damage > 0
        # 会心一击修正
        if rand(100) < 4 * attacker.dex / self.agi
          self.damage *= 2
          self.critical = true
        end
        # 防御修正
        if self.guarding?
          self.damage /= 2
        end
      end
      # 分散
      if self.damage.abs > 0
        amp = [self.damage.abs * 15 / 100, 1].max
        self.damage += rand(amp+1) + rand(amp+1) - amp
      end
      # 第二命中判定
      eva = 8 * self.agi / attacker.dex + self.eva
      hit = self.damage < 0 ? 100 : 100 - eva
      hit = self.cant_evade? ? 100 : hit
      hit_result = (rand(100) < hit)
    end
    # 命中的情况下
    if hit_result == true
      # 状态冲击解除
      remove_states_shock
      # HP 的伤害计算
      self.hp -= self.damage
      $am = "#{attacker.name}对#{self.name}造成了#{self.damage}伤害."
      bluefool_sort
      # 状态变化
      @state_changed = false
      states_plus(attacker.plus_state_set)
      states_minus(attacker.minus_state_set)
    # Miss 的情况下
    else
      # 伤害设置为 "Miss"
      self.damage = "Miss"
      $am = "#{attacker.name}击空了."
      bluefool_sort
      # 清除会心一击标志
      self.critical = false
    end
    # 过程结束
    return true
  end
  #--------------------------------------------------------------------------
  # ● 应用特技效果
  #     user  : 特技的使用者 (battler)
  #     skill : 特技
  #--------------------------------------------------------------------------
  def skill_effect(user, skill)
    # 清除会心一击标志
    self.critical = false
    # 特技的效果范围是 HP 1 以上的己方、自己的 HP 为 0、
    # 或者特技的效果范围是 HP 0 的己方、自己的 HP 为 1 以上的情况下
    if ((skill.scope == 3 or skill.scope == 4) and self.hp == 0) or
       ((skill.scope == 5 or skill.scope == 6) and self.hp >= 1)
      # 过程结束
      return false
    end
    # 清除有效标志
    effective = false
    # 公共事件 ID 是有效的情况下,设置为有效标志
    effective |= skill.common_event_id > 0
    # 第一命中判定
    hit = skill.hit
    if skill.atk_f > 0
      hit *= user.hit / 100
    end
    hit_result = (rand(100) < hit)
    # 不确定的特技的情况下设置为有效标志
    effective |= hit < 100
    # 命中的情况下
    if hit_result == true
      # 计算威力
      power = skill.power + user.atk * skill.atk_f / 100
      if power > 0
        power -= self.pdef * skill.pdef_f / 200
        power -= self.mdef * skill.mdef_f / 200
        power = [power, 0].max
      end
      # 计算倍率
      rate = 20
      rate += (user.str * skill.str_f / 100)
      rate += (user.dex * skill.dex_f / 100)
      rate += (user.agi * skill.agi_f / 100)
      rate += (user.int * skill.int_f / 100)
      # 计算基本伤害
      self.damage = power * rate / 20
      # 属性修正
      self.damage *= elements_correct(skill.element_set)
      self.damage /= 100
      # 伤害符号正确的情况下
      if self.damage > 0
        # 防御修正
        if self.guarding?
          self.damage /= 2
        end
      end
      # 分散
      if skill.variance > 0 and self.damage.abs > 0
        amp = [self.damage.abs * skill.variance / 100, 1].max
        self.damage += rand(amp+1) + rand(amp+1) - amp
      end
      # 第二命中判定
      eva = 8 * self.agi / user.dex + self.eva
      hit = self.damage < 0 ? 100 : 100 - eva * skill.eva_f / 100
      hit = self.cant_evade? ? 100 : hit
      hit_result = (rand(100) < hit)
      # 不确定的特技的情况下设置为有效标志
      effective |= hit < 100
    end
    # 命中的情况下
    if hit_result == true
      # 威力 0 以外的物理攻击的情况下
      if skill.power != 0 and skill.atk_f > 0
        # 状态冲击解除
        remove_states_shock
        # 设置有效标志
        effective = true
      end
      # HP 的伤害减法运算
      last_hp = self.hp
      self.hp -= self.damage
        if self.damage > 0
         $am = "#{user.name}对#{self.name}造成了#{self.damage}伤害."
         elsif self.damage < 0
          if user == self
           $am = "#{user.name}恢复了自己#{self.damage.abs}点#{$data_system.words.hp}."
           else
           $am = "#{user.name}恢复了#{self.name}#{self.damage.abs}点#{$data_system.words.hp}."
          end
        end
      bluefool_sort
      effective |= self.hp != last_hp
      # 状态变化
      @state_changed = false
      effective |= states_plus(skill.plus_state_set)
      effective |= states_minus(skill.minus_state_set)
      # 威力为 0 的场合
      if skill.power == 0
        # 伤害设置为空的字串
        self.damage = ""
        # 状态没有变化的情况下
        unless @state_changed
          # 伤害设置为 "Miss"
          self.damage = "Miss"
          $am = "#{user.name}没有击中."
          bluefool_sort
        end
      end
    # Miss 的情况下
    else
      # 伤害设置为 "Miss"
      self.damage = "Miss"
      $am = "#{user.name}没有击中."
      bluefool_sort
    end
    # 不在战斗中的情况下
    unless $game_temp.in_battle
      # 伤害设置为 nil
      self.damage = nil
    end
    # 过程结束
    return effective
  end
end
class Scene_Battle
  #--------------------------------------------------------------------------
  # ● 刷新画面 (主回合步骤 1 : 准备行动)
  #--------------------------------------------------------------------------
  def update_phase4_step1
    # 隐藏帮助窗口
    @help_window.visible = false
    # 判定胜败
    if judge
      # 胜利或者失败的情况下 : 过程结束
      return
    end
    # 强制行动的战斗者不存在的情况下
    if $game_temp.forcing_battler == nil
      # 设置战斗事件
      setup_battle_event
      # 执行战斗事件中的情况下
      if $game_system.battle_interpreter.running?
        return
      end
    end
    # 强制行动的战斗者存在的情况下
    if $game_temp.forcing_battler != nil
      # 在头部添加后移动
      @action_battlers.delete($game_temp.forcing_battler)
      @action_battlers.unshift($game_temp.forcing_battler)
    end
    # 未行动的战斗者不存在的情况下 (全员已经行动)
    if @action_battlers.size == 0
      # 开始同伴命令回合
      start_phase2
      return
    end
    # 初始化动画 ID 和公共事件 ID
    @animation1_id = 0
    @animation2_id = 0
    @common_event_id = 0
    # 未行动的战斗者移动到序列的头部
    @active_battler = @action_battlers.shift
    # 如果已经在战斗之外的情况下
    if @active_battler.index == nil
      return
    end
    # 连续伤害
    if @active_battler.hp > 0 and @active_battler.slip_damage?
      @active_battler.slip_damage_effect
      @active_battler.damage_pop = true
      @down_window.refresh
    end
    # 自然解除状态
    @active_battler.remove_states_auto
    # 刷新状态窗口
    @status_window.refresh
    # 移至步骤 2
    @phase4_step = 2
  end
  #--------------------------------------------------------------------------
  # ● 开始结束战斗回合
  #--------------------------------------------------------------------------
  def start_phase5
    # 转移到回合 5
    @phase = 5
    # 演奏战斗结束 ME
    $game_system.me_play($game_system.battle_end_me)
    # 还原为战斗开始前的 BGM
    $game_system.bgm_play($game_temp.map_bgm)
    # 初始化 EXP、金钱、宝物
    exp = 0
    gold = 0
    treasures = []
    # 循环
    for enemy in $game_troop.enemies
      # 敌人不是隐藏状态的情况下
      unless enemy.hidden
        # 获得 EXP、增加金钱
        exp += enemy.exp
        gold += enemy.gold
        # 出现宝物判定
        if rand(100) < enemy.treasure_prob
          if enemy.item_id > 0
            treasures.push($data_items[enemy.item_id])
          end
          if enemy.weapon_id > 0
            treasures.push($data_weapons[enemy.weapon_id])
          end
          if enemy.armor_id > 0
            treasures.push($data_armors[enemy.armor_id])
          end
        end
      end
    end
    # 限制宝物数为 6 个
    treasures = treasures[0..5]
    # 获得 EXP
    for i in 0...$game_party.actors.size
      actor = $game_party.actors[i]
      if actor.cant_get_exp? == false
        last_level = actor.level
        actor.exp += exp
        if actor.level > last_level
          @status_window.level_up(i)
        end
      end
    end
    # 获得金钱
    $game_party.gain_gold(gold)
    $am = "获得#{exp}经验，#{gold}#{$data_system.words.gold}"
    bluefool_sort
    @down_window.refresh
    # 获得宝物
    for item in treasures
      case item
      when RPG::Item
        $game_party.gain_item(item.id, 1)
        $am = "获得#{$data_items[item.id].name}"
        bluefool_sort
      when RPG::Weapon
        $game_party.gain_weapon(item.id, 1)
        $am = "获得#{$data_weapons[item.id].name}"
        bluefool_sort
      when RPG::Armor
        $game_party.gain_armor(item.id, 1)
        $am = "获得#{$data_armors[item.id].name}"
        bluefool_sort
      end
      @down_window.refresh
    end
    # 生成战斗结果窗口
    @result_window = Window_BattleResult.new(exp, gold, treasures)
    # 设置等待计数
    @phase5_wait_count = 100
  end
  #--------------------------------------------------------------------------
  # ● 生成基本行动结果
  #--------------------------------------------------------------------------
  def make_basic_action_result
    # 攻击的情况下
    if @active_battler.current_action.basic == 0
      # 设置攻击 ID
      @animation1_id = @active_battler.animation1_id
      @animation2_id = @active_battler.animation2_id
      # 行动方的战斗者是敌人的情况下
      if @active_battler.is_a?(Game_Enemy)
        if @active_battler.restriction == 3
          target = $game_troop.random_target_enemy
        elsif @active_battler.restriction == 2
          target = $game_party.random_target_actor
        else
          index = @active_battler.current_action.target_index
          target = $game_party.smooth_target_actor(index)
        end
      end
      # 行动方的战斗者是角色的情况下
      if @active_battler.is_a?(Game_Actor)
        if @active_battler.restriction == 3
          target = $game_party.random_target_actor
        elsif @active_battler.restriction == 2
          target = $game_troop.random_target_enemy
        else
          index = @active_battler.current_action.target_index
          target = $game_troop.smooth_target_enemy(index)
        end
      end
      # 设置对像方的战斗者序列
      @target_battlers = [target]
      for target in @target_battlers
        $am = "#{@active_battler.name}对#{target.name}发起了进攻!"
        bluefool_sort
        target.attack_effect(@active_battler)
      end
      return
    end
    # 防御的情况下
    if @active_battler.current_action.basic == 1
      @help_window.set_text($data_system.words.guard, 1)
      $am = "#{@active_battler.name}选择了防御."
      bluefool_sort
      return
    end
    # 逃跑的情况下
    if @active_battler.is_a?(Game_Enemy) and
       @active_battler.current_action.basic == 2
      #  帮助窗口显示"逃跑"
      @help_window.set_text("逃跑", 1)
      # 逃跑
      @active_battler.escape
      return
    end
    # 什么也不做的情况下
    if @active_battler.current_action.basic == 3
      # 清除强制行动对像的战斗者
      $game_temp.forcing_battler = nil
      # 移至步骤 1
      @phase4_step = 1
      return
    end
  end
  #--------------------------------------------------------------------------
  # ● 生成特技行动结果
  #--------------------------------------------------------------------------
  def make_skill_action_result
    # 获取特技
    @skill = $data_skills[@active_battler.current_action.skill_id]
    # 如果不是强制行动
    unless @active_battler.current_action.forcing
      # 因为 SP 耗尽而无法使用的情况下
      unless @active_battler.skill_can_use?(@skill.id)
        # 清除强制行动对像的战斗者
        $game_temp.forcing_battler = nil
        # 移至步骤 1
        @phase4_step = 1
        return
      end
    end
    # 消耗 SP
    @active_battler.sp -= @skill.sp_cost
    # 刷新状态窗口
    @status_window.refresh
    # 在帮助窗口显示特技名
    @help_window.set_text(@skill.name, 1)
    # 设置动画 ID
    @animation1_id = @skill.animation1_id
    @animation2_id = @skill.animation2_id
    # 设置公共事件 ID
    @common_event_id = @skill.common_event_id
    # 设置对像侧战斗者
    set_target_battlers(@skill.scope)
    # 应用特技效果
    for target in @target_battlers
      case @skill.scope
      when 1  
       $am = "#{@active_battler.name}使用#{@skill.name}攻击#{target.name}!"
      when 2  
       $am = "#{@active_battler.name}使用#{@skill.name}攻击#{target.name}!"
      when 7  
        $am = "#{@active_battler.name}对自己使用#{@skill.name}."
      else
        if target == @active_battler
          $am = "#{@active_battler.name}对自己使用#{@skill.name}."
          else
          $am = "#{@active_battler.name}对#{target.name}使用#{@skill.name}."
        end  
      end
      bluefool_sort
      target.skill_effect(@active_battler, @skill)
    end
  end
  #--------------------------------------------------------------------------
  # ● 生成物品行动结果
  #--------------------------------------------------------------------------
  def make_item_action_result
    # 获取物品
    @item = $data_items[@active_battler.current_action.item_id]
    # 因为物品耗尽而无法使用的情况下
    unless $game_party.item_can_use?(@item.id)
      # 移至步骤 1
      @phase4_step = 1
      return
    end
    # 消耗品的情况下
    if @item.consumable
      # 使用的物品减 1
      $game_party.lose_item(@item.id, 1)
    end
    # 在帮助窗口显示物品名
    @help_window.set_text(@item.name, 1)
    # 设置动画 ID
    @animation1_id = @item.animation1_id
    @animation2_id = @item.animation2_id
    # 设置公共事件 ID
    @common_event_id = @item.common_event_id
    # 确定对像
    index = @active_battler.current_action.target_index
    target = $game_party.smooth_target_actor(index)
    # 设置对像侧战斗者
    set_target_battlers(@item.scope)
    # 应用物品效果
    for target in @target_battlers
      target.item_effect(@item)
      if target == @active_battler
        $am = "#{@active_battler.name}对自己使用了#{@item.name}"
       else
        $am = "#{@active_battler.name}对#{target.name}使用了#{@item.name}"
      end
      bluefool_sort
    end
  end
  #--------------------------------------------------------------------------
  # ● 刷新画面 (主回合步骤 4 : 对像方动画)
  #--------------------------------------------------------------------------
  def update_phase4_step4
    # 对像方动画
    for target in @target_battlers
      target.animation_id = @animation2_id
      target.animation_hit = (target.damage != "Miss")
    end
    @down_window.refresh
    @wait_count = 8
    # 移至步骤 5
    @phase4_step = 5
  end
  def bluefool_sort
      if $am != nil
       if $a.size > Blue::NAM_MAX
          a_temp = {}
          j = 0
          for i in ($a.size - Blue::Blue_max)...$a.size
            a_temp[j] = $a[i]
            j += 1
          end  
         $a = a_temp
       end  
        if $am.length < 54
           $a[$a.size] = $am
        else
           while $am.length > 53
             i = 53
             while (/\W/ =~ $am[i-3,3]) != nil
              i -= 1
             end
             $a[$a.size] = $am[0,i]
             $am = $am[i ,$am.length - i]
           end
           $a[$a.size] = $am
        end
       $am = nil
      end
  end
  def main
    $am = "队伍进入战斗！"
    bluefool_sort
    $game_temp.in_battle = true
    $game_temp.battle_turn = 0
    $game_temp.battle_event_flags.clear
    $game_temp.battle_abort = false
    $game_temp.battle_main_phase = false
    $game_temp.battleback_name = $game_map.battleback_name
    $game_temp.forcing_battler = nil
    $game_system.battle_interpreter.setup(nil, 0)
    @troop_id = $game_temp.battle_troop_id
    $game_troop.setup(@troop_id)
    #生成角色命令窗口
    s1 = $data_system.words.attack
    s2 = $data_system.words.skill
    s3 = $data_system.words.guard
    s4 = $data_system.words.item
    @actor_command_window = Window_Command.new(160, [s1, s2, s3, s4])
    @actor_command_window.y = 160
    @actor_command_window.back_opacity = 160
    @actor_command_window.active = false
    @actor_command_window.visible = false
    # 生成其它窗口
    @party_command_window = Window_PartyCommand.new
    @help_window = Window_Help.new
    @help_window.back_opacity = 160
    @help_window.visible = false
    @status_window = Window_BattleStatus.new
    @message_window = Window_Message.new
    @down_window = Window_Down.new
    @down_window.y = Blue::BATAM_Y
    @down_window.z = @actor_command_window.z - 10
    # 生成活动块
    @spriteset = Spriteset_Battle.new
    # 初始化等待计数
    @wait_count = 0
    # 执行过渡
    if $data_system.battle_transition == ""
      Graphics.transition(20)
    else
      Graphics.transition(40, "Graphics/Transitions/" +
        $data_system.battle_transition)
    end
    # 开始自由战斗回合
    start_phase1
    # 主循环
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    # 刷新地图
    $game_map.refresh
    # 准备过渡
    Graphics.freeze
    # 释放窗口
    @actor_command_window.dispose
    @party_command_window.dispose
    @help_window.dispose
    @status_window.dispose
    @message_window.dispose
    @down_window.dispose
    $am = "战斗结束"
    bluefool_sort
    if @skill_window != nil
      @skill_window.dispose
    end
    if @item_window != nil
      @item_window.dispose
    end
    if @result_window != nil
      @result_window.dispose
    end
    # 释放活动块
    @spriteset.dispose
    # 标题画面切换中的情况
    if $scene.is_a?(Scene_Title)
      # 淡入淡出画面
      Graphics.transition
      Graphics.freeze
    end
    # 战斗测试或者游戏结束以外的画面切换中的情况
    if $BTEST and not $scene.is_a?(Scene_Gameover)
      $scene = nil
    end
  end
end
#---------------------------------------------------------
class Interpreter
  def bluefool_sort
      if $am != nil
       if $a.size > Blue::NAM_MAX
          a_temp = {}
          j = 0
          for i in ($a.size - Blue::Blue_max)...$a.size
            a_temp[j] = $a[i]
            j += 1
          end  
         $a = a_temp
       end  
        if $am.length < 54
           $a[$a.size] = $am
        else
           while $am.length > 53
             i = 53
             while (/\W/ =~ $am[i-3,3]) != nil
              i -= 1
             end
             $a[$a.size] = $am[0,i]
             $am = $am[i ,$am.length - i]
           end
           $a[$a.size] = $am
        end
       $am = nil
      end
  end
  def command_101
    if $game_temp.message_text != nil
      return false
    end
    # 设置信息结束后待机和返回调用标志
    @message_waiting = true
    $game_temp.message_proc = Proc.new { @message_waiting = false }
    # message_text 设置为 1 行
    $game_temp.message_text = @list[@index].parameters[0] + "\n"
    if (@list[@index].parameters[0]).split(/\\/)[1] != nil
     $am = @list[@index].parameters[0].split(/\\/)[0]
     else
     $am = @list[@index].parameters[0]
    end  
    bluefool_sort
    line_count = 1
    # 循环
    loop do
      # 下一个事件指令为文章两行以上的情况
      if @list[@index+1].code == 401
        # message_text 添加到第 2 行以下
        $game_temp.message_text += @list[@index+1].parameters[0] + "\n"
        $am = @list[@index+1].parameters[0]
        bluefool_sort
        line_count += 1
      # 事件指令不在文章两行以下的情况
      else
        # 下一个事件指令为显示选择项的情况下
        if @list[@index+1].code == 102
          # 如果选择项能收纳在画面里
          if @list[@index+1].parameters[0].size <= 4 - 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
        # 继续
        return true
      end
      # 推进索引
      @index += 1
    end
  end
  def command_125
    value = operate_value(@parameters[0], @parameters[1], @parameters[2])
    $game_party.gain_gold(value)
    if value >= 0
      $am = "#{$game_party.actors[0].name}得到了#{value}#{$data_system.words.gold}"
    else
      $am = "#{$game_party.actors[0].name}失去了#{value.abs.to_s}#{$data_system.words.gold}"
    end  
    bluefool_sort
    Audio.se_play("Audio/SE/"+"006-System06",100,100)
    return true
  end
  def command_126
    value = operate_value(@parameters[1], @parameters[2], @parameters[3])
    # 增减物品
    $game_party.gain_item(@parameters[0], value)
    if value >= 0
      $am = "#{$game_party.actors[0].name}得到了#{value.abs.to_s}个#{$data_items[@parameters[0]].name}"
    else
      $am = "#{$game_party.actors[0].name}失去了#{value.abs.to_s}个#{$data_items[@parameters[0]].name}"
    end 
    bluefool_sort
    Audio.se_play("Audio/SE/"+"006-System06",100,100)
    return true
  end
  def command_127
    value = operate_value(@parameters[1], @parameters[2], @parameters[3])
    # 增减武器
    $game_party.gain_weapon(@parameters[0], value)
    if value >= 0
      $am = "#{$game_party.actors[0].name}得到了#{value.abs.to_s}个#{$data_weapons[@parameters[0]].name}"
    else
      $am = "#{$game_party.actors[0].name}失去了#{value.abs.to_s}个#{$data_weapons[@parameters[0]].name}"
    end 
    bluefool_sort
    Audio.se_play("Audio/SE/"+"006-System06",100,100)
    return true
  end
  def command_128
    value = operate_value(@parameters[1], @parameters[2], @parameters[3])
    # 增减防具
    $game_party.gain_armor(@parameters[0], value)
    if value >= 0
      $am = "#{$game_party.actors[0].name}得到了#{value.abs.to_s}个#{$data_armors[@parameters[0]].name}"
    else
      $am = "#{$game_party.actors[0].name}失去了#{value.abs.to_s}个#{$data_armors[@parameters[0]].name}"
    end 
    bluefool_sort
    Audio.se_play("Audio/SE/"+"006-System06",100,100)
    return true
  end
  def command_129
    # 获取角色
    actor = $game_actors[@parameters[0]]
    # 角色有效的情况下
    if actor != nil
      # 操作分支
      if @parameters[1] == 0
        if @parameters[2] == 1
          $game_actors[@parameters[0]].setup(@parameters[0])
        end
        $game_party.add_actor(@parameters[0])
        Audio.me_play("Audio/ME/"+"002-Victory02",100,100)
        $am = "#{$game_actors[@parameters[0]].name}加入队伍!"
        bluefool_sort
      else
        $game_party.remove_actor(@parameters[0])
        Audio.me_play("Audio/ME/"+"015-Mystery01",100,100)
        $am = "#{$game_actors[@parameters[0]].name}离开队伍!"
        bluefool_sort
      end
    end
   # 继续
    return true
  end
  #-------------------------
end
#==============================================================================
# ■ Window_Down
#------------------------------------------------------------------------------
# 　 信息窗口。
#==============================================================================
 
class Window_Down < Window_Selectable
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize
    super(0, 240, 330, 240)
    @column_max = 1
    self.opacity = 0
    if $a != nil and $a.size < 21
      self.index = $a.size/2
      elsif $a != nil and $a.size > 20
      self.index = 9
    end  
    refresh
    self.active = false
  end
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  def refresh
    if self.contents != nil
      self.contents.dispose
      self.contents = nil
    end
    if $a != nil and $a.size < Blue::Blue_max + 1
      @item_max = $a.size
      elsif $a != nil and $a.size > Blue::Blue_max
      @item_max = Blue::Blue_max
    end  
    if @item_max > 0
      self.contents = Bitmap.new(width - 32, row_max * 16)
      for i in 0...@item_max
         draw_item(i)
      end
    end
  end
  def item_max
    return @item_max
  end  
  #--------------------------------------------------------------------------
  # ● 描绘项目
  #     index : 项目编号
  #--------------------------------------------------------------------------
  def draw_item(index)
    if $a.size < Blue::Blue_max + 1
     item = $a[index]
     else
     item = $a[index + $a.size - Blue::Blue_max]
    end 
    x = 0
    y = index * 16
    self.contents.font.size = 14
    self.contents.font.color = Color.new(-170,-170,-170,255)
    self.contents.draw_text(x + 6, y + 1, self.contents.text_size(item).width, 16, item, 0)
    self.contents.font.color = normal_color
    self.contents.draw_text(x + 5, y, self.contents.text_size(item).width, 16, item, 0)
  end
  #--------------------------------------
  #  ● 刷新光标
  #--------------------------------------
  def update_cursor_rect
    # 光标位置不满 0 的情况下
    if @index < 0
      self.cursor_rect.empty
      return
    end
    # 获取当前的行
    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
    cursor_width = 0
    # 计算光标坐标
    x = @index % @column_max * (cursor_width + 32)
    y = @index / @column_max * 32 - self.oy
    # 更新国标矩形
    self.cursor_rect.set(x, y, cursor_width, 16)
  end
end

#------------------制作by bluefool,转载请保留------------------


module Blue


  #这个是控制显示最近的多少条信息的,当超出一屏能显示的值的话可通过先按一下shift


  #然后用上下翻看内容。再按一次shift则解除激活


  Blue_max = 9


  #这个填写进如游戏时生成的系统语言,


  INTRO = "欢迎使用即时消息窗口,有什么建议可以联系bluefool,请从左至右依次运行事件体验功能."


  #战斗画面时即时消息窗口的x坐标


  BATAM_X = 0


  #战斗画面时即时消息窗口的y坐标


  BATAM_Y = 90


  #用于清空hash表，可以不管它,但不要让Blue_max大于它，当然，它的值也可以改变


  NAM_MAX = 20


  #主要传递信息参数为函数$am,参见脚本内容


end


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


class Scene_Load < Scene_File


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


  # ● 确定时的处理


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


  def on_decision(filename)


    # 文件不存在的情况下


    unless FileTest.exist?(filename)


      # 演奏冻结 SE


      $game_system.se_play($data_system.buzzer_se)


      return


    end


    # 演奏读档 SE


    $game_system.se_play($data_system.load_se)


    # 写入存档数据


    file = File.open(filename, "rb")


    read_save_data(file)


    file.close


    # 还原 BGM、BGS


    $game_system.bgm_play($game_system.playing_bgm)


    $game_system.bgs_play($game_system.playing_bgs)


    # 刷新地图 (执行并行事件)


    $a = {}


    $game_map.update


    # 切换到地图画面


    $scene = Scene_Map.new


  end


end  


class Game_Player < Game_Character


  def update


    # 本地变量记录移动信息


    last_moving = moving?


    # 移动中、事件执行中、强制移动路线中、


    # 信息窗口一个也不显示的时候


    unless moving? or $game_system.map_interpreter.running? or


           @move_route_forcing or $game_temp.message_window_showing or $ccc == 1


      case Input.dir4


      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  


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


# ■ Scene_Title


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


# 　处理标题画面的类。


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


 


class Scene_Title


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


  # ● 命令 : 新游戏


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


  def command_new_game


    # 演奏确定 SE


    $game_system.se_play($data_system.decision_se)


    # 停止 BGM


    Audio.bgm_stop


    # 重置测量游戏时间用的画面计数器


    Graphics.frame_count = 0


    # 生成各种游戏对像


    $game_temp          = Game_Temp.new


    $game_system        = Game_System.new


    $game_switches      = Game_Switches.new


    $game_variables     = Game_Variables.new


    $game_self_switches = Game_SelfSwitches.new


    $game_screen        = Game_Screen.new


    $game_actors        = Game_Actors.new


    $game_party         = Game_Party.new


    $game_troop         = Game_Troop.new


    $game_map           = Game_Map.new


    $game_player        = Game_Player.new


    # 设置初期同伴位置


    $game_party.setup_starting_members


    # 设置初期位置的地图


    $game_map.setup($data_system.start_map_id)


    # 主角向初期位置移动


    $game_player.moveto($data_system.start_x, $data_system.start_y)


    # 刷新主角


    $game_player.refresh


    # 执行地图设置的 BGM 与 BGS 的自动切换


    $game_map.autoplay


    # 刷新地图 (执行并行事件)


    $game_map.update


    $a = {}


    $am = Blue::INTRO


    $ccc = 0


    # 切换地图画面


    $scene = Scene_Map.new


  end


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


  # ● 命令 : 继续


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


  def command_continue


    # 继续无效的情况下


    unless @continue_enabled


      # 演奏无效 SE


      $game_system.se_play($data_system.buzzer_se)


      return


    end


    # 演奏确定 SE


    $game_system.se_play($data_system.decision_se)


    # 切换到读档画面


    $scene = Scene_Load.new


  end


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


  # ● 命令 : 退出


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


  def command_shutdown


    # 演奏确定 SE


    $game_system.se_play($data_system.decision_se)


    # BGM、BGS、ME 的淡入淡出


    Audio.bgm_fade(800)


    Audio.bgs_fade(800)


    Audio.me_fade(800)


    # 退出


    $scene = nil


  end


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


  # ● 战斗测试


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


  def battle_test


    # 载入数据库 (战斗测试用)


    $data_actors        = load_data("Data/BT_Actors.rxdata")


    $data_classes       = load_data("Data/BT_Classes.rxdata")


    $data_skills        = load_data("Data/BT_Skills.rxdata")


    $data_items         = load_data("Data/BT_Items.rxdata")


    $data_weapons       = load_data("Data/BT_Weapons.rxdata")


    $data_armors        = load_data("Data/BT_Armors.rxdata")


    $data_enemies       = load_data("Data/BT_Enemies.rxdata")


    $data_troops        = load_data("Data/BT_Troops.rxdata")


    $data_states        = load_data("Data/BT_States.rxdata")


    $data_animations    = load_data("Data/BT_Animations.rxdata")


    $data_tilesets      = load_data("Data/BT_Tilesets.rxdata")


    $data_common_events = load_data("Data/BT_CommonEvents.rxdata")


    $data_system        = load_data("Data/BT_System.rxdata")


    # 重置测量游戏时间用的画面计数器


    Graphics.frame_count = 0


    # 生成各种游戏对像


    $game_temp          = Game_Temp.new


    $game_system        = Game_System.new


    $game_switches      = Game_Switches.new


    $game_variables     = Game_Variables.new


    $game_self_switches = Game_SelfSwitches.new


    $game_screen        = Game_Screen.new


    $game_actors        = Game_Actors.new


    $game_party         = Game_Party.new


    $game_troop         = Game_Troop.new


    $game_map           = Game_Map.new


    $game_player        = Game_Player.new


    $a = {0=>"进入战斗测试."}


    # 设置战斗测试用同伴


    $game_party.setup_battle_test_members


    # 设置队伍 ID、可以逃走标志、战斗背景


    $game_temp.battle_troop_id = $data_system.test_troop_id


    $game_temp.battle_can_escape = true


    $game_map.battleback_name = $data_system.battleback_name


    # 演奏战斗开始 BGM


    $game_system.se_play($data_system.battle_start_se)


    # 演奏战斗 BGM


    $game_system.bgm_play($game_system.battle_bgm)


    # 切换到战斗画面


    $scene = Scene_Battle.new


  end


end


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


class Scene_Map


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


  # ● 主处理


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


  def main


    @spriteset = Spriteset_Map.new


    @message_window = Window_Message.new


    @down_window = Window_Down.new


    Graphics.transition


    # 主循环


    loop do


      Graphics.update


      Input.update


      update


      if $scene != self


        break


      end


    end


    Graphics.freeze


    @spriteset.dispose


    @message_window.dispose


    @down_window.dispose


    if $scene.is_a?(Scene_Title)


      Graphics.transition


      Graphics.freeze


    end


    @am_size = $a.size


  end


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


  def bluefool_sort


    if $am != nil


       if $a.size > Blue::NAM_MAX


          a_temp = {}


          j = 0


          for i in ($a.size - Blue::Blue_max)...$a.size


            a_temp[j] = $a[i]


            j += 1


          end  


         $a = a_temp


       end  


       if $am.length < 54


          $a[$a.size] = $am


        else


          while $am.length > 53


            i = 53


            while (/\W/ =~ $am[i-3,3]) != nil


              i -= 1


            end


            $a[$a.size] = $am[0,i]


            $am = $am[i ,$am.length - i]


          end


          $a[$a.size] = $am


       end


       $am = nil


    end


  end  


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


  # ● 刷新画面


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


  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


      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


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


    bluefool_sort


    if @am_size != $a.size


       @down_window.refresh


       if $a != nil and $a.size < Blue::Blue_max + 1


        @down_window.index = $a.size/2 - 1


        elsif $a != nil and $a.size > Blue::Blue_max


        @down_window.index = Blue::Blue_max/2 - 1


       end  


       @am_size = $a.size


    end  


    if Input.trigger?(Input::A)


      if @down_window.active == false


        @down_window.active = true


        $ccc = 1


      else


        @down_window.active = false


        $ccc = 0


      end  


    end


    if Input.trigger?(Input::DOWN)#输入DOWN键的情况


      if @down_window.active == true and @down_window.index < (@down_window.item_max-1)/2


        @down_window.index += 1


      end  


    end  


    if Input.trigger?(Input::UP)#输入UP键的情况


      if @down_window.active == true and @down_window.index > 0


        @down_window.index -= 1


      end  


    end  


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


    # 按下 B 键的情况下


    if Input.trigger?(Input::B)


      # 不是在事件执行中或菜单禁止中


      unless $game_system.map_interpreter.running? 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


class Game_Battler


  def bluefool_sort


      if $am != nil


        if $am.length < 54


           $a[$a.size] = $am


        else


           while $am.length > 53


             i = 53


             while (/\W/ =~ $am[i-3,3]) != nil


              i -= 1


             end


             $a[$a.size] = $am[0,i]


             $am = $am[i ,$am.length - i]


           end


           $a[$a.size] = $am


        end


       $am = nil


      end


  end


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


  # ● 应用连续伤害效果


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


  def slip_damage_effect


    # 设置伤害


    self.damage = self.maxhp / 10


    # 分散


    if self.damage.abs > 0


      amp = [self.damage.abs * 15 / 100, 1].max


      self.damage += rand(amp+1) + rand(amp+1) - amp


    end


    # HP 的伤害减法运算


    self.hp -= self.damage


    if self.damage > 0


      $am = "异常状态使#{self.name}受到了#{self.damage}点伤害."


    elsif self.damage < 0


      $am = "异常状态使#{self.name}恢复了#{self.damage.abs}点#{$data_system.words.hp}"


    end


    bluefool_sort


    # 过程结束


    return true


  end


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


  # ● 应用通常攻击效果


  #     attacker : 攻击者 (battler)


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


  def attack_effect(attacker)


    # 清除会心一击标志


    self.critical = false


    # 第一命中判定


    hit_result = (rand(100) < attacker.hit)


    # 命中的情况下


    if hit_result == true


      # 计算基本伤害


      atk = [attacker.atk - self.pdef / 2, 0].max


      self.damage = atk * (20 + attacker.str) / 20


      # 属性修正


      self.damage *= elements_correct(attacker.element_set)


      self.damage /= 100


      # 伤害符号正确的情况下


      if self.damage > 0


        # 会心一击修正


        if rand(100) < 4 * attacker.dex / self.agi


          self.damage *= 2


          self.critical = true


        end


        # 防御修正


        if self.guarding?


          self.damage /= 2


        end


      end


      # 分散


      if self.damage.abs > 0


        amp = [self.damage.abs * 15 / 100, 1].max


        self.damage += rand(amp+1) + rand(amp+1) - amp


      end


      # 第二命中判定


      eva = 8 * self.agi / attacker.dex + self.eva


      hit = self.damage < 0 ? 100 : 100 - eva


      hit = self.cant_evade? ? 100 : hit


      hit_result = (rand(100) < hit)


    end


    # 命中的情况下


    if hit_result == true


      # 状态冲击解除


      remove_states_shock


      # HP 的伤害计算


      self.hp -= self.damage


      $am = "#{attacker.name}对#{self.name}造成了#{self.damage}伤害."


      bluefool_sort


      # 状态变化


      @state_changed = false


      states_plus(attacker.plus_state_set)


      states_minus(attacker.minus_state_set)


    # Miss 的情况下


    else


      # 伤害设置为 "Miss"


      self.damage = "Miss"


      $am = "#{attacker.name}击空了."


      bluefool_sort


      # 清除会心一击标志


      self.critical = false


    end


    # 过程结束


    return true


  end


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


  # ● 应用特技效果


  #     user  : 特技的使用者 (battler)


  #     skill : 特技


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


  def skill_effect(user, skill)


    # 清除会心一击标志


    self.critical = false


    # 特技的效果范围是 HP 1 以上的己方、自己的 HP 为 0、


    # 或者特技的效果范围是 HP 0 的己方、自己的 HP 为 1 以上的情况下


    if ((skill.scope == 3 or skill.scope == 4) and self.hp == 0) or


       ((skill.scope == 5 or skill.scope == 6) and self.hp >= 1)


      # 过程结束


      return false


    end


    # 清除有效标志


    effective = false


    # 公共事件 ID 是有效的情况下,设置为有效标志


    effective |= skill.common_event_id > 0


    # 第一命中判定


    hit = skill.hit


    if skill.atk_f > 0


      hit *= user.hit / 100


    end


    hit_result = (rand(100) < hit)


    # 不确定的特技的情况下设置为有效标志


    effective |= hit < 100


    # 命中的情况下


    if hit_result == true


      # 计算威力


      power = skill.power + user.atk * skill.atk_f / 100


      if power > 0


        power -= self.pdef * skill.pdef_f / 200


        power -= self.mdef * skill.mdef_f / 200


        power = [power, 0].max


      end


      # 计算倍率


      rate = 20


      rate += (user.str * skill.str_f / 100)


      rate += (user.dex * skill.dex_f / 100)


      rate += (user.agi * skill.agi_f / 100)


      rate += (user.int * skill.int_f / 100)


      # 计算基本伤害


      self.damage = power * rate / 20


      # 属性修正


      self.damage *= elements_correct(skill.element_set)


      self.damage /= 100


      # 伤害符号正确的情况下


      if self.damage > 0


        # 防御修正


        if self.guarding?


          self.damage /= 2


        end


      end


      # 分散


      if skill.variance > 0 and self.damage.abs > 0


        amp = [self.damage.abs * skill.variance / 100, 1].max


        self.damage += rand(amp+1) + rand(amp+1) - amp


      end


      # 第二命中判定


      eva = 8 * self.agi / user.dex + self.eva


      hit = self.damage < 0 ? 100 : 100 - eva * skill.eva_f / 100


      hit = self.cant_evade? ? 100 : hit


      hit_result = (rand(100) < hit)


      # 不确定的特技的情况下设置为有效标志


      effective |= hit < 100


    end


    # 命中的情况下


    if hit_result == true


      # 威力 0 以外的物理攻击的情况下


      if skill.power != 0 and skill.atk_f > 0


        # 状态冲击解除


        remove_states_shock


        # 设置有效标志


        effective = true


      end


      # HP 的伤害减法运算


      last_hp = self.hp


      self.hp -= self.damage


        if self.damage > 0


         $am = "#{user.name}对#{self.name}造成了#{self.damage}伤害."


         elsif self.damage < 0


          if user == self


           $am = "#{user.name}恢复了自己#{self.damage.abs}点#{$data_system.words.hp}."


           else


           $am = "#{user.name}恢复了#{self.name}#{self.damage.abs}点#{$data_system.words.hp}."


          end


        end


      bluefool_sort


      effective |= self.hp != last_hp


      # 状态变化


      @state_changed = false


      effective |= states_plus(skill.plus_state_set)


      effective |= states_minus(skill.minus_state_set)


      # 威力为 0 的场合


      if skill.power == 0


        # 伤害设置为空的字串


        self.damage = ""


        # 状态没有变化的情况下


        unless @state_changed


          # 伤害设置为 "Miss"


          self.damage = "Miss"


          $am = "#{user.name}没有击中."


          bluefool_sort


        end


      end


    # Miss 的情况下


    else


      # 伤害设置为 "Miss"


      self.damage = "Miss"


      $am = "#{user.name}没有击中."


      bluefool_sort


    end


    # 不在战斗中的情况下


    unless $game_temp.in_battle


      # 伤害设置为 nil


      self.damage = nil


    end


    # 过程结束


    return effective


  end


end


class Scene_Battle


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


  # ● 刷新画面 (主回合步骤 1 : 准备行动)


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


  def update_phase4_step1


    # 隐藏帮助窗口


    @help_window.visible = false


    # 判定胜败


    if judge


      # 胜利或者失败的情况下 : 过程结束


      return


    end


    # 强制行动的战斗者不存在的情况下


    if $game_temp.forcing_battler == nil


      # 设置战斗事件


      setup_battle_event


      # 执行战斗事件中的情况下


      if $game_system.battle_interpreter.running?


        return


      end


    end


    # 强制行动的战斗者存在的情况下


    if $game_temp.forcing_battler != nil


      # 在头部添加后移动


      @action_battlers.delete($game_temp.forcing_battler)


      @action_battlers.unshift($game_temp.forcing_battler)


    end


    # 未行动的战斗者不存在的情况下 (全员已经行动)


    if @action_battlers.size == 0


      # 开始同伴命令回合


      start_phase2


      return


    end


    # 初始化动画 ID 和公共事件 ID


    @animation1_id = 0


    @animation2_id = 0


    @common_event_id = 0


    # 未行动的战斗者移动到序列的头部


    @active_battler = @action_battlers.shift


    # 如果已经在战斗之外的情况下


    if @active_battler.index == nil


      return


    end


    # 连续伤害


    if @active_battler.hp > 0 and @active_battler.slip_damage?


      @active_battler.slip_damage_effect


      @active_battler.damage_pop = true


      @down_window.refresh


    end


    # 自然解除状态


    @active_battler.remove_states_auto


    # 刷新状态窗口


    @status_window.refresh


    # 移至步骤 2


    @phase4_step = 2


  end


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


  # ● 开始结束战斗回合


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


  def start_phase5


    # 转移到回合 5


    @phase = 5


    # 演奏战斗结束 ME


    $game_system.me_play($game_system.battle_end_me)


    # 还原为战斗开始前的 BGM


    $game_system.bgm_play($game_temp.map_bgm)


    # 初始化 EXP、金钱、宝物


    exp = 0


    gold = 0


    treasures = []


    # 循环


    for enemy in $game_troop.enemies


      # 敌人不是隐藏状态的情况下


      unless enemy.hidden


        # 获得 EXP、增加金钱


        exp += enemy.exp


        gold += enemy.gold


        # 出现宝物判定


        if rand(100) < enemy.treasure_prob


          if enemy.item_id > 0


            treasures.push($data_items[enemy.item_id])


          end


          if enemy.weapon_id > 0


            treasures.push($data_weapons[enemy.weapon_id])


          end


          if enemy.armor_id > 0


            treasures.push($data_armors[enemy.armor_id])


          end


        end


      end


    end


    # 限制宝物数为 6 个


    treasures = treasures[0..5]


    # 获得 EXP


    for i in 0...$game_party.actors.size


      actor = $game_party.actors[i]


      if actor.cant_get_exp? == false


        last_level = actor.level


        actor.exp += exp


        if actor.level > last_level


          @status_window.level_up(i)


        end


      end


    end


    # 获得金钱


    $game_party.gain_gold(gold)


    $am = "获得#{exp}经验，#{gold}#{$data_system.words.gold}"


    bluefool_sort


    @down_window.refresh


    # 获得宝物


    for item in treasures


      case item


      when RPG::Item


        $game_party.gain_item(item.id, 1)


        $am = "获得#{$data_items[item.id].name}"


        bluefool_sort


      when RPG::Weapon


        $game_party.gain_weapon(item.id, 1)


        $am = "获得#{$data_weapons[item.id].name}"


        bluefool_sort


      when RPG::Armor


        $game_party.gain_armor(item.id, 1)


        $am = "获得#{$data_armors[item.id].name}"


        bluefool_sort


      end


      @down_window.refresh


    end


    # 生成战斗结果窗口


    @result_window = Window_BattleResult.new(exp, gold, treasures)


    # 设置等待计数


    @phase5_wait_count = 100


  end


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


  # ● 生成基本行动结果


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


  def make_basic_action_result


    # 攻击的情况下


    if @active_battler.current_action.basic == 0


      # 设置攻击 ID


      @animation1_id = @active_battler.animation1_id


      @animation2_id = @active_battler.animation2_id


      # 行动方的战斗者是敌人的情况下


      if @active_battler.is_a?(Game_Enemy)


        if @active_battler.restriction == 3


          target = $game_troop.random_target_enemy


        elsif @active_battler.restriction == 2


          target = $game_party.random_target_actor


        else


          index = @active_battler.current_action.target_index


          target = $game_party.smooth_target_actor(index)


        end


      end


      # 行动方的战斗者是角色的情况下


      if @active_battler.is_a?(Game_Actor)


        if @active_battler.restriction == 3


          target = $game_party.random_target_actor


        elsif @active_battler.restriction == 2


          target = $game_troop.random_target_enemy


        else


          index = @active_battler.current_action.target_index


          target = $game_troop.smooth_target_enemy(index)


        end


      end


      # 设置对像方的战斗者序列


      @target_battlers = [target]


      for target in @target_battlers


        $am = "#{@active_battler.name}对#{target.name}发起了进攻!"


        bluefool_sort


        target.attack_effect(@active_battler)


      end


      return


    end


    # 防御的情况下


    if @active_battler.current_action.basic == 1


      @help_window.set_text($data_system.words.guard, 1)


      $am = "#{@active_battler.name}选择了防御."


      bluefool_sort


      return


    end


    # 逃跑的情况下


    if @active_battler.is_a?(Game_Enemy) and


       @active_battler.current_action.basic == 2


      #  帮助窗口显示"逃跑"


      @help_window.set_text("逃跑", 1)


      # 逃跑


      @active_battler.escape


      return


    end


    # 什么也不做的情况下


    if @active_battler.current_action.basic == 3


      # 清除强制行动对像的战斗者


      $game_temp.forcing_battler = nil


      # 移至步骤 1


      @phase4_step = 1


      return


    end


  end


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


  # ● 生成特技行动结果


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


  def make_skill_action_result


    # 获取特技


    @skill = $data_skills[@active_battler.current_action.skill_id]


    # 如果不是强制行动


    unless @active_battler.current_action.forcing


      # 因为 SP 耗尽而无法使用的情况下


      unless @active_battler.skill_can_use?(@skill.id)


        # 清除强制行动对像的战斗者


        $game_temp.forcing_battler = nil


        # 移至步骤 1


        @phase4_step = 1


        return


      end


    end


    # 消耗 SP


    @active_battler.sp -= @skill.sp_cost


    # 刷新状态窗口


    @status_window.refresh


    # 在帮助窗口显示特技名


    @help_window.set_text(@skill.name, 1)


    # 设置动画 ID


    @animation1_id = @skill.animation1_id


    @animation2_id = @skill.animation2_id


    # 设置公共事件 ID


    @common_event_id = @skill.common_event_id


    # 设置对像侧战斗者


    set_target_battlers(@skill.scope)


    # 应用特技效果


    for target in @target_battlers


      case @skill.scope


      when 1  


       $am = "#{@active_battler.name}使用#{@skill.name}攻击#{target.name}!"


      when 2  


       $am = "#{@active_battler.name}使用#{@skill.name}攻击#{target.name}!"


      when 7  


        $am = "#{@active_battler.name}对自己使用#{@skill.name}."


      else


        if target == @active_battler


          $am = "#{@active_battler.name}对自己使用#{@skill.name}."


          else


          $am = "#{@active_battler.name}对#{target.name}使用#{@skill.name}."


        end  


      end


      bluefool_sort


      target.skill_effect(@active_battler, @skill)


    end


  end


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


  # ● 生成物品行动结果


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


  def make_item_action_result


    # 获取物品


    @item = $data_items[@active_battler.current_action.item_id]


    # 因为物品耗尽而无法使用的情况下


    unless $game_party.item_can_use?(@item.id)


      # 移至步骤 1


      @phase4_step = 1


      return


    end


    # 消耗品的情况下


    if @item.consumable


      # 使用的物品减 1


      $game_party.lose_item(@item.id, 1)


    end


    # 在帮助窗口显示物品名


    @help_window.set_text(@item.name, 1)


    # 设置动画 ID


    @animation1_id = @item.animation1_id


    @animation2_id = @item.animation2_id


    # 设置公共事件 ID


    @common_event_id = @item.common_event_id


    # 确定对像


    index = @active_battler.current_action.target_index


    target = $game_party.smooth_target_actor(index)


    # 设置对像侧战斗者


    set_target_battlers(@item.scope)


    # 应用物品效果


    for target in @target_battlers


      target.item_effect(@item)


      if target == @active_battler


        $am = "#{@active_battler.name}对自己使用了#{@item.name}"


       else


        $am = "#{@active_battler.name}对#{target.name}使用了#{@item.name}"


      end


      bluefool_sort


    end


  end


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


  # ● 刷新画面 (主回合步骤 4 : 对像方动画)


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


  def update_phase4_step4


    # 对像方动画


    for target in @target_battlers


      target.animation_id = @animation2_id


      target.animation_hit = (target.damage != "Miss")


    end


    @down_window.refresh


    @wait_count = 8


    # 移至步骤 5


    @phase4_step = 5


  end


  def bluefool_sort


      if $am != nil


       if $a.size > Blue::NAM_MAX


          a_temp = {}


          j = 0


          for i in ($a.size - Blue::Blue_max)...$a.size


            a_temp[j] = $a[i]


            j += 1


          end  


         $a = a_temp


       end  


        if $am.length < 54


           $a[$a.size] = $am


        else


           while $am.length > 53


             i = 53


             while (/\W/ =~ $am[i-3,3]) != nil


              i -= 1


             end


             $a[$a.size] = $am[0,i]


             $am = $am[i ,$am.length - i]


           end


           $a[$a.size] = $am


        end


       $am = nil


      end


  end


  def main


    $am = "队伍进入战斗！"


    bluefool_sort


    $game_temp.in_battle = true


    $game_temp.battle_turn = 0


    $game_temp.battle_event_flags.clear


    $game_temp.battle_abort = false


    $game_temp.battle_main_phase = false


    $game_temp.battleback_name = $game_map.battleback_name


    $game_temp.forcing_battler = nil


    $game_system.battle_interpreter.setup(nil, 0)


    @troop_id = $game_temp.battle_troop_id


    $game_troop.setup(@troop_id)


    #生成角色命令窗口


    s1 = $data_system.words.attack


    s2 = $data_system.words.skill


    s3 = $data_system.words.guard


    s4 = $data_system.words.item


    @actor_command_window = Window_Command.new(160, [s1, s2, s3, s4])


    @actor_command_window.y = 160


    @actor_command_window.back_opacity = 160


    @actor_command_window.active = false


    @actor_command_window.visible = false


    # 生成其它窗口


    @party_command_window = Window_PartyCommand.new


    @help_window = Window_Help.new


    @help_window.back_opacity = 160


    @help_window.visible = false


    @status_window = Window_BattleStatus.new


    @message_window = Window_Message.new


    @down_window = Window_Down.new


    @down_window.y = Blue::BATAM_Y


    @down_window.z = @actor_command_window.z - 10


    # 生成活动块


    @spriteset = Spriteset_Battle.new


    # 初始化等待计数


    @wait_count = 0


    # 执行过渡


    if $data_system.battle_transition == ""


      Graphics.transition(20)


    else


      Graphics.transition(40, "Graphics/Transitions/" +


        $data_system.battle_transition)


    end


    # 开始自由战斗回合


    start_phase1


    # 主循环


    loop do


      Graphics.update


      Input.update


      update


      if $scene != self


        break


      end


    end


    # 刷新地图


    $game_map.refresh


    # 准备过渡


    Graphics.freeze


    # 释放窗口


    @actor_command_window.dispose


    @party_command_window.dispose


    @help_window.dispose


    @status_window.dispose


    @message_window.dispose


    @down_window.dispose


    $am = "战斗结束"


    bluefool_sort


    if @skill_window != nil


      @skill_window.dispose


    end


    if @item_window != nil


      @item_window.dispose


    end


    if @result_window != nil


      @result_window.dispose


    end


    # 释放活动块


    @spriteset.dispose


    # 标题画面切换中的情况


    if $scene.is_a?(Scene_Title)


      # 淡入淡出画面


      Graphics.transition


      Graphics.freeze


    end


    # 战斗测试或者游戏结束以外的画面切换中的情况


    if $BTEST and not $scene.is_a?(Scene_Gameover)


      $scene = nil


    end


  end


end


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


class Interpreter


  def bluefool_sort


      if $am != nil


       if $a.size > Blue::NAM_MAX


          a_temp = {}


          j = 0


          for i in ($a.size - Blue::Blue_max)...$a.size


            a_temp[j] = $a[i]


            j += 1


          end  


         $a = a_temp


       end  


        if $am.length < 54


           $a[$a.size] = $am


        else


           while $am.length > 53


             i = 53


             while (/\W/ =~ $am[i-3,3]) != nil


              i -= 1


             end


             $a[$a.size] = $am[0,i]


             $am = $am[i ,$am.length - i]


           end


           $a[$a.size] = $am


        end


       $am = nil


      end


  end


  def command_101


    if $game_temp.message_text != nil


      return false


    end


    # 设置信息结束后待机和返回调用标志


    @message_waiting = true


    $game_temp.message_proc = Proc.new { @message_waiting = false }


    # message_text 设置为 1 行


    $game_temp.message_text = @list[@index].parameters[0] + "\n"


    if (@list[@index].parameters[0]).split(/\\/)[1] != nil


     $am = @list[@index].parameters[0].split(/\\/)[0]


     else


     $am = @list[@index].parameters[0]


    end  


    bluefool_sort


    line_count = 1


    # 循环


    loop do


      # 下一个事件指令为文章两行以上的情况


      if @list[@index+1].code == 401


        # message_text 添加到第 2 行以下


        $game_temp.message_text += @list[@index+1].parameters[0] + "\n"


        $am = @list[@index+1].parameters[0]


        bluefool_sort


        line_count += 1


      # 事件指令不在文章两行以下的情况


      else


        # 下一个事件指令为显示选择项的情况下


        if @list[@index+1].code == 102


          # 如果选择项能收纳在画面里


          if @list[@index+1].parameters[0].size <= 4 - 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


        # 继续


        return true


      end


      # 推进索引


      @index += 1


    end


  end


  def command_125


    value = operate_value(@parameters[0], @parameters[1], @parameters[2])


    $game_party.gain_gold(value)


    if value >= 0


      $am = "#{$game_party.actors[0].name}得到了#{value}#{$data_system.words.gold}"


    else


      $am = "#{$game_party.actors[0].name}失去了#{value.abs.to_s}#{$data_system.words.gold}"


    end  


    bluefool_sort


    Audio.se_play("Audio/SE/"+"006-System06",100,100)


    return true


  end


  def command_126


    value = operate_value(@parameters[1], @parameters[2], @parameters[3])


    # 增减物品


    $game_party.gain_item(@parameters[0], value)


    if value >= 0


      $am = "#{$game_party.actors[0].name}得到了#{value.abs.to_s}个#{$data_items[@parameters[0]].name}"


    else


      $am = "#{$game_party.actors[0].name}失去了#{value.abs.to_s}个#{$data_items[@parameters[0]].name}"


    end 


    bluefool_sort


    Audio.se_play("Audio/SE/"+"006-System06",100,100)


    return true


  end


  def command_127


    value = operate_value(@parameters[1], @parameters[2], @parameters[3])


    # 增减武器


    $game_party.gain_weapon(@parameters[0], value)


    if value >= 0


      $am = "#{$game_party.actors[0].name}得到了#{value.abs.to_s}个#{$data_weapons[@parameters[0]].name}"


    else


      $am = "#{$game_party.actors[0].name}失去了#{value.abs.to_s}个#{$data_weapons[@parameters[0]].name}"


    end 


    bluefool_sort


    Audio.se_play("Audio/SE/"+"006-System06",100,100)


    return true


  end


  def command_128


    value = operate_value(@parameters[1], @parameters[2], @parameters[3])


    # 增减防具


    $game_party.gain_armor(@parameters[0], value)


    if value >= 0


      $am = "#{$game_party.actors[0].name}得到了#{value.abs.to_s}个#{$data_armors[@parameters[0]].name}"


    else


      $am = "#{$game_party.actors[0].name}失去了#{value.abs.to_s}个#{$data_armors[@parameters[0]].name}"


    end 


    bluefool_sort


    Audio.se_play("Audio/SE/"+"006-System06",100,100)


    return true


  end


  def command_129


    # 获取角色


    actor = $game_actors[@parameters[0]]


    # 角色有效的情况下


    if actor != nil


      # 操作分支


      if @parameters[1] == 0


        if @parameters[2] == 1


          $game_actors[@parameters[0]].setup(@parameters[0])


        end


        $game_party.add_actor(@parameters[0])


        Audio.me_play("Audio/ME/"+"002-Victory02",100,100)


        $am = "#{$game_actors[@parameters[0]].name}加入队伍!"


        bluefool_sort


      else


        $game_party.remove_actor(@parameters[0])


        Audio.me_play("Audio/ME/"+"015-Mystery01",100,100)


        $am = "#{$game_actors[@parameters[0]].name}离开队伍!"


        bluefool_sort


      end


    end


   # 继续


    return true


  end


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


end


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


# ■ Window_Down


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


# 　 信息窗口。


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


 


class Window_Down < Window_Selectable


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


  # ● 初始化对像


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


  def initialize


    super(0, 240, 330, 240)


    @column_max = 1


    self.opacity = 0


    if $a != nil and $a.size < 21


      self.index = $a.size/2


      elsif $a != nil and $a.size > 20


      self.index = 9


    end  


    refresh


    self.active = false


  end


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


  # ● 刷新


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


  def refresh


    if self.contents != nil


      self.contents.dispose


      self.contents = nil


    end


    if $a != nil and $a.size < Blue::Blue_max + 1


      @item_max = $a.size


      elsif $a != nil and $a.size > Blue::Blue_max


      @item_max = Blue::Blue_max


    end  


    if @item_max > 0


      self.contents = Bitmap.new(width - 32, row_max * 16)


      for i in 0...@item_max


         draw_item(i)


      end


    end


  end


  def item_max


    return @item_max


  end  


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


  # ● 描绘项目


  #     index : 项目编号


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


  def draw_item(index)


    if $a.size < Blue::Blue_max + 1


     item = $a[index]


     else


     item = $a[index + $a.size - Blue::Blue_max]


    end 


    x = 0


    y = index * 16


    self.contents.font.size = 14


    self.contents.font.color = Color.new(-170,-170,-170,255)


    self.contents.draw_text(x + 6, y + 1, self.contents.text_size(item).width, 16, item, 0)


    self.contents.font.color = normal_color


    self.contents.draw_text(x + 5, y, self.contents.text_size(item).width, 16, item, 0)


  end


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


  #  ● 刷新光标


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


  def update_cursor_rect


    # 光标位置不满 0 的情况下


    if @index < 0


      self.cursor_rect.empty


      return


    end


    # 获取当前的行


    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


    cursor_width = 0


    # 计算光标坐标


    x = @index % @column_max * (cursor_width + 32)


    y = @index / @column_max * 32 - self.oy


    # 更新国标矩形


    self.cursor_rect.set(x, y, cursor_width, 16)


  end


end

刺夜之枪 · 发表于 2016-1-6 01:58:21

RUBY 代码复制

#------------------制作by bluefool,转载请保留------------------
module Blue
  #这个是控制显示最近的多少条信息的,当超出一屏能显示的值的话可通过先按一下shift
  #然后用上下翻看内容。再按一次shift则解除激活
  Blue_max = 9
  #战斗画面时即时消息窗口的x坐标
  BATAM_X = 0
  #战斗画面时即时消息窗口的y坐标
  BATAM_Y = 90
  #用于清空hash表，可以不管它,但不要让Blue_max大于它，当然，它的值也可以改变
  NAM_MAX = 20
  #主要传递信息参数为函数$am,参见脚本内容
end
#-------------------------------------------
class Scene_Load < Scene_File
  #--------------------------------------------------------------------------
  # ● 确定时的处理
  #--------------------------------------------------------------------------
  def on_decision(filename)
    # 文件不存在的情况下
    unless FileTest.exist?(filename)
      # 演奏冻结 SE
      $game_system.se_play($data_system.buzzer_se)
      return
    end
    # 演奏读档 SE
    $game_system.se_play($data_system.load_se)
    # 写入存档数据
    file = File.open(filename, "rb")
    read_save_data(file)
    file.close
    # 还原 BGM、BGS
    $game_system.bgm_play($game_system.playing_bgm)
    $game_system.bgs_play($game_system.playing_bgs)
    # 刷新地图 (执行并行事件)
    $a = {}
    $game_map.update
    # 切换到地图画面
    $scene = Scene_Map.new
  end
end  
class Game_Player < Game_Character
  def update
    # 本地变量记录移动信息
    last_moving = moving?
    # 移动中、事件执行中、强制移动路线中、
    # 信息窗口一个也不显示的时候
    unless moving? or $game_system.map_interpreter.running? or
           @move_route_forcing or $game_temp.message_window_showing or $ccc == 1
      case Input.dir4
      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  
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　处理标题画面的类。
#==============================================================================
 
class Scene_Title
  #--------------------------------------------------------------------------
  # ● 命令 : 新游戏
  #--------------------------------------------------------------------------
  def command_new_game
    # 演奏确定 SE
    $game_system.se_play($data_system.decision_se)
    # 停止 BGM
    Audio.bgm_stop
    # 重置测量游戏时间用的画面计数器
    Graphics.frame_count = 0
    # 生成各种游戏对像
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party         = Game_Party.new
    $game_troop         = Game_Troop.new
    $game_map           = Game_Map.new
    $game_player        = Game_Player.new
    # 设置初期同伴位置
    $game_party.setup_starting_members
    # 设置初期位置的地图
    $game_map.setup($data_system.start_map_id)
    # 主角向初期位置移动
    $game_player.moveto($data_system.start_x, $data_system.start_y)
    # 刷新主角
    $game_player.refresh
    # 执行地图设置的 BGM 与 BGS 的自动切换
    $game_map.autoplay
    # 刷新地图 (执行并行事件)
    $game_map.update
    $a = {}
    $ccc = 0
    # 切换地图画面
    $scene = Scene_Map.new
  end
  #--------------------------------------------------------------------------
  # ● 命令 : 继续
  #--------------------------------------------------------------------------
  def command_continue
    # 继续无效的情况下
    unless @continue_enabled
      # 演奏无效 SE
      $game_system.se_play($data_system.buzzer_se)
      return
    end
    # 演奏确定 SE
    $game_system.se_play($data_system.decision_se)
    # 切换到读档画面
    $scene = Scene_Load.new
  end
  #--------------------------------------------------------------------------
  # ● 命令 : 退出
  #--------------------------------------------------------------------------
  def command_shutdown
    # 演奏确定 SE
    $game_system.se_play($data_system.decision_se)
    # BGM、BGS、ME 的淡入淡出
    Audio.bgm_fade(800)
    Audio.bgs_fade(800)
    Audio.me_fade(800)
    # 退出
    $scene = nil
  end
  #--------------------------------------------------------------------------
  # ● 战斗测试
  #--------------------------------------------------------------------------
  def battle_test
    # 载入数据库 (战斗测试用)
    $data_actors        = load_data("Data/BT_Actors.rxdata")
    $data_classes       = load_data("Data/BT_Classes.rxdata")
    $data_skills        = load_data("Data/BT_Skills.rxdata")
    $data_items         = load_data("Data/BT_Items.rxdata")
    $data_weapons       = load_data("Data/BT_Weapons.rxdata")
    $data_armors        = load_data("Data/BT_Armors.rxdata")
    $data_enemies       = load_data("Data/BT_Enemies.rxdata")
    $data_troops        = load_data("Data/BT_Troops.rxdata")
    $data_states        = load_data("Data/BT_States.rxdata")
    $data_animations    = load_data("Data/BT_Animations.rxdata")
    $data_tilesets      = load_data("Data/BT_Tilesets.rxdata")
    $data_common_events = load_data("Data/BT_CommonEvents.rxdata")
    $data_system        = load_data("Data/BT_System.rxdata")
    # 重置测量游戏时间用的画面计数器
    Graphics.frame_count = 0
    # 生成各种游戏对像
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party         = Game_Party.new
    $game_troop         = Game_Troop.new
    $game_map           = Game_Map.new
    $game_player        = Game_Player.new
    # 设置战斗测试用同伴
    $game_party.setup_battle_test_members
    # 设置队伍 ID、可以逃走标志、战斗背景
    $game_temp.battle_troop_id = $data_system.test_troop_id
    $game_temp.battle_can_escape = true
    $game_map.battleback_name = $data_system.battleback_name
    # 演奏战斗开始 BGM
    $game_system.se_play($data_system.battle_start_se)
    # 演奏战斗 BGM
    $game_system.bgm_play($game_system.battle_bgm)
    # 切换到战斗画面
    $scene = Scene_Battle.new
  end
end
#-------------------------------------------------------
class Scene_Map
  #--------------------------------------------------------------------------
  # ● 主处理
  #--------------------------------------------------------------------------
  def main
    @spriteset = Spriteset_Map.new
    @message_window = Window_Message.new
    @down_window = Window_Down.new
    Graphics.transition
    # 主循环
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @spriteset.dispose
    @message_window.dispose
    @down_window.dispose
    if $scene.is_a?(Scene_Title)
      Graphics.transition
      Graphics.freeze
    end
    @am_size = $a.size
  end
  #---------------------
  def bluefool_sort
    if $am != nil
       if $a.size > Blue::NAM_MAX
          a_temp = {}
          j = 0
          for i in ($a.size - Blue::Blue_max)...$a.size
            a_temp[j] = $a[i]
            j += 1
          end  
         $a = a_temp
       end  
       if $am.length < 54
          $a[$a.size] = $am
        else
          while $am.length > 53
            i = 53
            while (/\W/ =~ $am[i-3,3]) != nil
              i -= 1
            end
            $a[$a.size] = $am[0,i]
            $am = $am[i ,$am.length - i]
          end
          $a[$a.size] = $am
       end
       $am = nil
    end
  end  
  #--------------------------------------------------------------------------
  # ● 刷新画面
  #--------------------------------------------------------------------------
  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
      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
    #---------------------------------------------
    bluefool_sort
    if @am_size != $a.size
       @down_window.refresh
       if $a != nil and $a.size < Blue::Blue_max + 1
        @down_window.index = $a.size/2 - 1
        elsif $a != nil and $a.size > Blue::Blue_max
        @down_window.index = Blue::Blue_max/2 - 1
       end  
       @am_size = $a.size
    end  
    if Input.trigger?(Input::A)
      if @down_window.active == false
        @down_window.active = true
        $ccc = 1
      else
        @down_window.active = false
        $ccc = 0
      end  
    end
    if Input.trigger?(Input::DOWN)#输入DOWN键的情况
      if @down_window.active == true and @down_window.index < (@down_window.item_max-1)/2
        @down_window.index += 1
      end  
    end  
    if Input.trigger?(Input::UP)#输入UP键的情况
      if @down_window.active == true and @down_window.index > 0
        @down_window.index -= 1
      end  
    end  
    #----------------------------------------------
    # 按下 B 键的情况下
    if Input.trigger?(Input::B)
      # 不是在事件执行中或菜单禁止中
      unless $game_system.map_interpreter.running? 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
#---------------------------------------------------------
class Interpreter
  def bluefool_sort
      if $am != nil
       if $a.size > Blue::NAM_MAX
          a_temp = {}
          j = 0
          for i in ($a.size - Blue::Blue_max)...$a.size
            a_temp[j] = $a[i]
            j += 1
          end  
         $a = a_temp
       end  
        if $am.length < 54
           $a[$a.size] = $am
        else
           while $am.length > 53
             i = 53
             while (/\W/ =~ $am[i-3,3]) != nil
              i -= 1
             end
             $a[$a.size] = $am[0,i]
             $am = $am[i ,$am.length - i]
           end
           $a[$a.size] = $am
        end
       $am = nil
      end
  end
end
#==============================================================================
# ■ Window_Down
#------------------------------------------------------------------------------
# 　 信息窗口。
#==============================================================================
 
class Window_Down < Window_Selectable
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize
    super(0, 240, 330, 240)
    @column_max = 1
    self.opacity = 0
    if $a != nil and $a.size < 21
      self.index = $a.size/2
      elsif $a != nil and $a.size > 20
      self.index = 9
    end  
    refresh
    self.active = false
  end
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  def refresh
    if self.contents != nil
      self.contents.dispose
      self.contents = nil
    end
    if $a != nil and $a.size < Blue::Blue_max + 1
      @item_max = $a.size
      elsif $a != nil and $a.size > Blue::Blue_max
      @item_max = Blue::Blue_max
    end  
    if @item_max > 0
      self.contents = Bitmap.new(width - 32, row_max * 16)
      for i in 0...@item_max
         draw_item(i)
      end
    end
  end
  def item_max
    return @item_max
  end  
  #--------------------------------------------------------------------------
  # ● 描绘项目
  #     index : 项目编号
  #--------------------------------------------------------------------------
  def draw_item(index)
    if $a.size < Blue::Blue_max + 1
     item = $a[index]
     else
     item = $a[index + $a.size - Blue::Blue_max]
    end 
    x = 0
    y = index * 16
    self.contents.font.size = 14
    self.contents.font.color = Color.new(-170,-170,-170,255)
    self.contents.draw_text(x + 6, y + 1, self.contents.text_size(item).width, 16, item, 0)
    self.contents.font.color = normal_color
    self.contents.draw_text(x + 5, y, self.contents.text_size(item).width, 16, item, 0)
  end
  #--------------------------------------
  #  ● 刷新光标
  #--------------------------------------
  def update_cursor_rect
    # 光标位置不满 0 的情况下
    if @index < 0
      self.cursor_rect.empty
      return
    end
    # 获取当前的行
    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
    cursor_width = 0
    # 计算光标坐标
    x = @index % @column_max * (cursor_width + 32)
    y = @index / @column_max * 32 - self.oy
    # 更新国标矩形
    self.cursor_rect.set(x, y, cursor_width, 16)
  end
end

#------------------制作by bluefool,转载请保留------------------


module Blue


  #这个是控制显示最近的多少条信息的,当超出一屏能显示的值的话可通过先按一下shift


  #然后用上下翻看内容。再按一次shift则解除激活


  Blue_max = 9


  #战斗画面时即时消息窗口的x坐标


  BATAM_X = 0


  #战斗画面时即时消息窗口的y坐标


  BATAM_Y = 90


  #用于清空hash表，可以不管它,但不要让Blue_max大于它，当然，它的值也可以改变


  NAM_MAX = 20


  #主要传递信息参数为函数$am,参见脚本内容


end


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


class Scene_Load < Scene_File


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


  # ● 确定时的处理


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


  def on_decision(filename)


    # 文件不存在的情况下


    unless FileTest.exist?(filename)


      # 演奏冻结 SE


      $game_system.se_play($data_system.buzzer_se)


      return


    end


    # 演奏读档 SE


    $game_system.se_play($data_system.load_se)


    # 写入存档数据


    file = File.open(filename, "rb")


    read_save_data(file)


    file.close


    # 还原 BGM、BGS


    $game_system.bgm_play($game_system.playing_bgm)


    $game_system.bgs_play($game_system.playing_bgs)


    # 刷新地图 (执行并行事件)


    $a = {}


    $game_map.update


    # 切换到地图画面


    $scene = Scene_Map.new


  end


end  


class Game_Player < Game_Character


  def update


    # 本地变量记录移动信息


    last_moving = moving?


    # 移动中、事件执行中、强制移动路线中、


    # 信息窗口一个也不显示的时候


    unless moving? or $game_system.map_interpreter.running? or


           @move_route_forcing or $game_temp.message_window_showing or $ccc == 1


      case Input.dir4


      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  


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


# ■ Scene_Title


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


# 　处理标题画面的类。


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


 


class Scene_Title


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


  # ● 命令 : 新游戏


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


  def command_new_game


    # 演奏确定 SE


    $game_system.se_play($data_system.decision_se)


    # 停止 BGM


    Audio.bgm_stop


    # 重置测量游戏时间用的画面计数器


    Graphics.frame_count = 0


    # 生成各种游戏对像


    $game_temp          = Game_Temp.new


    $game_system        = Game_System.new


    $game_switches      = Game_Switches.new


    $game_variables     = Game_Variables.new


    $game_self_switches = Game_SelfSwitches.new


    $game_screen        = Game_Screen.new


    $game_actors        = Game_Actors.new


    $game_party         = Game_Party.new


    $game_troop         = Game_Troop.new


    $game_map           = Game_Map.new


    $game_player        = Game_Player.new


    # 设置初期同伴位置


    $game_party.setup_starting_members


    # 设置初期位置的地图


    $game_map.setup($data_system.start_map_id)


    # 主角向初期位置移动


    $game_player.moveto($data_system.start_x, $data_system.start_y)


    # 刷新主角


    $game_player.refresh


    # 执行地图设置的 BGM 与 BGS 的自动切换


    $game_map.autoplay


    # 刷新地图 (执行并行事件)


    $game_map.update


    $a = {}


    $ccc = 0


    # 切换地图画面


    $scene = Scene_Map.new


  end


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


  # ● 命令 : 继续


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


  def command_continue


    # 继续无效的情况下


    unless @continue_enabled


      # 演奏无效 SE


      $game_system.se_play($data_system.buzzer_se)


      return


    end


    # 演奏确定 SE


    $game_system.se_play($data_system.decision_se)


    # 切换到读档画面


    $scene = Scene_Load.new


  end


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


  # ● 命令 : 退出


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


  def command_shutdown


    # 演奏确定 SE


    $game_system.se_play($data_system.decision_se)


    # BGM、BGS、ME 的淡入淡出


    Audio.bgm_fade(800)


    Audio.bgs_fade(800)


    Audio.me_fade(800)


    # 退出


    $scene = nil


  end


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


  # ● 战斗测试


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


  def battle_test


    # 载入数据库 (战斗测试用)


    $data_actors        = load_data("Data/BT_Actors.rxdata")


    $data_classes       = load_data("Data/BT_Classes.rxdata")


    $data_skills        = load_data("Data/BT_Skills.rxdata")


    $data_items         = load_data("Data/BT_Items.rxdata")


    $data_weapons       = load_data("Data/BT_Weapons.rxdata")


    $data_armors        = load_data("Data/BT_Armors.rxdata")


    $data_enemies       = load_data("Data/BT_Enemies.rxdata")


    $data_troops        = load_data("Data/BT_Troops.rxdata")


    $data_states        = load_data("Data/BT_States.rxdata")


    $data_animations    = load_data("Data/BT_Animations.rxdata")


    $data_tilesets      = load_data("Data/BT_Tilesets.rxdata")


    $data_common_events = load_data("Data/BT_CommonEvents.rxdata")


    $data_system        = load_data("Data/BT_System.rxdata")


    # 重置测量游戏时间用的画面计数器


    Graphics.frame_count = 0


    # 生成各种游戏对像


    $game_temp          = Game_Temp.new


    $game_system        = Game_System.new


    $game_switches      = Game_Switches.new


    $game_variables     = Game_Variables.new


    $game_self_switches = Game_SelfSwitches.new


    $game_screen        = Game_Screen.new


    $game_actors        = Game_Actors.new


    $game_party         = Game_Party.new


    $game_troop         = Game_Troop.new


    $game_map           = Game_Map.new


    $game_player        = Game_Player.new


    # 设置战斗测试用同伴


    $game_party.setup_battle_test_members


    # 设置队伍 ID、可以逃走标志、战斗背景


    $game_temp.battle_troop_id = $data_system.test_troop_id


    $game_temp.battle_can_escape = true


    $game_map.battleback_name = $data_system.battleback_name


    # 演奏战斗开始 BGM


    $game_system.se_play($data_system.battle_start_se)


    # 演奏战斗 BGM


    $game_system.bgm_play($game_system.battle_bgm)


    # 切换到战斗画面


    $scene = Scene_Battle.new


  end


end


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


class Scene_Map


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


  # ● 主处理


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


  def main


    @spriteset = Spriteset_Map.new


    @message_window = Window_Message.new


    @down_window = Window_Down.new


    Graphics.transition


    # 主循环


    loop do


      Graphics.update


      Input.update


      update


      if $scene != self


        break


      end


    end


    Graphics.freeze


    @spriteset.dispose


    @message_window.dispose


    @down_window.dispose


    if $scene.is_a?(Scene_Title)


      Graphics.transition


      Graphics.freeze


    end


    @am_size = $a.size


  end


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


  def bluefool_sort


    if $am != nil


       if $a.size > Blue::NAM_MAX


          a_temp = {}


          j = 0


          for i in ($a.size - Blue::Blue_max)...$a.size


            a_temp[j] = $a[i]


            j += 1


          end  


         $a = a_temp


       end  


       if $am.length < 54


          $a[$a.size] = $am


        else


          while $am.length > 53


            i = 53


            while (/\W/ =~ $am[i-3,3]) != nil


              i -= 1


            end


            $a[$a.size] = $am[0,i]


            $am = $am[i ,$am.length - i]


          end


          $a[$a.size] = $am


       end


       $am = nil


    end


  end  


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


  # ● 刷新画面


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


  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


      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


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


    bluefool_sort


    if @am_size != $a.size


       @down_window.refresh


       if $a != nil and $a.size < Blue::Blue_max + 1


        @down_window.index = $a.size/2 - 1


        elsif $a != nil and $a.size > Blue::Blue_max


        @down_window.index = Blue::Blue_max/2 - 1


       end  


       @am_size = $a.size


    end  


    if Input.trigger?(Input::A)


      if @down_window.active == false


        @down_window.active = true


        $ccc = 1


      else


        @down_window.active = false


        $ccc = 0


      end  


    end


    if Input.trigger?(Input::DOWN)#输入DOWN键的情况


      if @down_window.active == true and @down_window.index < (@down_window.item_max-1)/2


        @down_window.index += 1


      end  


    end  


    if Input.trigger?(Input::UP)#输入UP键的情况


      if @down_window.active == true and @down_window.index > 0


        @down_window.index -= 1


      end  


    end  


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


    # 按下 B 键的情况下


    if Input.trigger?(Input::B)


      # 不是在事件执行中或菜单禁止中


      unless $game_system.map_interpreter.running? 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


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


class Interpreter


  def bluefool_sort


      if $am != nil


       if $a.size > Blue::NAM_MAX


          a_temp = {}


          j = 0


          for i in ($a.size - Blue::Blue_max)...$a.size


            a_temp[j] = $a[i]


            j += 1


          end  


         $a = a_temp


       end  


        if $am.length < 54


           $a[$a.size] = $am


        else


           while $am.length > 53


             i = 53


             while (/\W/ =~ $am[i-3,3]) != nil


              i -= 1


             end


             $a[$a.size] = $am[0,i]


             $am = $am[i ,$am.length - i]


           end


           $a[$a.size] = $am


        end


       $am = nil


      end


  end


end


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


# ■ Window_Down


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


# 　 信息窗口。


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


 


class Window_Down < Window_Selectable


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


  # ● 初始化对像


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


  def initialize


    super(0, 240, 330, 240)


    @column_max = 1


    self.opacity = 0


    if $a != nil and $a.size < 21


      self.index = $a.size/2


      elsif $a != nil and $a.size > 20


      self.index = 9


    end  


    refresh


    self.active = false


  end


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


  # ● 刷新


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


  def refresh


    if self.contents != nil


      self.contents.dispose


      self.contents = nil


    end


    if $a != nil and $a.size < Blue::Blue_max + 1


      @item_max = $a.size


      elsif $a != nil and $a.size > Blue::Blue_max


      @item_max = Blue::Blue_max


    end  


    if @item_max > 0


      self.contents = Bitmap.new(width - 32, row_max * 16)


      for i in 0...@item_max


         draw_item(i)


      end


    end


  end


  def item_max


    return @item_max


  end  


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


  # ● 描绘项目


  #     index : 项目编号


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


  def draw_item(index)


    if $a.size < Blue::Blue_max + 1


     item = $a[index]


     else


     item = $a[index + $a.size - Blue::Blue_max]


    end 


    x = 0


    y = index * 16


    self.contents.font.size = 14


    self.contents.font.color = Color.new(-170,-170,-170,255)


    self.contents.draw_text(x + 6, y + 1, self.contents.text_size(item).width, 16, item, 0)


    self.contents.font.color = normal_color


    self.contents.draw_text(x + 5, y, self.contents.text_size(item).width, 16, item, 0)


  end


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


  #  ● 刷新光标


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


  def update_cursor_rect


    # 光标位置不满 0 的情况下


    if @index < 0


      self.cursor_rect.empty


      return


    end


    # 获取当前的行


    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


    cursor_width = 0


    # 计算光标坐标


    x = @index % @column_max * (cursor_width + 32)


    y = @index / @column_max * 32 - self.oy


    # 更新国标矩形


    self.cursor_rect.set(x, y, cursor_width, 16)


  end


end

我就删了个大概。没有细看，但是至少现在除了手动的$am其他都删了

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

[已经解决] 关于【即时消息脚本】修改

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

评分

评分

开拓者