求一个寻路脚本

寒冷的企鹅

就是可以让事件自动寻路去一个地方【坐标】
然后再执行事件的
我找了好多，不是不知道怎么用，他们总是整合再一起，不知道怎么回事，调用之后我就是用不了，（我是脚本渣）例如：https://rpg.blue/forum.php?mod=viewthread&tid=343005
或者无法到达坐标再执行事件的，例如：https://rpg.blue/forum.php?mod=viewthread&tid=246449
最好可以有个可以接触主角再执行另一个事件的功能

Nil2018

[pre lang="ruby"]#-------------------------------------------------------------------------------
# * [ACE] Khas 寻路
#-------------------------------------------------------------------------------
# * By Khas Arcthunder - arcthunder.site40.net
# * Version: 1.0 EN
# * Released on: 28/02/2012
#
#-------------------------------------------------------------------------------
# * Terms of Use
#-------------------------------------------------------------------------------
# When using any Khas script, you agree with the following terms:
# 1. You must give credit to Khas;
# 2. All Khas scripts are licensed under a Creative Commons license;
# 3. All Khas scripts are for non-commercial projects. If you need some script
#    for your commercial project (I accept requests for this type of project),
#    send an email to nilokruch@live.com with your request;
# 4. All Khas scripts are for personal use, you can use or edit for your own
#    project, but you are not allowed to post any modified version;
# 5. You can’t give credit to yourself for posting any Khas script;
# 6. If you want to share a Khas script, don’t post the script or the direct
#    download link, please redirect the user to arcthunder.site40.net
# 7. You are not allowed to convert any of Khas scripts to another engine,
#    such converting a RGSS3 script to RGSS2 or something of that nature.
#
# Check all terms at http://arcthunder.site40.net/terms/
#
#-------------------------------------------------------------------------------
# * Features
#-------------------------------------------------------------------------------
# Smart pathfinding
# Fast Algorithm
# Easy to use
# Plug'n'Play
# Game_Character objects compatible
# Log tool
#
#-------------------------------------------------------------------------------
# * 使用方法
#-------------------------------------------------------------------------------
# 使用脚本
# find_path(id,x,y)
#
# id => -1玩家, 0本事件，x事件ID
#
# find_path(id,x,y,true)
# 等待直到结束
#
# 如果你要启用寻路日志的功能, 请将"Log"设定为true.
#
#-------------------------------------------------------------------------------
# * Register
#-------------------------------------------------------------------------------
$khas_awesome = [] if $khas_awesome.nil?
$khas_awesome << ["Pathfinder",1.0]
#-------------------------------------------------------------------------------
# * Script
#-------------------------------------------------------------------------------
class Game_Interpreter
  def find_path(char,fx,fy,wait=false)
    $game_map.refresh if $game_map.need_refresh
    character = get_character(char)
    return if character.nil?
    return unless Path_Core.runnable?(character,fx,fy)
    path = Path_Core.run(character,fx,fy)
    return if path.nil?
    route = RPG::MoveRoute.new
    route.repeat = false
    route.wait = wait
    route.skippable = true
    route.list = []
    path << 0x00
    path.each { |code| route.list << RPG::MoveCommand.new(code)}
    character.force_move_route(route)
    @moving_character = character if wait
  end
end
class Path
  attr_accessor :axis
  attr_accessor :from
  attr_accessor :cost
  attr_accessor :dir
  def initialize(x,y,f,c,d)
    @axis = [x,y]
    @from = f
    @cost = c
    @dir = d
  end
