仿DQ马车队列行走

Sion

DQ4代开始，获得马车以后在大地图上的队形，大概就是这个样子。

最近复刻这款游戏，顺便就写了这个脚本。
集中队列成员的时候有点卡帧，在下暂时想不出解决办法，希望大家能指点一下：）
已经不卡了，欢迎反馈bug
[pre lang="ruby" line="1"]#==============================================================================
# 仿DQ系列的马车行走
#
# 使用说明：新建2个角色，行走图分别设置为马和车厢。
# 开启对应的开关后，在地图备注中写有<马车Style>的地图上，就能以马车队列行进。
# 在<马车Style>的地图上开启开关时，如果需要要刷新队列，请在事件中执行脚本：
# $game_player.refresh
#==============================================================================
module CarriageStyle
  HORSE    = 10  #设置行走图为马的角色ID
  CARRIAGE = 11  #设置行走图为马车的角色ID
  SWITCH   = 120   #控制马车行走的公共开关
end

#==============================================================================
# ■ Game_Follower
#==============================================================================
class Game_Follower
attr_accessor :need_refresh
  #--------------------------------------------------------------------------
  # ● 获取对应的角色（override method）
  #--------------------------------------------------------------------------
  def actor
    if @need_refresh
      $carriage_array = $game_party.battle_members
      if $game_map.carriage_style? && $game_switches[CarriageStyle::SWITCH]
        $carriage_array.insert(1, $game_actors[CarriageStyle::HORSE],
        $game_actors[CarriageStyle::CARRIAGE])
      end
      @need_refresh = false
    end
    $carriage_array[@member_index]
  end
  #--------------------------------------------------------------------------
  # ● 追随带队角色（override method）
  #--------------------------------------------------------------------------
  def chase_preceding_character
    unless moving?
      case @member_index
      when 1..3; chase(@preceding_character.x, @preceding_character.y)
      when 4;    left_side_chase(@preceding_character)
      when 5;    right_side_chase(@preceding_character); end
    end
  end
  #--------------------------------------------------------------------------
  # ● 追随（new method）
  #--------------------------------------------------------------------------
  def chase(x, y)
    sx = distance_x_from(x)
    sy = distance_y_from(y)
    if sx != 0 && sy != 0
      move_diagonal(sx > 0 ? 4 : 6, sy > 0 ? 8 : 2)
    elsif sx != 0
      move_straight(sx > 0 ? 4 : 6)
    elsif sy != 0
      move_straight(sy > 0 ? 8 : 2)
    end
  end
  #--------------------------------------------------------------------------
  # ● 左侧人物的移动（new method）
  #--------------------------------------------------------------------------
  def left_side_chase(character)
    if left_side_passable?(character) && !$game_player.followers.gathering?
      sx = distance_x_from(character.left_side_x)
      sy = distance_y_from(character.left_side_y)
      if (sx.abs + sy.abs) >= 3
        moveto(character.back_side_x, character.back_side_y)
      end
      chase(character.left_side_x, character.left_side_y)
    else
      chase(character.x, character.y)
    end
    @direction = character.direction
  end
  #--------------------------------------------------------------------------
  # ● 右侧人物的移动（new method）
  #--------------------------------------------------------------------------
  def right_side_chase(character)
    if right_side_passable?(character) && !$game_player.followers.gathering?
      sx = distance_x_from(character.right_side_x)
      sy = distance_y_from(character.right_side_y)
      if (sx.abs + sy.abs) >= 3
        moveto(character.back_side_x, character.back_side_y)
      end
      chase(character.right_side_x, character.right_side_y)
    else
      chase(character.x, character.y)
    end
    @direction = character.direction
  end
  #--------------------------------------------------------------------------
  # ● 得到目标背后的坐标（new method）
  #--------------------------------------------------------------------------
  def back_side_x
    case self.direction
    when 2; x = 0
    when 4; x = 1
    when 6; x = -1
    when 8; x = 0; end
    $game_map.round_x(x += self.x)
  end
  def back_side_y
    case self.direction
    when 2; y = -1
    when 4; y = 0
    when 6; y = 0
    when 8; y = 1; end
    $game_map.round_y(y += self.y)
  end
  #--------------------------------------------------------------------------
  # ● 得到目标左侧的坐标（new methord）
  #--------------------------------------------------------------------------
  def left_side_x
    case self.direction
    when 2; x = 1
    when 4; x = 0
    when 6; x = 0
    when 8; x = -1; end
    $game_map.round_x(x += self.x)
  end
  def left_side_y
    case self.direction
    when 2; y = 0
    when 4; y = 1
    when 6; y = -1
    when 8; y = 0; end
    $game_map.round_x(y += self.y)
  end
  #--------------------------------------------------------------------------
  # ● 得到目标右侧的坐标（new method）
  #--------------------------------------------------------------------------
  def right_side_x
    case self.direction
    when 2; x = -1
    when 4; x = 0
    when 6; x = 0
    when 8; x = 1; end
    $game_map.round_x(x += self.x)
  end
  def right_side_y
    case self.direction
    when 2; y = 0
    when 4; y = -1
    when 6; y = 1
    when 8; y = 0; end
    $game_map.round_y(y += self.y)
  end
  #--------------------------------------------------------------------------
  # ● 判定HORSE左侧通行度（new method）
  #--------------------------------------------------------------------------
  def left_side_passable?(character)
    $game_map.passable?(character.left_side_x,character.left_side_y,
    character.direction) &&
    !collide_with_events?(character.left_side_x, character.left_side_y)
  end
  #--------------------------------------------------------------------------
  # ● 判定HORSE右侧通行度（new method）
  #--------------------------------------------------------------------------
  def right_side_passable?(character)
    $game_map.passable?(character.right_side_x,character.right_side_y,
    character.direction) &&
    !collide_with_events?(character.right_side_x, character.right_side_y)
  end
end

#==============================================================================
# ■ Scene_Map（new method）
#==============================================================================
class Game_Map
  def carriage_style?
    return if map_id == 0
    object = load_data(sprintf("Data/Map%03d.rvdata2", map_id))
    object.note.each_line do |line|
      return true if line.include?("<马车Style>")
    end
    return false
  end
end

#==============================================================================
# ■ Scene_Map（override method）
#==============================================================================
class Scene_Map
  def perform_transfer
    pre_transfer
    $game_player.perform_transfer
    $game_player.refresh
    post_transfer
  end
end

#==============================================================================
# ■ Game_Followers（alias method）
#==============================================================================
class Game_Followers
  #--------------------------------------------------------------------------
  # ● 初始化（alias method）
  #--------------------------------------------------------------------------
  alias old_initialize initialize
  def initialize(leader)
    old_initialize(leader)
    @data.push(Game_Follower.new(4, @data[0]))
    @data.push(Game_Follower.new(5, @data[0]))
  end
  #--------------------------------------------------------------------------
  # ● 刷新（alias method）
  #--------------------------------------------------------------------------
  alias old_refresh refresh
  def refresh
    @data[0].need_refresh = true
    old_refresh
  end
end[/pre]

eve592370698

大地图随机遇敌咋办？

小小西

我游戏很多并行事件，玩起来有点卡，但用了这个脚本卡爆了！！
这脚本还能再优化吗、？