寻路遇到障碍直接绕过继续行走

jiahui5592986 · 发表于 2014-9-7 00:05:15

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

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

x

简单的说，平常控制角色走路，角色碰到一个阻挡就会停下

如何让角色碰到阻挡后，还贴着周边的阻挡依然行走。。。。

我是八方向

RUBY 代码复制

#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
# 本类的实例请参考 $game_player。
#==============================================================================
 
class Game_Player < Game_Character
  if @self_alias == nil
    alias self_update update
    @self_alias = true
  end
  #--------------------------------------------------------------------------
  # ● 完整鼠标系统
  #--------------------------------------------------------------------------
  def update
    # 搜索路径
    seek_path
    # 当持续按下鼠标左键时
    if Mouse.press?(0x01)
      return if !System.whether_move
      @count = 20 if @count.nil?
      @count -= 1
      if @count <= 0
        @self_state = 2
        @count = nil
      end
      follow(true) if @self_state != 2 and @count < 18
    elsif Mouse.trigger?(0x02)
      @self_state = 0
      follow(false)
    else
      @count = 20
    end
    # 移动
    if @self_state == 1
      player_move
    elsif @paths != nil and @self_state == 2
      follow(true)
    end
    # 别名
    self_update
  end
  #--------------------------------------------------------------------------
  # ● 搜索路径
  #--------------------------------------------------------------------------
  def seek_path
    # 获取鼠标在画面的坐标
    x, y = Mouse.get_mouse_pos
    # 当按下鼠标左键时
    if Mouse.trigger?(0x01)
      # 禁止移动的情况下返回
      return if !System.whether_move
      # 排除各种无效的情况
      unless $game_system.map_interpreter.running? or 
        @move_route_forcing or $game_temp.message_window_showing
        # 获取目标点
        trg_x = (x + $game_map.display_x / 4) / 32
        trg_y = (y + $game_map.display_y / 4) / 32
        # 目标点不可以通行的情况下返回
        return unless target_passable?(trg_x,trg_y)
        # 初始化未开启事件
        @event = nil
        # 判断是否可以打开事件
        event_start = check_event_custom_start(x, y)
        # 若不能开启事件
        if !event_start
          # 初始化
          @paths = []
          @steps = 0
          @self_state = 1
          # 若存在未开启事件
          if @event != nil
            trg_x,trg_y = @event.x,@event.y
          end
          # 若目标不为自身则开始寻路
          if trg_x != self.x or trg_y != self.y
            # 添加点击动画
            add_animation if @event.nil?
            # 获得路径
            @paths = Find_Path.new.find_player_short_path(trg_x, trg_y, x, y)
          end
        else
          # 角色面向事件
          self.turn_toward_player(@event) if !@event.nil? and !self.moving?
          @steps = @paths = nil
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 可以通行判定
  #     x : X 坐标
  #     y : Y 坐标
  #--------------------------------------------------------------------------
  def target_passable?(x, y)
    # 获取地图通行表
    passages = $data_tilesets[$game_map.tileset_id].passages
    # 从层按从上到下的顺序调查循环
    for i in [2, 1, 0]
      # 取得元件 ID
      tile_id = $game_map.data[x, y, i]
      # 取得元件 ID 失败
      if tile_id == nil
        # 不能通行
        return false
      # 如果全方向的障碍物的接触被设置的情况下
      elsif passages[tile_id] & 0x0f == 0x0f
        # 不能通行
        return false
      # 这以外的优先度为 0 的情况下
      elsif $game_map.priorities[tile_id] == 0
        # 可以通行
        return true
      end
    end
    # 可以通行
    return true
  end
  #--------------------------------------------------------------------------
  # ● 判断是否可以打开事件
  #--------------------------------------------------------------------------
  def check_event_custom_start(x, y)
    # 循环检查所有事件
    for event in $game_map.events.values
      bitmap = RPG::Cache.character(event.character_name,event.character_hue)
      cw = bitmap.width / 9#event.animation_frame
      ch = bitmap.height / 8#event.direction_frame
      _x = event.screen_x
      _y = event.screen_y
      d = event.direction
      case event.direction_frame
      when 4
        sy = d > 8 ? 2 : d > 7 ? 3 : d > 6 ? 3 : d > 5 ? 2 : d > 3 ? 1 : d > 2 ? 0 : d > 1 ? 0 : d > 0 ? 1 : 5
      when 8
        sy = d > 8 ? 7 : d > 7 ? 3 : d > 6 ? 6 : d > 5 ? 2 : d > 3 ? 1 : d > 2 ? 5 : d > 1 ? 0 : d > 0 ? 4 : 5
      end
      if x >= _x - cw / 2 and x <= _x + cw / 2 and y >= _y - ch and y <= _y and
        bitmap.get_pixel(x - _x + cw / 2 + event.pattern * cw, y - _y + ch + sy * ch).alpha > 0
        for i in 0...event.list.size
          if ["Item", "Npc"].include?(event.list[i].parameters[0])
            way_x = self.x - event.x
            way_y = self.y - event.y
            if way_x.abs + way_y.abs <= 8 and !self.moving?
              # 矫正主角姿势
              self.straighten
              # 角色面向事件
 
              # 开启事件
              event.start
              return true
              self.pattern
            else
              @event = event
              return self.moving? ? true : false
            end
          end
        end
      end
    end
    return false
  end
  #--------------------------------------------------------------------------
  # ● 添加鼠标点击动画
  #--------------------------------------------------------------------------
  def add_animation
    x, y = Mouse.get_mouse_pos
    animation = Sprite.new
    animation.visible = false
    animation.bitmap = Bitmap.new("UI/鼠标效果序列图")
    map_x = x - 10 + $game_map.display_x / 4
    map_y = y - 5 + $game_map.display_y / 4
    animation.src_rect.set(0, 0, 24, 13)
    $鼠标效果.push([animation,0,map_x,map_y])
  end
  #--------------------------------------------------------------------------
  # ● 开始移动
  #--------------------------------------------------------------------------
  def player_move
    # 排除无效情况
    unless moving? or $game_system.map_interpreter.running? or
      @move_route_forcing or $game_temp.message_window_showing
      # 若没有完成路径
      if @steps != nil and @paths != nil and @steps <= @paths.size
        # 判断路径
        case @paths[@steps]
        when 6
          move_right
          @steps += 1
        when 4
          move_left
          @steps += 1
        when 2
          move_down
          @steps += 1
        when 8
          move_up
          @steps += 1
        when 1
          move_lower_left
          @steps += 1
        when 3
          move_lower_right
          @steps += 1
        when 7
          move_upper_left
          @steps += 1
        when 9
          move_upper_right
          @steps += 1
        end
        # 若存在未开启事件
        if @event != nil
          way_x = self.x - @event.x
          way_y = self.y - @event.y
          if way_x.abs + way_y.abs <= 8
            # 角色面向事件
            self.turn_toward_player(@event)
            # 矫正主角姿势
            self.straighten
            # 开启事件
            @event.start
            # 终止路径
            @paths = nil
            return
          end
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 跟随/转向
  #--------------------------------------------------------------------------
  def follow(move = true)
    # 禁止移动的情况下返回
    return if !System.whether_move
    # 选择主角的情况下
    if $select_player
      for i in $鼠标效果
        Picture.dispose(i[0])
      end
      return
    end
    # 鼠标在移动或者转向的情况下
    x, y = Mouse.get_mouse_pos
    # 鼠标在移动中的情况下
    if @mouse_x != x or @mouse_y != y or @display_x != $game_map.display_x or @display_y != $game_map.display_y
      # 添加点击动画
      add_animation if move
      # 获取角色位置
      self_x = self.screen_x
      self_y = self.screen_y
      # 排除无效情况
      unless moving? or $game_system.map_interpreter.running? or
        @move_route_forcing or $game_temp.message_window_showing
        if x > self_x
          if y - self_y > - 0.4 * (x - self_x) and y - self_y < 0.4 * (x - self_x)
            move_right if move
            @direction = 6
          end
          if y - self_y > 0.4 * (x - self_x) and y - self_y < 2.4 * (x - self_x)
            move_lower_right if move
            @direction = 3
          end
          if y - self_y < - 0.4 * (x - self_x) and y - self_y > - 2.4 * (x - self_x)
            move_upper_right if move
            @direction = 9
          end
          if y - self_y > 2.4 * (x - self_x)
            move_down if move
            @direction = 2
          end
          if y - self_y < - 2.4 * (x - self_x)
            move_up if move
            @direction = 8
          end
        end
        if x < self_x
          if y - self_y > - 0.4 * (self_x - x) and y - self_y < 0.4 * (self_x - x)
            move_left if move
            @direction = 4
          end
          if y - self_y > 0.4 * (self_x - x) and y - self_y < 2.4 * (self_x - x)
            move_lower_left if move
            @direction = 1
          end
          if y - self_y < - 0.4 * (self_x - x) and y - self_y > - 2.4 * (self_x - x)
            move_upper_left if move
            @direction = 7
          end
          if y - self_y > 2.4 * (self_x - x)
            move_down if move
            @direction = 2
          end
          if y - self_y < - 2.4 * (self_x - x)
            move_up if move
            @direction = 8
          end
        end
      end
      # 记忆变量
      @mouse_x,@mouse_y = Mouse.get_mouse_pos
      @display_x = $game_map.display_x
      @display_y = $game_map.display_y
    end
  end