end
module Path_Core
  Log = false #是否启用寻路日志
  Directions = {[1,0] => 3,[-1,0] => 2,[0,-1] => 4,[0,1] => 1}
  def self.runnable?(char,x,y)
    return false unless $game_map.valid?(x,y)
    return false if char.collide_with_characters?(x,y)
    $game_map.all_tiles(x,y).each { |id|
    flag = $game_map.tileset.flags[id]
    next if flag & 0x10 != 0
    return flag & 0x0f != 0x0f}
    return false
  end
  def self.run(char,fx,fy)
    return nil if char.x == fx && char.y == fy
    st = Time.now
    @char = char
    @start = Path.new(@char.x,@char.y,nil,0,nil)
    @finish = Path.new(fx,fy,nil,0,nil)
    @list = []
    @queue = []
    @preference = ((@char.x-fx).abs > (@char.y-fy).abs ? 0x0186aa : 0x01d)
    class << @list
      def new_path?(path_class)
        for path in self
          return false if path.axis == path_class.axis
        end
        return true
      end
    end
    class << @queue
      def new_path?(path_class)
        for path in self
          return false if path.axis == path_class.axis
        end
        return true
      end
    end
    if @preference & 0x02 == 0x02
      @queue << Path.new(@char.x,@char.y+1,@start,1,[0,1]) if @char.passable?(@char.x,@char.y,2)
      @queue << Path.new(@char.x,@char.y-1,@start,1,[0,-1]) if @char.passable?(@char.x,@char.y,8)
      @queue << Path.new(@char.x+1,@char.y,@start,1,[1,0]) if @char.passable?(@char.x,@char.y,6)
      @queue << Path.new(@char.x-1,@char.y,@start,1,[-1,0]) if @char.passable?(@char.x,@char.y,4)
      @list << @start
      loop do
        break if @queue.empty?
        @cpath = @queue[0]
        if @cpath.axis == @finish.axis
          @finish.cost = @cpath.cost
          @finish.from = @cpath
          break
        end
        @list << @cpath
        @path_array = []
        p1 = Path.new(@cpath.axis[0]+1,@cpath.axis[1],@cpath,@cpath.cost+1,[1,0])
        p2 = Path.new(@cpath.axis[0]-1,@cpath.axis[1],@cpath,@cpath.cost+1,[-1,0])
        p3 = Path.new(@cpath.axis[0],@cpath.axis[1]+1,@cpath,@cpath.cost+1,[0,1])
        p4 = Path.new(@cpath.axis[0],@cpath.axis[1]-1,@cpath,@cpath.cost+1,[0,-1])
        @path_array << p3 if @char.passable?(@cpath.axis[0],@cpath.axis[1],2) && @list.new_path?(p3) && @queue.new_path?(p3)
        @path_array << p4 if @char.passable?(@cpath.axis[0],@cpath.axis[1],8) && @list.new_path?(p4) && @queue.new_path?(p4)
        @path_array << p1 if @char.passable?(@cpath.axis[0],@cpath.axis[1],6) && @list.new_path?(p1) && @queue.new_path?(p1)
        @path_array << p2 if @char.passable?(@cpath.axis[0],@cpath.axis[1],4) && @list.new_path?(p2) && @queue.new_path?(p2)
        @path_array.each { |path| @queue << path }
        @queue.delete(@cpath)
      end
    else
      @queue << Path.new(@char.x+1,@char.y,@start,1,[1,0]) if @char.passable?(@char.x,@char.y,6)
      @queue << Path.new(@char.x-1,@char.y,@start,1,[-1,0]) if @char.passable?(@char.x,@char.y,4)
      @queue << Path.new(@char.x,@char.y+1,@start,1,[0,1]) if @char.passable?(@char.x,@char.y,2)
      @queue << Path.new(@char.x,@char.y-1,@start,1,[0,-1]) if @char.passable?(@char.x,@char.y,8)
      @list << @start
      loop do
        break if @queue.empty?
        @cpath = @queue[0]
        if @cpath.axis == @finish.axis
          @finish.cost = @cpath.cost
          @finish.from = @cpath
          break
        end
        @list << @cpath
        @path_array = []
        p1 = Path.new(@cpath.axis[0]+1,@cpath.axis[1],@cpath,@cpath.cost+1,[1,0])
        p2 = Path.new(@cpath.axis[0]-1,@cpath.axis[1],@cpath,@cpath.cost+1,[-1,0])
        p3 = Path.new(@cpath.axis[0],@cpath.axis[1]+1,@cpath,@cpath.cost+1,[0,1])
        p4 = Path.new(@cpath.axis[0],@cpath.axis[1]-1,@cpath,@cpath.cost+1,[0,-1])
        @path_array << p1 if @char.passable?(@cpath.axis[0],@cpath.axis[1],6) && @list.new_path?(p1) && @queue.new_path?(p1)
        @path_array << p2 if @char.passable?(@cpath.axis[0],@cpath.axis[1],4) && @list.new_path?(p2) && @queue.new_path?(p2)
        @path_array << p3 if @char.passable?(@cpath.axis[0],@cpath.axis[1],2) && @list.new_path?(p3) && @queue.new_path?(p3)
        @path_array << p4 if @char.passable?(@cpath.axis[0],@cpath.axis[1],8) && @list.new_path?(p4) && @queue.new_path?(p4)
        @path_array.each { |path| @queue << path }
        @queue.delete(@cpath)
      end
    end
    if @finish.from.nil?
      return nil
    else
      steps = [@finish.from]
      loop do
        cr = steps[-1]
        if cr.cost == 1
          @result = []
          steps.each { |s| @result << Directions[s.dir]}
          break
        else
          steps << cr.from
        end
      end
      self.print_log(Time.now-st) if Log
      return @result.reverse
    end
  end
  def self.print_log(time)
    print "\n--------------------\n"
    print "Khas Pathfinder\n"
    print "Time: #{time}\n"
    print "Size: #{@result.size}\n"
    print "--------------------\n"
  end
