仿DQ马车队列行走

Sion · 发表于 2013-1-24 12:56:52

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

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

x

本帖最后由 Sion 于 2013-1-25 16:50 编辑

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

最近复刻这款游戏，顺便就写了这个脚本。
~~集中队列成员的时候有点卡帧，在下暂时想不出解决办法，希望大家能指点一下：）~~
已经不卡了，欢迎反馈bug

RUBY 代码复制

#==============================================================================
# 仿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

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


# 仿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

eve592370698 · 发表于 2013-1-24 16:41:31

大地图随机遇敌咋办？

小小西 · 发表于 2016-3-26 16:01:09

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

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

[RMVA发布] 仿DQ马车队列行走

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

点评

贵宾