end

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


# ■ Game_Player


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


# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。


# 本类的实例请参考 $game_player。


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


 


class Game_Player < Game_Character


  if @self_alias == nil


    alias self_update update


    @self_alias = true


  end


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


  # ● 完整鼠标系统


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


  def update


    # 搜索路径


    seek_path


    # 当持续按下鼠标左键时


    if Mouse.press?(0x01)


      return if !System.whether_move


      @count = 20 if @count.nil?


      @count -= 1


      if @count <= 0


        @self_state = 2


        @count = nil


      end


      follow(true) if @self_state != 2 and @count < 18


    elsif Mouse.trigger?(0x02)


      @self_state = 0


      follow(false)


    else


      @count = 20


    end


    # 移动


    if @self_state == 1


      player_move


    elsif @paths != nil and @self_state == 2


      follow(true)


    end


    # 别名


    self_update


  end


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


  # ● 搜索路径


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


  def seek_path


    # 获取鼠标在画面的坐标


    x, y = Mouse.get_mouse_pos


    # 当按下鼠标左键时


    if Mouse.trigger?(0x01)


      # 禁止移动的情况下返回


      return if !System.whether_move


      # 排除各种无效的情况


      unless $game_system.map_interpreter.running? or 


        @move_route_forcing or $game_temp.message_window_showing


        # 获取目标点


        trg_x = (x + $game_map.display_x / 4) / 32


        trg_y = (y + $game_map.display_y / 4) / 32


        # 目标点不可以通行的情况下返回


        return unless target_passable?(trg_x,trg_y)


        # 初始化未开启事件


        @event = nil


        # 判断是否可以打开事件


        event_start = check_event_custom_start(x, y)


        # 若不能开启事件


        if !event_start


          # 初始化


          @paths = []


          @steps = 0


          @self_state = 1


          # 若存在未开启事件


          if @event != nil


            trg_x,trg_y = @event.x,@event.y


          end


          # 若目标不为自身则开始寻路


          if trg_x != self.x or trg_y != self.y


            # 添加点击动画


            add_animation if @event.nil?


            # 获得路径


            @paths = Find_Path.new.find_player_short_path(trg_x, trg_y, x, y)


          end


        else


          # 角色面向事件


          self.turn_toward_player(@event) if !@event.nil? and !self.moving?


          @steps = @paths = nil


        end


      end


    end


  end


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


  # ● 可以通行判定


  #     x : X 坐标


  #     y : Y 坐标


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


  def target_passable?(x, y)


    # 获取地图通行表


    passages = $data_tilesets[$game_map.tileset_id].passages


    # 从层按从上到下的顺序调查循环


    for i in [2, 1, 0]


      # 取得元件 ID


      tile_id = $game_map.data[x, y, i]


      # 取得元件 ID 失败


      if tile_id == nil


        # 不能通行


        return false


      # 如果全方向的障碍物的接触被设置的情况下


      elsif passages[tile_id] & 0x0f == 0x0f


        # 不能通行


        return false


      # 这以外的优先度为 0 的情况下


      elsif $game_map.priorities[tile_id] == 0


        # 可以通行


        return true


      end


    end


    # 可以通行


    return true


  end


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


  # ● 判断是否可以打开事件


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


  def check_event_custom_start(x, y)


    # 循环检查所有事件


    for event in $game_map.events.values


      bitmap = RPG::Cache.character(event.character_name,event.character_hue)


      cw = bitmap.width / 9#event.animation_frame


      ch = bitmap.height / 8#event.direction_frame


      _x = event.screen_x


      _y = event.screen_y


      d = event.direction


      case event.direction_frame


      when 4


        sy = d > 8 ? 2 : d > 7 ? 3 : d > 6 ? 3 : d > 5 ? 2 : d > 3 ? 1 : d > 2 ? 0 : d > 1 ? 0 : d > 0 ? 1 : 5


      when 8


        sy = d > 8 ? 7 : d > 7 ? 3 : d > 6 ? 6 : d > 5 ? 2 : d > 3 ? 1 : d > 2 ? 5 : d > 1 ? 0 : d > 0 ? 4 : 5


      end


      if x >= _x - cw / 2 and x <= _x + cw / 2 and y >= _y - ch and y <= _y and


        bitmap.get_pixel(x - _x + cw / 2 + event.pattern * cw, y - _y + ch + sy * ch).alpha > 0


        for i in 0...event.list.size


          if ["Item", "Npc"].include?(event.list[i].parameters[0])


            way_x = self.x - event.x


            way_y = self.y - event.y


            if way_x.abs + way_y.abs <= 8 and !self.moving?


              # 矫正主角姿势


              self.straighten


              # 角色面向事件


 


              # 开启事件


              event.start


              return true


              self.pattern


            else


              @event = event


              return self.moving? ? true : false


            end


          end


        end


      end


    end


    return false


  end


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


  # ● 添加鼠标点击动画


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


  def add_animation


    x, y = Mouse.get_mouse_pos


    animation = Sprite.new


    animation.visible = false


    animation.bitmap = Bitmap.new("UI/鼠标效果序列图")


    map_x = x - 10 + $game_map.display_x / 4


    map_y = y - 5 + $game_map.display_y / 4


    animation.src_rect.set(0, 0, 24, 13)


    $鼠标效果.push([animation,0,map_x,map_y])


  end


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


  # ● 开始移动


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


  def player_move


    # 排除无效情况


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


      @move_route_forcing or $game_temp.message_window_showing


      # 若没有完成路径


      if @steps != nil and @paths != nil and @steps <= @paths.size


        # 判断路径


        case @paths[@steps]


        when 6


          move_right


          @steps += 1


        when 4


          move_left


          @steps += 1


        when 2


          move_down


          @steps += 1


        when 8


          move_up


          @steps += 1


        when 1


          move_lower_left


          @steps += 1


        when 3


          move_lower_right


          @steps += 1


        when 7


          move_upper_left


          @steps += 1


        when 9


          move_upper_right


          @steps += 1


        end


        # 若存在未开启事件


        if @event != nil


          way_x = self.x - @event.x


          way_y = self.y - @event.y


          if way_x.abs + way_y.abs <= 8


            # 角色面向事件


            self.turn_toward_player(@event)


            # 矫正主角姿势


            self.straighten


            # 开启事件


            @event.start


            # 终止路径


            @paths = nil


            return


          end


        end


      end


    end


  end


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


  # ● 跟随/转向


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


  def follow(move = true)


    # 禁止移动的情况下返回


    return if !System.whether_move


    # 选择主角的情况下


    if $select_player


      for i in $鼠标效果


        Picture.dispose(i[0])


      end


      return


    end


    # 鼠标在移动或者转向的情况下


    x, y = Mouse.get_mouse_pos


    # 鼠标在移动中的情况下


    if @mouse_x != x or @mouse_y != y or @display_x != $game_map.display_x or @display_y != $game_map.display_y


      # 添加点击动画


      add_animation if move


      # 获取角色位置


      self_x = self.screen_x


      self_y = self.screen_y


      # 排除无效情况


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


        @move_route_forcing or $game_temp.message_window_showing


        if x > self_x


          if y - self_y > - 0.4 * (x - self_x) and y - self_y < 0.4 * (x - self_x)


            move_right if move


            @direction = 6


          end


          if y - self_y > 0.4 * (x - self_x) and y - self_y < 2.4 * (x - self_x)


            move_lower_right if move


            @direction = 3


          end


          if y - self_y < - 0.4 * (x - self_x) and y - self_y > - 2.4 * (x - self_x)


            move_upper_right if move


            @direction = 9


          end


          if y - self_y > 2.4 * (x - self_x)


            move_down if move


            @direction = 2


          end


          if y - self_y < - 2.4 * (x - self_x)


            move_up if move


            @direction = 8


          end


        end


        if x < self_x


          if y - self_y > - 0.4 * (self_x - x) and y - self_y < 0.4 * (self_x - x)


            move_left if move


            @direction = 4


          end


          if y - self_y > 0.4 * (self_x - x) and y - self_y < 2.4 * (self_x - x)


            move_lower_left if move


            @direction = 1


          end


          if y - self_y < - 0.4 * (self_x - x) and y - self_y > - 2.4 * (self_x - x)


            move_upper_left if move


            @direction = 7


          end


          if y - self_y > 2.4 * (self_x - x)


            move_down if move


            @direction = 2


          end


          if y - self_y < - 2.4 * (self_x - x)


            move_up if move


            @direction = 8


          end


        end


      end


      # 记忆变量


      @mouse_x,@mouse_y = Mouse.get_mouse_pos


      @display_x = $game_map.display_x


      @display_y = $game_map.display_y


    end


  end