end[/pre]
此外还有一个（看到第21行）
[pre lang="ruby"]## 事件效果 v3.1 ##
# 事件x、y坐标微调, 事件图像缩放、转动、改变色调、镜像、闪烁等功能
#
# 使用方法: 在事件的移动路线里使用脚本
#          offset(x,y)             事件图像横向偏移x像素，纵向偏移y像素
#
#          set_zoom(数值)          缩放大小
#
#          rotate(数值)           转动角度，可以是 -360 至 360
#
#          blend(颜色)            改变颜色，"颜色"替换为颜色对象
#                                   -> Color.new(red,blue,green,不透明度)
#
#          mirrored                左右镜像
#
#          flash(颜色,时间)       闪烁效果， "颜色"替换为颜色对象
#                                 时间是闪烁时间
#
#          slide(x, y)             事件横向滑动x像素,纵向滑动y像素
#
#          waypoint(x,y)           事件朝指定坐标移动，等待至移动结束
#
#          moveto(x,y)             事件瞬间传送到指定坐标.（虽然用事件指令也可以做到）
#
#         新指令:
#          @shakechar 改变为偏移效果
#          @zoom 改变为 set_zoom
#            (旧指令仍然有效)
#
#          fadein              一段时间（默认是10帧）事件图像不透明度淡入至 255
#          fadein(时间)        
#
#          fadeout             一段时间（默认是10帧）事件图像不透明度淡出至 0
#          fadeout(时间)        
#
#          shake               一段时间（默认是30帧）事件图像上下震动
#
#          shake(时间)        
#          random                  将事件移动到随机当前地图中的随机位置，可以设
#          random(宽度,高度)       定最大范围限制.
#
#          random_region(id)       将事件移动到随机当前地图中某区域的随机位置，
#          random_region(id,w,h)   可以设定最大范围限制.
#
#      self_switch("字母",true/false)   开启或关闭事件的独立开关. 字母替换为
#                                       "A" 至 "D".
#
#          balloon(id)            事件显示指定心情
#
#                                 
#------#
#-- Script by: V.M of D.T
#
#- Questions or comments can be:
#    posted on the thread for the script
#    given by email: sumptuaryspade@live.ca
#    provided on facebook: http://www.facebook.com/DaimoniousTailsGames
#
#- Free to use in any project with credit given,
#-- donations always welcome via paypal!

class Game_CharacterBase
  alias shake_init_public_members init_public_members
  alias shake_update update

  attr_accessor   :zoom
  attr_accessor   :flash_on
  attr_accessor   :flash_color
  attr_accessor   :flash_time
  attr_accessor   :angle
  attr_accessor   :need_rotate
  attr_accessor   :mirror
  attr_accessor   :blend_color

  def init_public_members
    shake_init_public_members
    reset_event_details
  end
  def reset_event_details
    @shakechar = [false, 0, 0]
    @zoom = 1
    @flash_on = false
    @flash_color = Color.new(0,0,0,0)
    @flash_duration = 0
    @angle = 0
    @total_angle = 0
    @need_rotate = false
    @mirror = false
    @blend_color = Color.new(0,0,0,0)
    @fade = @opacity
    @fade_time = 0
    @shake_time = 0
    @shake_direction = 0
  end
  def offset(x,y); @shakechar = [true, x, y]; end
  def reset
    reset_event_details
    rotate(@total_angle*-1)
  end
  def set_zoom(size); @zoom = size; end
  def flash(color,duration)
    @flash_color = color
    @flash_time = duration
    @flash_on = true
  end
  def rotate(angle)
    @total_angle += angle
    @angle = angle
    @need_rotate = true
  end
  def rotateoff; @need_rotate = false; end
  def flashoff; @flash_on = false; end
  def mirrored; @mirror == true ? @mirror = false : @mirror = true; end
  def blend(color); @blend_color = color; end
  def screen_x
    if @shakechar[0] == false || @shakechar[1] == nil then
      $game_map.adjust_x(@real_x) * 32 + 16 else
      $game_map.adjust_x(@real_x) * 32 + 16 + @shakechar[1] end
  end
  def screen_y
    if @shakechar[0] == false || @shakechar[2] == nil then
      $game_map.adjust_y(@real_y) * 32 + 32 - shift_y - jump_height else
      $game_map.adjust_y(@real_y) * 32 + 32 - shift_y - jump_height + @shakechar[2] end
  end
  def slide(x, y)
    @next_x = x + @shakechar[1]
    @next_y = y + @shakechar[2]
    @step_anime = true
    @shakechar[0] = true
    @sliding = true
  end
  def fadein(time = 10)
    @fade_time = time
    @fade = 255
  end
  def fadeout(time = 10)
    @fade_time = time
    @fade = 0
  end
  def shake(time = 30)
    @shakechar[0] = true
    @shake_time = time
  end
  def random(rect_x = 250, rect_y = 250)
    tiles = []
    tiles = tile_array(rect_x,rect_y)
    tiles = tiles.compact
    return if tiles.empty?
    tile = rand(tiles.size)
    moveto(tiles[tile][0],tiles[tile][1])
  end
  def random_region(id, rect_x = 250, rect_y = 250)
    tiles = tile_array(rect_x,rect_y)
    tiles.each_index do |i|
      next if tiles.nil?
      erase = false
      erase = true unless $game_map.region_id(tiles[0], tiles[1]) == id
      tiles = nil if erase
    end
    tiles = tiles.compact
    return if tiles.empty?
    tile = rand(tiles.size)
    moveto(tiles[tile][0],tiles[tile][1])
  end
  def tile_array(rect_x,rect_y)
    tiles = [];nx = 0;ny = 0
    ($game_map.width * $game_map.height).times do |i|
      tiles.push([nx,ny])
      nx += 1
      if nx == $game_map.width
        nx = 0
        ny += 1
      end
    end
    tiles.each_index do |i|
      erase = false
      erase = true if tiles[0] == $game_player.x && tiles[1] == $game_player.y
      erase = true if tiles[0] == x && tiles[1] == y
      erase = true if tiles[0] > x + rect_x || tiles[0] < x - rect_x
      erase = true if tiles[1] > y + rect_y || tiles[1] < y - rect_y
      erase = true if !$game_map.check_passage(tiles[0], tiles[1], 0x0f)
      tiles = nil if erase
    end
    return tiles
  end
  def self_switch(symbol, boolean)
    return if !self.is_a?(Game_Event)
    key = [$game_map.map_id, self.event.id, symbol]
    $game_self_switches[key] = boolean
  end
  def balloon(id)
    @balloon_id = id
  end
  def update
    shake_update
    update_sliding if @sliding
    update_fading if @opacity != @fade && @fade_time > 0
    update_shake if @shake_time > 0
  end
  def update_fading
    @opacity += (255 / @fade_time) if @fade > @opacity
    @opacity -= (255 / @fade_time) if @fade < @opacity
    @opacity = 0 if @opacity < 0; @opacity = 255 if @opacity > 255
    @fade_time = 0 if @opacity == 0 || @opacity == 255
  end
  def update_sliding
    @shakechar[1] += 0.5 if @next_x > @shakechar[1]
    @shakechar[1] -= 0.5 if @next_x < @shakechar[1]
    @shakechar[2] += 0.5 if @next_y > @shakechar[2]
    @shakechar[2] -= 0.5 if @next_y < @shakechar[2]
    return unless @shakechar[1] == @next_x
    return unless @shakechar[2] == @next_y
    @sliding = false
    @step_anime = false
  end
  def update_shake
    @shake_time -= 1
    @shakechar[2] += 1 if @shake_direction == 0
    @shakechar[2] -= 1 if @shake_direction == 1
    if @shake_time % 3 == 0
      @shake_direction += 1
      @shake_direction = 0 if @shake_direction > 1
    end
  end