end

@芯☆淡茹水

myownroc · 发表于 2014-9-7 00:09:25

我签名档有个寻路，不过只是四方向。抽个空帮你整合一下吧。

羁绊的守望者 · 发表于 2014-9-7 21:45:29

http://6rweb.sinaapp.com/articles/3249
心目中的神whbm的神作，看你脚本水平如何能否整合了，A星算法。

jiahui5592986 · 发表于 2014-9-9 22:29:44

myownroc 发表于 2014-9-7 00:09
我签名档有个寻路，不过只是四方向。抽个空帮你整合一下吧。

整合完了木，版主大哥{:2_277:}

jiahui5592986 · 发表于 2014-9-10 12:18:43

本帖最后由 jiahui5592986 于 2014-9-10 12:21 编辑

#==============================================================================
# ■ Find_Path
#------------------------------------------------------------------------------
# 　寻路算法--完整鼠标系统（八方向）专用版
# By whbm
#==============================================================================
class Find_Path
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize
@open_list = []
@close_lise = []
@path = []
end
#--------------------------------------------------------------------------
# ● 开始判定通行
#--------------------------------------------------------------------------
def fp_passable?(x, y, d, tr_x = -2, tr_y = -2)
return false if (tr_x == @unable_xa or tr_x == @unable_xb or tr_y == @unable_ya or tr_y == @unable_yb)
if [2, 4, 6, 8].include?(d)
if $game_player.passable?(x, y, d)
return true
else
return false
end
else
case d
when 1
if ($game_player.passable?(x, y, 4) and
$game_player.passable?(x - 1, y, 2)) or
($game_player.passable?(x, y, 2) and
$game_player.passable?(x, y + 1, 4))
return true
else
return false
end
when 3
if ($game_player.passable?(x, y, 6) and
$game_player.passable?(x + 1, y, 2)) or
($game_player.passable?(x, y, 2) and
$game_player.passable?(x, y + 1, 6))
return true
else
return false
end
when 7
if ($game_player.passable?(x, y, 4) and
$game_player.passable?(x - 1, y, 8)) or
($game_player.passable?(x, y, 8) and
$game_player.passable?(x, y - 1, 4))
return true
else
return false
end
when 9
if ($game_player.passable?(x, y, 6) and
$game_player.passable?(x + 1, y, 8)) or
($game_player.passable?(x, y, 8) and
$game_player.passable?(x, y - 1, 6))
return true
else
return false
end
end
end
end
#--------------------------------------------------------------------------
# ● 开始计算G值
#--------------------------------------------------------------------------
def get_g(now_point)
d = now_point[2]
return 0 if d == 5
father_point = get_father_point(now_point)
g = father_point[3] + ((d == 1 or d == 3 or d == 7 or d == 9) ? 14 : 10)
return g
end
#--------------------------------------------------------------------------
# ● 开始计算H值
#--------------------------------------------------------------------------
def get_h(now_point)
now_x = now_point[0]
now_y = now_point[1]
h = (@trg_x - now_x).abs + (@trg_y - now_y).abs
return h * 10
end
#--------------------------------------------------------------------------
# ● 开始计算F值
#--------------------------------------------------------------------------
def get_f(now_point)
f = now_point[3] + now_point[4]
return f
end
#--------------------------------------------------------------------------
# ● 取已知坐标点
#--------------------------------------------------------------------------
def get_point(x, y)
if @open_list.size != 0
@open_list.each do |point|
if point[0] == x and point[1] == y
return point
break
end
end
end
if @close_list.size != 0
@close_list.each do |point|
if point[0] == x and point[1] == y
return point
break
end
end
end
end
#--------------------------------------------------------------------------
# ● 取已知点的父节点
#--------------------------------------------------------------------------
def get_father_point(now_point)
d = now_point[2]
return now_point if d == 5
x = now_point[0] + ((d == 9 or d == 6 or d == 3) ? 1 : ((d == 7 or d == 4 or d == 1) ? -1 : 0))
y = now_point[1] + ((d == 1 or d == 2 or d == 3) ? 1 : ((d == 7 or d == 8 or d == 9) ? -1 : 0))
return get_point(x, y)
end
#--------------------------------------------------------------------------
# ● 开始建立新节点
#--------------------------------------------------------------------------
def new_point(x, y, d)
point = [x, y, d]
point.push get_g(point)
point.push get_h(point)
point.push get_f(point)
return point
end
#--------------------------------------------------------------------------
# ● 取得角色方向
#--------------------------------------------------------------------------
def get_direction(self_x, self_y, trg_x, trg_y)
if trg_x > self_x
if trg_y - self_y > - 0.4 * ( trg_x - self_x ) and trg_y - self_y < 0.4 * ( trg_x - self_x )
return 6
end
if trg_y - self_y > 0.4 * ( trg_x - self_x ) and trg_y - self_y < 2.4 * ( trg_x - self_x )
return 3
end
if trg_y - self_y < - 0.4 * ( trg_x - self_x ) and trg_y - self_y > - 2.4 * ( trg_x - self_x )
return 9
end
if trg_y - self_y > 2.4 * ( trg_x - self_x )
return 2
end
if trg_y - self_y < - 2.4 * ( trg_x - self_x )
return 8
end
end
if trg_x < self_x
if trg_y - self_y > - 0.4 * ( self_x - trg_x ) and trg_y - self_y < 0.4 * ( self_x - trg_x )
return 4
end
if trg_y - self_y > 0.4 * ( self_x - trg_x ) and trg_y - self_y < 2.4 * ( self_x - trg_x )
return 1
end
if trg_y - self_y < - 0.4 * ( self_x - trg_x ) and trg_y - self_y > - 2.4 * ( self_x - trg_x )
return 7
end
if trg_y - self_y > 2.4 * ( self_x - trg_x )
return 2
end
if trg_y - self_y < - 2.4 * ( self_x - trg_x )
return 8
end
end
end
#--------------------------------------------------------------------------
# ●
#--------------------------------------------------------------------------
def get_d_x_y(x, y, d)
d_x = x + ((d == 9 or d == 6 or d == 3) ? 1 : ((d == 7 or d == 4 or d == 1) ? -1 : 0))
d_y = y + ((d == 1 or d == 2 or d == 3) ? 1 : ((d == 7 or d == 8 or d == 9) ? -1 : 0))
return d_x, d_y
end
#--------------------------------------------------------------------------
# ●
#--------------------------------------------------------------------------
def find_short_path_other(self_x, self_y, trg_x, trg_y, real_self_x, real_self_y, real_trg_x, real_trg_y)
@self_x = self_x
@self_y = self_y
@now_x = self_x
@now_y = self_y
@trg_x = trg_x
@trg_y = trg_y
@path = []
direction = get_direction(real_self_x, real_self_y, real_trg_x, real_trg_y)
@now_trg_x, @now_trg_y = get_d_x_y(@self_x, @self_y, direction)
while fp_passable?(@now_x, @now_y, direction)
@path.push direction
@now_x = @now_trg_x
@now_y = @now_trg_y
@now_trg_x, @now_trg_y = get_d_x_y(@now_x, @now_y, direction)
end
return @path
end
#--------------------------------------------------------------------------
# ● 开始搜索路径
# self_x ：角色 X 坐标 (理论坐标)
# self_y ：角色 Y 坐标 (理论坐标)
# trg_x ：目标 X 坐标 (理论坐标)
# trg_y ：目标 X 坐标 (理论坐标)
# real_self_x ：角色在画面 X 坐标
# real_self_y ：角色在画面 Y 坐标
# real_trg_x ：鼠标在画面 X 坐标
# real_trg_y ：鼠标在画面 Y 坐标
#--------------------------------------------------------------------------
def find_short_path(self_x, self_y, trg_x, trg_y, real_self_x, real_self_y, real_trg_x, real_trg_y)
return find_short_path_other(self_x, self_y, trg_x, trg_y, real_self_x, real_self_y, real_trg_x, real_trg_y) if not
(fp_passable?(trg_x, trg_y + 1, 8) or fp_passable?(trg_x + 1, trg_y, 4) or fp_passable?(trg_x - 1, trg_y, 6) or
fp_passable?(trg_x, trg_y - 1, 2)) and @goal_type != 1
#根据屏幕限定搜索面积..加速
@unable_xa = $game_map.display_x / 128 - 1
@unable_ya = $game_map.display_y / 128 - 1
@unable_xb = $game_map.display_x / 128 + 20
@unable_yb = $game_map.display_y / 128 + 20
@self_x = self_x
@self_y = self_y
@now_x = self_x
@now_y = self_y
@trg_x = trg_x
@trg_y = trg_y
@open_list = []
@close_list = []
#准备搜索
@now_point = new_point(@self_x, @self_y, 5) # 令起始点为当前点
@open_list.push @now_point # 将当前点加入关闭列表
#开始搜索
begin
loop do
check_trg = check_around_point(@now_point)
if check_trg == true
@path = get_path
break
end
@now_point = get_lowest_f_point
if @now_point == [] or @now_point == nil
@path = []
break
end
end
rescue Hangup
retry
end
return @path
end
#--------------------------------------------------------------------------
# ● 寻找角色的最短路径
#--------------------------------------------------------------------------
def find_player_short_path(trg_x, trg_y, real_trg_x, real_trg_y)
self_x = $game_player.x
self_y = $game_player.y
real_self_x = $game_player.screen_x
real_self_y = $game_player.screen_y
return find_short_path(self_x, self_y, trg_x, trg_y, real_self_x, real_self_y, real_trg_x, real_trg_y)
end
#--------------------------------------------------------------------------
# ● 取得最终的路径
#--------------------------------------------------------------------------
def get_path
path = []
now_point = @open_list[@open_list.size - 1]
path.push(10 - now_point[2])
last_point = now_point
loop do
now_point = get_father_point(now_point)
break if now_point[2] == 5
path.push(10 - now_point[2])
end
return path.reverse
end
#--------------------------------------------------------------------------
# ● 开始取得最低F值的点
#--------------------------------------------------------------------------
def get_lowest_f_point
if @open_list == []
return []
end
last_lowest_f_point = @open_list[0]
@open_list.each do |point|
last_lowest_f_point = point if point[5] < last_lowest_f_point[5]
end
return last_lowest_f_point
end
#--------------------------------------------------------------------------
# ● 开始检查已知点的八方节点
#--------------------------------------------------------------------------
def check_around_point(point)
for d in [1, 2, 3, 4, 6, 7, 8, 9]
x = point[0] + ((d == 9 or d == 6 or d == 3) ? 1 : ((d == 7 or d == 4 or d == 1) ? -1 : 0))
y = point[1] + ((d == 1 or d == 2 or d == 3) ? 1 : ((d == 7 or d == 8 or d == 9) ? -1 : 0))
if in_close_list?(x, y) #在关闭列表中
next
elsif in_open_list?(x, y) #在开启列表中
get_new_g_point = new_point(x, y, 10 - d)
get_last_g_point = get_point(x, y)
if get_new_g_point[3] >= get_last_g_point[3]
next
else
#如果改变父节点是新G值更小则确定改变
@open_list[@open_list.index(get_last_g_point)] = get_new_g_point
end
else
if fp_passable?(point[0], point[1], d, x, y)
# 如果不在开启列表中、且不在关闭列表中、且通行则添加它到新八周节点
@open_list.push new_point(x, y, 10 - d)
#如果将目标点添加到了开启列表中就返回true
return true if x == @trg_x and y == @trg_y
return true if @goal_type == 1 and [1, 0, -1].include?(x - @trg_x) and [1, 0, -1].include?(y - @trg_y)
end
end
end
#此刻没有找到目标点并将当前点加入关闭列表并在开启列表中删除
@close_list.push point
@open_list.delete(point)
#此刻没找到目标点并返回false
return false
end
#--------------------------------------------------------------------------
# ● 开始检查谋点是否在开启列表中
#--------------------------------------------------------------------------
def in_open_list?(x, y)
@open_list.each do |point|
return true if point[0] == x and point[1] == y
end
return false
end
#--------------------------------------------------------------------------
# ● 开始检查谋点是否在关闭列表中
#--------------------------------------------------------------------------
def in_close_list?(x, y)
@close_list.each do |point|
return true if point[0] == x and point[1] == y
end
return false
end
end

复制代码

@myownroc

jiahui5592986 · 发表于 2014-9-10 13:14:16

第一个

#==============================================================================
# ■ Game_Character (分割定义 3)
#------------------------------------------------------------------------------
# 　处理角色的类。本类作为 Game_Player 类与 Game_Event
# 类的超级类使用。
#==============================================================================
class Game_Character
#--------------------------------------------------------------------------
# ● 向下移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_down(turn_enabled = true)
# 面向下
if turn_enabled
turn_down
end
# 可以通行的场合
if passable?(@x, @y, 2)
# 面向下
turn_down
# 更新坐标
@y += 1
# 增加步数
increase_steps
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x, @y+1)
end
end
#--------------------------------------------------------------------------
# ● 向左移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_left(turn_enabled = true)
# 面向左
if turn_enabled
turn_left
end
# 可以通行的情况下
if passable?(@x, @y, 4)
# 面向左
turn_left
# 更新坐标
@x -= 1
# 增加步数
increase_steps
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x-1, @y)
end
end
#--------------------------------------------------------------------------
# ● 向右移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_right(turn_enabled = true)
# 面向右
if turn_enabled
turn_right
end
# 可以通行的场合
if passable?(@x, @y, 6)
# 面向右
turn_right
# 更新坐标
@x += 1
# 增加部数
increase_steps
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x+1, @y)
end
end
#--------------------------------------------------------------------------
# ● 向上移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_up(turn_enabled = true)
# 面向上
if turn_enabled
turn_up
end
# 可以通行的情况下
if passable?(@x, @y, 8)
# 面向上
turn_up
# 更新坐标
@y -= 1
# 歩数増加
increase_steps
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x, @y-1)
end
end
#--------------------------------------------------------------------------
# ● 向左下移动
#--------------------------------------------------------------------------
def move_lower_left
# 没有固定面向的场合
unless @direction_fix
# 面向左下
@direction = 1
end
# 下→左、左→下的通道可以通行的情况下
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 2))
# 更新坐标
@x -= 1
@y += 1
# 增加步数
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 向右下移动
#--------------------------------------------------------------------------
def move_lower_right
# 没有固定面向的场合
unless @direction_fix
# 面向右下
@direction = 3
end
# 下→右、右→下的通道可以通行的情况下
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 2))
# 更新坐标
@x += 1
@y += 1
# 增加步数
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 向左上移动
#--------------------------------------------------------------------------
def move_upper_left
# 没有固定面向的场合
unless @direction_fix
# 面向左上
@direction = 7
end
# 上→左、左→上的通道可以通行的情况下
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 8))
# 更新坐标
@x -= 1
@y -= 1
# 增加步数
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 向右上移动
#--------------------------------------------------------------------------
def move_upper_right
# 没有固定面向的场合
unless @direction_fix
# 面向右上
@direction = 9
end
# 上→右、右→上的通道可以通行的情况下
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 8))
# 更新坐标
@x += 1
@y -= 1
# 增加步数
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 随机移动
#--------------------------------------------------------------------------
def move_random
# 行走图方向为4
if self.direction_frame == 4
# 随机移动(四方向)
case rand(4)
when 0 # 向左下移动
move_lower_left
when 1 # 向左上移动
move_upper_left
when 2 # 向右下移动
move_lower_right
when 3 # 向右上移动
move_upper_right
end
else
# 随机移动(八方向)
case rand(8)
when 0 # 向下移动
move_down(false)
when 1 # 向左移动
move_left(false)
when 2 # 向右移动
move_right(false)
when 3 # 向上移动
move_up(false)
when 4 # 向左下移动
move_lower_left
when 5 # 向左上移动
move_upper_left
when 6 # 向右下移动
move_lower_right
when 7 # 向右上移动
move_upper_right
end
end
end
#--------------------------------------------------------------------------
# ● 接近主角
#--------------------------------------------------------------------------
def move_toward_player
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 坐标相等情况下
if sx == 0 and sy == 0
return
end
# 求得差的绝对值
abs_sx = sx.abs
abs_sy = sy.abs
# 横距离与纵距离相等的情况下
if abs_sx == abs_sy
# 随机将边数增加 1
rand(2) == 0 ? abs_sx += 1 : abs_sy += 1
end
# 横侧距离长的情况下
if abs_sx > abs_sy
# 左右方向优先。向主角移动
sx > 0 ? move_left : move_right
if not moving? and sy != 0
sy > 0 ? move_up : move_down
end
# 竖侧距离长的情况下
else
# 上下方向优先。向主角移动
sy > 0 ? move_up : move_down
if not moving? and sx != 0
sx > 0 ? move_left : move_right
end
end
end
#--------------------------------------------------------------------------
# ● 远离主角
#--------------------------------------------------------------------------
def move_away_from_player
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 坐标相等情况下
if sx == 0 and sy == 0
return
end
# 求得差的绝对值
abs_sx = sx.abs
abs_sy = sy.abs
# 横距离与纵距离相等的情况下
if abs_sx == abs_sy
# 随机将边数增加 1
rand(2) == 0 ? abs_sx += 1 : abs_sy += 1
end
# 横侧距离长的情况下
if abs_sx > abs_sy
# 左右方向优先。远离主角移动
sx > 0 ? move_right : move_left
if not moving? and sy != 0
sy > 0 ? move_down : move_up
end
# 竖侧距离长的情况下
else
# 上下方向优先。远离主角移动
sy > 0 ? move_down : move_up
if not moving? and sx != 0
sx > 0 ? move_right : move_left
end
end
end
#--------------------------------------------------------------------------
# ● 前进一步
#--------------------------------------------------------------------------
def move_forward
case @direction
when 2 # 下
move_down(false)
when 4 # 左
move_left(false)
when 6 # 右
move_right(false)
when 8 # 上
move_up(false)
when 1 # 左下
turn_lower_left
when 3 # 右下
turn_lower_right
when 7 # 左上
turn_upper_left
when 9 # 右上
turn_upper_right
end
end
#--------------------------------------------------------------------------
# ● 后退一步
#--------------------------------------------------------------------------
def move_backward
# 记忆朝向固定信息
last_direction_fix = @direction_fix
# 强制固定朝向
@direction_fix = true
# 朝向分支
case @direction
when 2 # 下
move_up(false)
when 4 # 左
move_right(false)
when 6 # 右
move_left(false)
when 8 # 上
move_down(false)
when 1 # 左下
turn_upper_right
when 3 # 右下
turn_upper_left
when 7 # 左上
turn_lower_right
when 9 # 右上
turn_lower_left
end
# 还原朝向固定信息
@direction_fix = last_direction_fix
end
#--------------------------------------------------------------------------
# ● 跳跃
# x_plus : X 坐标增加值
# y_plus : Y 坐标增加值
#--------------------------------------------------------------------------
def jump(x_plus, y_plus)
# 增加值不是 (0,0) 的情况下
if x_plus != 0 or y_plus != 0
# 横侧距离长的情况下
if x_plus.abs > y_plus.abs
# 变更左右方向
x_plus < 0 ? turn_left : turn_right
# 竖侧距离长的情况下
else
# 变更上下方向
y_plus < 0 ? turn_up : turn_down
end
end
# 计算新的坐标
new_x = @x + x_plus
new_y = @y + y_plus
# 增加值为 (0,0) 的情况下、跳跃目标可以通行的场合
if (x_plus == 0 and y_plus == 0) or passable?(new_x, new_y, 0)
# 矫正姿势
straighten
# 更新坐标
@x = new_x
@y = new_y
# 距计算距离
distance = Math.sqrt(x_plus * x_plus + y_plus * y_plus).round
# 设置跳跃记数
@jump_peak = 10 + distance - @move_speed
@jump_count = @jump_peak * 2
# 清除停止记数信息
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向向下
#--------------------------------------------------------------------------
def turn_down
unless @direction_fix
@direction = 2
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向向左
#--------------------------------------------------------------------------
def turn_left
unless @direction_fix
@direction = 4
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向向右
#--------------------------------------------------------------------------
def turn_right
unless @direction_fix
@direction = 6
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向向上
#--------------------------------------------------------------------------
def turn_up
unless @direction_fix
@direction = 8
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向左下
#--------------------------------------------------------------------------
def turn_lower_left
unless @direction_fix
@direction = 1
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向右下
#--------------------------------------------------------------------------
def turn_lower_right
unless @direction_fix
@direction = 3
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向左上
#--------------------------------------------------------------------------
def turn_upper_left
unless @direction_fix
@direction = 7
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向右上
#--------------------------------------------------------------------------
def turn_upper_right
unless @direction_fix
@direction = 9
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 向右旋转 90 度
#--------------------------------------------------------------------------
def turn_right_90
case @direction
when 2
turn_left
when 4
turn_up
when 6
turn_down
when 8
turn_right
end
end
#--------------------------------------------------------------------------
# ● 向左旋转 90 度
#--------------------------------------------------------------------------
def turn_left_90
case @direction
when 2
turn_right
when 4
turn_down
when 6
turn_up
when 8
turn_left
end
end
#--------------------------------------------------------------------------
# ● 旋转 180 度
#--------------------------------------------------------------------------
def turn_180
case @direction
when 2
turn_up
when 4
turn_right
when 6
turn_left
when 8
turn_down
end
end
#--------------------------------------------------------------------------
# ● 从右向左旋转 90 度
#--------------------------------------------------------------------------
def turn_right_or_left_90
if rand(2) == 0
turn_right_90
else
turn_left_90
end
end
#--------------------------------------------------------------------------
# ● 随机变换方向
#--------------------------------------------------------------------------
def turn_random
# 行走图方向为4
if self.direction_frame == 4
case rand(4)
when 0
turn_lower_left
when 1
turn_lower_right
when 2
turn_upper_left
when 3
turn_upper_right
end
else
case rand(8)
when 0
turn_up
when 1
turn_right
when 2
turn_left
when 3
turn_down
when 4
turn_lower_left
when 5
turn_lower_right
when 6
turn_upper_left
when 7
turn_upper_right
end
end
end
#--------------------------------------------------------------------------
# ● 接近主角的方向
#--------------------------------------------------------------------------
def turn_toward_player
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 坐标相等的场合下
if sx == 0 and sy == 0
return
end
# 横侧距离长的情况下
if sx.abs > sy.abs
# 将左右方向变更为朝向主角的方向
sx > 0 ? turn_left : turn_right
# 竖侧距离长的情况下
else
# 将上下方向变更为朝向主角的方向
sy > 0 ? turn_up : turn_down
end
end
#--------------------------------------------------------------------------
# ● 背向主角的方向
#--------------------------------------------------------------------------
def turn_away_from_player
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 坐标相等的场合下
if sx == 0 and sy == 0
return
end
# 横侧距离长的情况下
if sx.abs > sy.abs
# 将左右方向变更为背离主角的方向
sx > 0 ? turn_right : turn_left
# 竖侧距离长的情况下
else
# 将上下方向变更为背离主角的方向
sy > 0 ? turn_down : turn_up
end
end
end