end

class Game_Character
  alias eft_init_private_members init_private_members
  def init_private_members
    eft_init_private_members
    @waypoint = [-1,-1]      
  end
  def update_routine_move
    if @wait_count > 0
      @wait_count -= 1
    else
      @move_succeed = true
      command = @move_route.list[@move_route_index]
      if command
        if @waypoint[0] != -1
          process_waypoint_command
          advance_waypoint_route_index
        else
          process_move_command(command)
          advance_move_route_index
        end
      end
    end
  end
  def process_waypoint_command
    sx = distance_x_from(@waypoint[0])
    sy = distance_y_from(@waypoint[1])
    if sx.abs > sy.abs
      move_straight(sx > 0 ? 4 : 6)
      move_straight(sy > 0 ? 8 : 2) if !@move_succeed && sy != 0
    elsif sy != 0
      move_straight(sy > 0 ? 8 : 2)
      move_straight(sx > 0 ? 4 : 6) if !@move_succeed && sx != 0
    end
    @waypoint = [-1,-1] if !@move_succeed && @move_route.skippable
  end
  def advance_waypoint_route_index
    return unless @x == @waypoint[0]
    return unless @y == @waypoint[1]
    @waypoint = [-1,-1]
  end
  def waypoint(x,y); @waypoint = [x,y]; end
end

class Sprite_Character
  alias eventfp_update update
  def update
    eventfp_update
    zoom_update
    mirror_update
    blend_update
    rotate_update if @character.need_rotate
    flash_update if @character.flash_on
  end
  def blend_update; self.color = @character.blend_color; end
  def zoom_update
    self.zoom_y = @character.zoom
    self.zoom_x = @character.zoom
  end
  def mirror_update; self.mirror = @character.mirror; end
  def flash_update
    flash(@character.flash_color,@character.flash_time)
    @character.flashoff
  end
  def rotate_update
    self.angle = @character.angle
    @character.rotateoff
  end
end[/pre]

寒冷的企鹅

Nil2018 发表于 2018-4-28 20:37
#-------------------------------------------------------------------------------
# * [ACE] Khas 寻路 ...

为什么第一个还是无法等待到结束，即使调用的是find_path(0,17,17,true)
第二个直接发生错误，脚本game_interpreter第1411行
我都是在事件页里直接使用脚本的

寒冷的企鹅

Nil2018 发表于 2018-4-28 20:37
#-------------------------------------------------------------------------------
# * [ACE] Khas 寻路 ...

第一个的BUG可以解决吗？

寒冷的企鹅

Nil2018 发表于 2018-4-28 20:37
#-------------------------------------------------------------------------------
# * [ACE] Khas 寻路 ...

哦，谢谢了，不过第二个差不多了