复制代码

第二个

#==============================================================================
# ■ Game_Character (分割定义 3)
#------------------------------------------------------------------------------
# 　处理角色的类。本类作为 Game_Player 类与 Game_Event
# 类的超级类使用。
#==============================================================================
class Game_Character
#--------------------------------------------------------------------------
# ● 向下移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_down(turn_enabled = true)
# 面向下
if turn_enabled
turn_down
end
# 可以通行的场合
if passable?(@x, @y, 2)
# 面向下
turn_down
# 更新坐标
@y += 1
# 增加步数
increase_steps
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x, @y+1)
end
end
#--------------------------------------------------------------------------
# ● 向左移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_left(turn_enabled = true)
# 面向左
if turn_enabled
turn_left
end
# 可以通行的情况下
if passable?(@x, @y, 4)
# 面向左
turn_left
# 更新坐标
@x -= 1
# 增加步数
increase_steps
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x-1, @y)
end
end
#--------------------------------------------------------------------------
# ● 向右移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_right(turn_enabled = true)
# 面向右
if turn_enabled
turn_right
end
# 可以通行的场合
if passable?(@x, @y, 6)
# 面向右
turn_right
# 更新坐标
@x += 1
# 增加部数
increase_steps
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x+1, @y)
end
end
#--------------------------------------------------------------------------
# ● 向上移动
# turn_enabled : 本场地位置更改许可标志
#--------------------------------------------------------------------------
def move_up(turn_enabled = true)
# 面向上
if turn_enabled
turn_up
end
# 可以通行的情况下
if passable?(@x, @y, 8)
# 面向上
turn_up
# 更新坐标
@y -= 1
# 歩数増加
increase_steps
# 不能通行的情况下
else
# 接触事件的启动判定
check_event_trigger_touch(@x, @y-1)
end
end
#--------------------------------------------------------------------------
# ● 向左下移动
#--------------------------------------------------------------------------
def move_lower_left
# 没有固定面向的场合
unless @direction_fix
# 朝向是右的情况下适合的面是左面、朝向是上的情况下适合的面是下面
@direction = 1
end
# 下→左、左→下的通道可以通行的情况下
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 2))
# 更新坐标
@x -= 1
@y += 1
# 增加步数
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 向右下移动
#--------------------------------------------------------------------------
def move_lower_right
# 没有固定面向的场合
unless @direction_fix
# 朝向是右的情况下适合的面是左面、朝向是上的情况下适合的面是下面
@direction = 3
end
# 下→右、右→下的通道可以通行的情况下
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 2))
# 更新坐标
@x += 1
@y += 1
# 增加步数
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 向左上移动
#--------------------------------------------------------------------------
def move_upper_left
# 没有固定面向的场合
unless @direction_fix
# 朝向是右的情况下适合的面是左面、朝向是上的情况下适合的面是下面
@direction = 7
end
# 上→左、左→上的通道可以通行的情况下
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 8))
# 更新坐标
@x -= 1
@y -= 1
# 增加步数
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 向右上移动
#--------------------------------------------------------------------------
def move_upper_right
# 没有固定面向的场合
unless @direction_fix
# 朝向是右的情况下适合的面是左面、朝向是上的情况下适合的面是下面
@direction = 9
end
# 上→右、右→上的通道可以通行的情况下
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 8))
# 更新坐标
@x += 1
@y -= 1
# 增加步数
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 随机移动(八方向)
#--------------------------------------------------------------------------
def move_random
# 行走图方向为4
if self.direction_frame == 4
# 随机移动(四方向)
case rand(4)
when 0 # 向左下移动
move_lower_left
when 1 # 向左上移动
move_upper_left
when 2 # 向右下移动
move_lower_right
when 3 # 向右上移动
move_upper_right
end
else
# 随机移动(八方向)
case rand(8)
when 0 # 向下移动
move_down(false)
when 1 # 向左移动
move_left(false)
when 2 # 向右移动
move_right(false)
when 3 # 向上移动
move_up(false)
when 4 # 向左下移动
move_lower_left
when 5 # 向左上移动
move_upper_left
when 6 # 向右下移动
move_lower_right
when 7 # 向右上移动
move_upper_right
end
end
end
#--------------------------------------------------------------------------
# ● 接近主角
#--------------------------------------------------------------------------
def move_toward_player
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 坐标相等情况下
if sx.abs == 0 and sy.abs == 1
return
end
if sx.abs == 1 and sy.abs == 0
return
end
if sx.abs == 1 and sy.abs == 1
return
end
# 行走图方向为4
if self.direction_frame == 4
# 以角色为中心，事件在第四象限
if sx > 0 and sy > 0
# 向左上移动
move_upper_left
# 以角色为中心，事件在第一象限
elsif sx > 0 and sy < 0
# 向左下移动
move_lower_left
# 以角色为中心，事件在第三象限
elsif sx < 0 and sy > 0
# 向右上移动
move_upper_right
# 以角色为中心，事件在第二象限
elsif sx < 0 and sy < 0
# 向右下移动
move_lower_right
end
else
# 以角色为中心，事件在第四象限
if sx > 0 and sy > 0
# 向左上移动
move_upper_left
# 以角色为中心，事件在第一象限
elsif sx > 0 and sy < 0
# 向左下移动
move_lower_left
# 以角色为中心，事件在第三象限
elsif sx < 0 and sy > 0
# 向右上移动
move_upper_right
# 以角色为中心，事件在第二象限
elsif sx < 0 and sy < 0
# 向右下移动
move_lower_right
# 以角色为中心，Y 轴相等 X 轴大于 0
elsif sx > 0 and sy == 0
# 向左移动
move_left(false)
# 以角色为中心，Y 轴相等 X 轴小于 0
elsif sx < 0 and sy == 0
# 向右移动
move_right(false)
# 以角色为中心，X 轴相等 Y 轴大于 0
elsif sx == 0 and sy > 0
# 向上移动
move_up(false)
# 以角色为中心，X 轴相等 Y 轴小于 0
elsif sx == 0 and sy < 0
# 向下移动
move_down(false)
end
end
end
#--------------------------------------------------------------------------
# ● 远离主角
#--------------------------------------------------------------------------
def move_away_from_player
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 坐标相等情况下
if sx == 0 and sy == 0
return
end
# 行走图方向为4
if self.direction_frame == 4
# 以角色为中心，事件在第四象限
if sx > 0 and sy > 0
# 向右下移动
move_lower_right
# 以角色为中心，事件在第一象限
elsif sx > 0 and sy < 0
# 向右上移动
move_upper_right
# 以角色为中心，事件在第三象限
elsif sx < 0 and sy > 0
# 向左下移动
move_lower_left
# 以角色为中心，事件在第二象限
elsif sx < 0 and sy < 0
# 向左上移动
move_upper_left
end
else
# 以角色为中心，事件在第四象限
if sx > 0 and sy > 0
# 向右下移动
move_lower_right
# 以角色为中心，事件在第一象限
elsif sx > 0 and sy < 0
# 向右上移动
move_upper_right
# 以角色为中心，事件在第三象限
elsif sx < 0 and sy > 0
# 向左下移动
move_lower_left
# 以角色为中心，事件在第二象限
elsif sx < 0 and sy < 0
# 向左上移动
move_upper_left
# 以角色为中心，Y 轴相等 X 轴大于 0
elsif sx > 0 and sy == 0
# 向右移动
move_right(false)
# 以角色为中心，Y 轴相等 X 轴小于 0
elsif sx < 0 and sy == 0
# 向左移动
move_left(false)
# 以角色为中心，X 轴相等 Y 轴大于 0
elsif sx == 0 and sy > 0
# 向下移动
move_down(false)
# 以角色为中心，X 轴相等 Y 轴小于 0
elsif sx == 0 and sy < 0
# 向上移动
move_up(false)
end
end
end
#--------------------------------------------------------------------------
# ● 前进一步
#--------------------------------------------------------------------------
def move_forward
case @direction
when 2 # 下
move_down(false)
when 4 # 左
move_left(false)
when 6 # 右
move_right(false)
when 8 # 上
move_up(false)
when 1 # 左下
turn_lower_left
when 3 # 右下
turn_lower_right
when 7 # 左上
turn_upper_left
when 9 # 右上
turn_upper_right
end
end
#--------------------------------------------------------------------------
# ● 后退一步
#--------------------------------------------------------------------------
def move_backward
# 记忆朝向固定信息
last_direction_fix = @direction_fix
# 强制固定朝向
@direction_fix = true
# 朝向分支
case @direction
when 2 # 下
move_up(false)
when 4 # 左
move_right(false)
when 6 # 右
move_left(false)
when 8 # 上
move_down(false)
when 1 # 左下
turn_upper_right
when 3 # 右下
turn_upper_left
when 7 # 左上
turn_lower_right
when 9 # 右上
turn_lower_left
end
# 还原朝向固定信息
@direction_fix = last_direction_fix
end
#--------------------------------------------------------------------------
# ● 跳跃
# x_plus : X 坐标增加值
# y_plus : Y 坐标增加值
#--------------------------------------------------------------------------
def jump(x_plus, y_plus)
# 增加值不是 (0,0) 的情况下
if x_plus != 0 or y_plus != 0
# 横侧距离长的情况下
if x_plus.abs > y_plus.abs
# 变更左右方向
x_plus < 0 ? turn_left : turn_right
# 竖侧距离长的情况下
else
# 变更上下方向
y_plus < 0 ? turn_up : turn_down
end
end
# 计算新的坐标
new_x = @x + x_plus
new_y = @y + y_plus
# 增加值为 (0,0) 的情况下、跳跃目标可以通行的场合
if (x_plus == 0 and y_plus == 0) or passable?(new_x, new_y, 0)
# 矫正姿势
straighten
# 更新坐标
@x = new_x
@y = new_y
# 距计算距离
distance = Math.sqrt(x_plus * x_plus + y_plus * y_plus).round
# 设置跳跃记数
@jump_peak = 10 + distance - @move_speed
@jump_count = @jump_peak * 2
# 清除停止记数信息
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向向下
#--------------------------------------------------------------------------
def turn_down
unless @direction_fix
@direction = 2
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向向左
#--------------------------------------------------------------------------
def turn_left
unless @direction_fix
@direction = 4
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向向右
#--------------------------------------------------------------------------
def turn_right
unless @direction_fix
@direction = 6
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向向上
#--------------------------------------------------------------------------
def turn_up
unless @direction_fix
@direction = 8
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向左下
#--------------------------------------------------------------------------
def turn_lower_left
unless @direction_fix
@direction = 1
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向右下
#--------------------------------------------------------------------------
def turn_lower_right
unless @direction_fix
@direction = 3
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向左上
#--------------------------------------------------------------------------
def turn_upper_left
unless @direction_fix
@direction = 7
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 面向右上
#--------------------------------------------------------------------------
def turn_upper_right
unless @direction_fix
@direction = 9
@stop_count = 0
end
end
#--------------------------------------------------------------------------
# ● 向右旋转 90 度
#--------------------------------------------------------------------------
def turn_right_90
case @direction
when 2
turn_left
when 4
turn_up
when 6
turn_down
when 8
turn_right
end
end
#--------------------------------------------------------------------------
# ● 向左旋转 90 度
#--------------------------------------------------------------------------
def turn_left_90
case @direction
when 2
turn_right
when 4
turn_down
when 6
turn_up
when 8
turn_left
end
end
#--------------------------------------------------------------------------
# ● 旋转 180 度
#--------------------------------------------------------------------------
def turn_180
case @direction
when 2
turn_up
when 4
turn_right
when 6
turn_left
when 8
turn_down
end
end
#--------------------------------------------------------------------------
# ● 向右旋转 90 度
#--------------------------------------------------------------------------
def turn_right_90
case @direction
when 2
turn_left
when 4
turn_up
when 6
turn_down
when 8
turn_right
when 1
turn_upper_left
when 3
turn_lower_left
when 7
turn_upper_right
when 9
turn_lower_right
end
end
#--------------------------------------------------------------------------
# ● 向左旋转 90 度
#--------------------------------------------------------------------------
def turn_left_90
case @direction
when 2
turn_right
when 4
turn_down
when 6
turn_up
when 8
turn_left
when 1
turn_lower_right
when 3
turn_upper_right
when 7
turn_lower_left
when 9
turn_upper_left
end
end
#--------------------------------------------------------------------------
# ● 旋转 180 度
#--------------------------------------------------------------------------
def turn_180
case @direction
when 2
turn_up
when 4
turn_right
when 6
turn_left
when 8
turn_down
when 1
turn_upper_right
when 3
turn_upper_left
when 7
turn_lower_right
when 9
turn_lower_left
end
end
#--------------------------------------------------------------------------
# ● 从右向左旋转 90 度
#--------------------------------------------------------------------------
def turn_right_or_left_90
if rand(2) == 0
turn_right_90
else
turn_left_90
end
end
#--------------------------------------------------------------------------
# ● 随机变换方向
#--------------------------------------------------------------------------
def turn_random
# 行走图方向为4
if self.direction_frame == 4
case rand(4)
when 0
turn_lower_left
when 1
turn_lower_right
when 2
turn_upper_left
when 3
turn_upper_right
end
else
case rand(8)
when 0
turn_up
when 1
turn_right
when 2
turn_left
when 3
turn_down
when 4
turn_lower_left
when 5
turn_lower_right
when 6
turn_upper_left
when 7
turn_upper_right
end
end
end
#--------------------------------------------------------------------------
# ● 面向主角的方向
#--------------------------------------------------------------------------
def turn_toward_player(event=nil)
# 事件的情况下
if event.nil?
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
else
# 求得与事件的坐标差
sx = @x - event.x
sy = @y - event.y
end
# 坐标相等的场合下
if sx == 0 and sy == 0
return
end
# 行走图方向为4
if self.direction_frame == 4
# 以角色为中心，事件在第四象限
if sx > 0 and sy > 0
# 面向左上
turn_upper_left
# 以角色为中心，事件在第一象限
elsif sx > 0 and sy < 0
# 面向左下
turn_lower_left
# 以角色为中心，事件在第三象限
elsif sx < 0 and sy > 0
# 面向右上
turn_upper_right
# 以角色为中心，事件在第二象限
elsif sx < 0 and sy < 0
# 面向右下
turn_lower_right
end
else
# 以角色为中心，事件在第四象限
if sx > 0 and sy > 0
if sx.abs > sy.abs + 4
# 面向左
turn_left
return
end
if sx.abs + 4 < sy.abs
# 面向上
turn_up
return
end
# 面向左上
turn_upper_left
# 以角色为中心，事件在第一象限
elsif sx > 0 and sy < 0
if sx.abs > sy.abs + 4
# 面向左
turn_left
return
end
if sx.abs + 4 < sy.abs
# 面向下
turn_down
return
end
# 面向左下
turn_lower_left
# 以角色为中心，事件在第三象限
elsif sx < 0 and sy > 0
if sx.abs > sy.abs + 4
# 面向右
turn_right
return
end
if sx.abs + 4 < sy.abs
# 面向上
turn_up
return
end
# 面向右上
turn_upper_right
# 以角色为中心，事件在第二象限
elsif sx < 0 and sy < 0
if sx.abs > sy.abs + 4
# 面向右
turn_right
return
end
if sx.abs + 4 < sy.abs
# 面向下
turn_down
return
end
# 面向右下
turn_lower_right
# 以角色为中心，Y 轴相等 X 轴大于 0
elsif sx > 0 and sy == 0
# 面向左
turn_left
# 以角色为中心，Y 轴相等 X 轴小于 0
elsif sx < 0 and sy == 0
# 面向右
turn_right
# 以角色为中心，X 轴相等 Y 轴大于 0
elsif sx == 0 and sy > 0
# 面向上
turn_up
# 以角色为中心，X 轴相等 Y 轴小于 0
elsif sx == 0 and sy < 0
# 面向下
turn_down
end
end
end
#--------------------------------------------------------------------------
# ● 背向主角的方向
#--------------------------------------------------------------------------
def turn_away_from_player
# 求得与主角的坐标差
sx = @x - $game_player.x
sy = @y - $game_player.y
# 坐标相等的场合下
if sx == 0 and sy == 0
return
end
# 行走图方向为4
if self.direction_frame == 4
# 以角色为中心，事件在第四象限
if sx > 0 and sy > 0
# 面向右下
turn_lower_right
# 以角色为中心，事件在第一象限
elsif sx > 0 and sy < 0
# 面向右上
turn_upper_right
# 以角色为中心，事件在第三象限
elsif sx < 0 and sy > 0
# 面向左下
turn_lower_left
# 以角色为中心，事件在第二象限
elsif sx < 0 and sy < 0
# 面向左上
turn_upper_left
end
else
# 以角色为中心，事件在第四象限
if sx > 0 and sy > 0
# 面向右下
turn_lower_right
# 以角色为中心，事件在第一象限
elsif sx > 0 and sy < 0
# 面向右上
turn_upper_right
# 以角色为中心，事件在第三象限
elsif sx < 0 and sy > 0
# 面向左下
turn_lower_left
# 以角色为中心，事件在第二象限
elsif sx < 0 and sy < 0
# 面向左上
turn_upper_left
# 以角色为中心，Y 轴相等 X 轴大于 0
elsif sx > 0 and sy == 0
# 面向右
turn_right
# 以角色为中心，Y 轴相等 X 轴小于 0
elsif sx < 0 and sy == 0
# 面向左
turn_left
# 以角色为中心，X 轴相等 Y 轴大于 0
elsif sx == 0 and sy > 0
# 面向下
turn_down
# 以角色为中心，X 轴相等 Y 轴小于 0
elsif sx == 0 and sy < 0
# 面向上
turn_up
end
end
end
end

复制代码

@myownroc

jiahui5592986 · 发表于 2014-9-17 21:23:36

@myownroc来吧，。，

jiahui5592986 · 发表于 2014-9-17 21:27:41

@myownroc 点评回复不了

myownroc · 发表于 2014-9-17 21:50:28

你还是上工程吧=_=

jiahui5592986 · 发表于 2014-9-17 21:53:55

myownroc 发表于 2014-9-17 21:50
你还是上工程吧=_=

工程太大，需要哪方面脚本，大哥尽管说，我贴上来

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

[已经过期] 寻路遇到障碍直接绕过继续行走

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

点评

点评

点评

点评

贵宾