tseyik 发表于 2014-12-10 21:45
@zdqhzs
経路探索VXAce
http://rpg.blue/forum.php?mod=viewthread&tid=336594

解决了。。。。多谢指点。

移動ルート条件分岐
這個複雑一些,但更霊活
http://woodpenguin.web.fc2.com/rgss3/route_branch.html
移動ルート設定時可用条件(開関/変数)決定分岐。

RUBY 代码复制

=begin
 
 ▼ 移動ルートの条件分岐 ver. 1.0
 
 RPGツクールVXAce用スクリプト
 
 制作 : 木星ペンギン
 URL  : [url]http://woodpenguin.blog.fc2.com/[/url]
 
------------------------------------------------------------------------------
 概要
 
 □ 移動ルートの設定で条件分岐が使用できるようになります。
 
------------------------------------------------------------------------------
 使い方
 
 ・ 移動ルート設定のスクリプトで、以下の文字列を入力すると条件分岐を行えます。
  
   if 条件              => 条件が真の場合の処理
   else                 => 上記での条件に当てはまらない場合の処理
   end                  => 条件分岐の終了
 
 ・ unless や elsif のような機能はありません。
 
 ・ 基本的にRubyの条件分岐と同じです。
 
 ・ 条件分岐中に別の条件分岐を入れることは可能です。
 
 ・ 条件では s でスイッチ、v で変数を参照できます。
 
 ・ セルフ変数も使用できます。
    併用する場合はこちらのスクリプトを下にしてください。
 
=end
 
module WdTk
module RouteBranch
#//////////////////////////////////////////////////////////////////////////////
#
# 設定項目
#
#//////////////////////////////////////////////////////////////////////////////
 
  #--------------------------------------------------------------------------
  # ● 移動ルートの処理改善
  #     1 フレームに一行しか処理されない移動ルートの処理を
  #     1 フレーム内に可能な限り処理を行うように変更します。
  #--------------------------------------------------------------------------
  RouteEX = true
 
 
#//////////////////////////////////////////////////////////////////////////////
#
# 以降、変更する必要なし
#
#//////////////////////////////////////////////////////////////////////////////
 
end
 
  @material ||= []
  @material << :RouteBranch
  def self.include?(sym)
    @material.include?(sym)
  end
 
end
 
#==============================================================================
# ■ Game_Character
#==============================================================================
class Game_Character
if WdTk::RouteBranch::RouteEX
  #--------------------------------------------------------------------------
  # ◯ ルートに沿った移動の更新
  #--------------------------------------------------------------------------
  alias _wooden_ex_update_routine_move update_routine_move
  def update_routine_move
    if @wait_count > 0
      @wait_count -= 1
    else
      _wooden_ex_update_routine_move
      if @move_route_forcing && @move_succeed && stopping? &&
        @wait_count == 0 && @move_route_index >= 0
        update_routine_move
      end
    end
  end
end # if WdTk::RouteBranch::RouteEX
  #--------------------------------------------------------------------------
  # ◯ 移動コマンドの処理
  #--------------------------------------------------------------------------
  alias _wdtk_routeb_process_move_command process_move_command
  def process_move_command(command)
    if command.code == ROUTE_SCRIPT
      case command.parameters[0]
      when /if\s+(.+)/
        command_skip(/else|end/) unless route_eval($1)
        return
      when "else"
        command_skip("end")
        return
      when "end"
        return
      end
    end
    _wdtk_routeb_process_move_command(command)
  end
  #--------------------------------------------------------------------------
  # ● 移動ルート用
  #--------------------------------------------------------------------------
  def route_eval(formula)
    s, v = $game_switches, $game_variables
    begin
      eval(formula)
    rescue
      msgbox "以下の条件判定でエラーが出ました。\n\n", formula
      true
    end
  end
  #--------------------------------------------------------------------------
  # ● コマンドスキップ
  #--------------------------------------------------------------------------
  def command_skip(text)
    @move_route_index += 1
    loop do
      command = @move_route.list[@move_route_index]
      case command.code
      when ROUTE_END
        @move_route_index -= 1
        return
      when ROUTE_SCRIPT
        case command.parameters[0]
        when /^if\s/
          command_skip("end")
        when text
          return
        end
      end
      @move_route_index += 1
    end
  end
end
 
#==============================================================================
# ■ Game_Event
#==============================================================================
if WdTk.include?(:SelfVar)
class Game_Event
  #--------------------------------------------------------------------------
  # ● ルートに沿った移動の更新
  #--------------------------------------------------------------------------
  def update_routine_move
    $game_variables.set_key(@map_id, @id)
    super
    $game_map.interpreter.initiative_selfvar
  end
end
end # if WdTk.include?(:SelfVar)

=begin


 


 ▼ 移動ルートの条件分岐 ver. 1.0


 


 RPGツクールVXAce用スクリプト


 


 制作 : 木星ペンギン


 URL  : [url]http://woodpenguin.blog.fc2.com/[/url]


 


------------------------------------------------------------------------------


 概要


 


 □ 移動ルートの設定で条件分岐が使用できるようになります。


 


------------------------------------------------------------------------------


 使い方


 


 ・ 移動ルート設定のスクリプトで、以下の文字列を入力すると条件分岐を行えます。


  


   if 条件              => 条件が真の場合の処理


   else                 => 上記での条件に当てはまらない場合の処理


   end                  => 条件分岐の終了


 


 ・ unless や elsif のような機能はありません。


 


 ・ 基本的にRubyの条件分岐と同じです。


 


 ・ 条件分岐中に別の条件分岐を入れることは可能です。


 


 ・ 条件では s でスイッチ、v で変数を参照できます。


 


 ・ セルフ変数も使用できます。


    併用する場合はこちらのスクリプトを下にしてください。


 


=end


 


module WdTk


module RouteBranch


#//////////////////////////////////////////////////////////////////////////////


#


# 設定項目


#


#//////////////////////////////////////////////////////////////////////////////


 


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


  # ● 移動ルートの処理改善


  #     1 フレームに一行しか処理されない移動ルートの処理を


  #     1 フレーム内に可能な限り処理を行うように変更します。


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


  RouteEX = true


 


 


#//////////////////////////////////////////////////////////////////////////////


#


# 以降、変更する必要なし


#


#//////////////////////////////////////////////////////////////////////////////


 


end


 


  @material ||= []


  @material << :RouteBranch


  def self.include?(sym)


    @material.include?(sym)


  end


 


end


 


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


# ■ Game_Character


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


class Game_Character


if WdTk::RouteBranch::RouteEX


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


  # ◯ ルートに沿った移動の更新


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


  alias _wooden_ex_update_routine_move update_routine_move


  def update_routine_move


    if @wait_count > 0


      @wait_count -= 1


    else


      _wooden_ex_update_routine_move


      if @move_route_forcing && @move_succeed && stopping? &&


        @wait_count == 0 && @move_route_index >= 0


        update_routine_move


      end


    end


  end


end # if WdTk::RouteBranch::RouteEX


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


  # ◯ 移動コマンドの処理


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


  alias _wdtk_routeb_process_move_command process_move_command


  def process_move_command(command)


    if command.code == ROUTE_SCRIPT


      case command.parameters[0]


      when /if\s+(.+)/


        command_skip(/else|end/) unless route_eval($1)


        return


      when "else"


        command_skip("end")


        return


      when "end"


        return


      end


    end


    _wdtk_routeb_process_move_command(command)


  end


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


  # ● 移動ルート用


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


  def route_eval(formula)


    s, v = $game_switches, $game_variables


    begin


      eval(formula)


    rescue


      msgbox "以下の条件判定でエラーが出ました。\n\n", formula


      true


    end


  end


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


  # ● コマンドスキップ


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


  def command_skip(text)


    @move_route_index += 1


    loop do


      command = @move_route.list[@move_route_index]


      case command.code


      when ROUTE_END


        @move_route_index -= 1


        return


      when ROUTE_SCRIPT


        case command.parameters[0]


        when /^if\s/


          command_skip("end")


        when text


          return


        end


      end


      @move_route_index += 1


    end


  end


end


 


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


# ■ Game_Event


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


if WdTk.include?(:SelfVar)


class Game_Event


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


  # ● ルートに沿った移動の更新


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


  def update_routine_move


    $game_variables.set_key(@map_id, @id)


    super


    $game_map.interpreter.initiative_selfvar


  end


end


end # if WdTk.include?(:SelfVar)

1. #==============================================================================
   
2. # +++ MOG - Event Sensor Range (v1.0) +++
   
3. #==============================================================================
   
4. # By Moghunter
   
5. # http://www.atelier-rgss.com
   
6. #==============================================================================
   
7. # Permite que o evento tenha dois comportamentos, de curta distância e de
   
8. # longa distância.
   
9. #===============================================================================
   
10. # - Utilização
    
11. # Crie uma página com a condição de ativação Self Switch D, está página será
    
12. # usada quando o player estiver perto do evento.
    
13. # Defina a area do sensor do evento colocando este nome no evento.
    
14. #
    
15. # <SensorX>
    
16. #
    
17. # X = 视野范围半径
    
18. #
    
19. #===============================================================================
    
20. module MOG_EVENT_SENSOR
    
21.   #打开的独立开关
    
22.   SENSOR_SELF_SWITCH = "D"
    
23. end
    
24. 
    
25. #===============================================================================
    
26. # ■ GAME EVENT
    
27. #===============================================================================
    
28. class Game_Event < Game_Character
    
29.   
    
30.   attr_reader   :sensor_range
    
31.   
    
32.   #--------------------------------------------------------------------------
    
33.   # ● Initialize
    
34.   #--------------------------------------------------------------------------            
    
35.   alias mog_event_sensor_initialize initialize
    
36.   def initialize(map_id, event)
    
37.       mog_event_sensor_initialize(map_id, event)
    
38.       setup_event_sensor
    
39.   end
    
40.   
    
41.   #--------------------------------------------------------------------------
    
42.   # ● Setup Event Sensor
    
43.   #--------------------------------------------------------------------------         
    
44.   def setup_event_sensor
    
45.       @sensor_range =  @event.name =~ /<Sensor(\d+)>/ ? $1.to_i : 0
    
46.   end  
    
47.   
    
48.   #--------------------------------------------------------------------------
    
49.   # ● Update
    
50.   #--------------------------------------------------------------------------            
    
51.   alias mog_event_sensor_update update
    
52.   def update
    
53.       mog_event_sensor_update
    
54.       update_event_sensor
    
55.   end  
    
56.   
    
57.   #--------------------------------------------------------------------------
    
58.   # ● Update Sensor
    
59.   #--------------------------------------------------------------------------        
    
60.   def update_event_sensor
    
61.       return if @sensor_range == 0
    
62.       distance = ($game_player.x - self.x).abs + ($game_player.y - self.y).abs
    
63.       enable   = (distance <= @sensor_range)
    
64.       key = [$game_map.map_id, self.id, MOG_EVENT_SENSOR::SENSOR_SELF_SWITCH]
    
65.       last_enable = $game_self_switches[key]
    
66.       execute_sensor_effect(enable,key) if enable != last_enable
    
67.     end
    
68. 
    
69.   #--------------------------------------------------------------------------
    
70.   # ● Execute_Sensor Effect
    
71.   #--------------------------------------------------------------------------            
    
72.   def execute_sensor_effect(enable,key)      
    
73.       @pattern = 0
    
74.       @pattern_count = 0               
    
75.       $game_self_switches[key] = enable
    
76.       self.refresh
    
77.   end
    
78.    
    
79. end
    
80. 
    
81. $mog_rgss3_event_sensor = true

复制代码

敌人视野脚本
在事件的名称后面加上<Sensor2>就表示人物距离敌人总共2格时，开启敌人事件页中的独立开关D
这样在D开启的事件页中加上移动方式为接近就行了。

这个游戏里的某个脚本大概就是你想要的。
https://rpg.blue/thread-371221-1-1.html
另外这个帖子里的各个版本的脚本大概都可以符合你的要求。
https://rpg.blue/thread-369039-1-1.html（其中1楼的脚本貌似就是上面那个游戏用到的那个。（反正我没用过

第一页：并行处理
条件分歧：($game_map.events[@event_id].x - $game_player.x).abs <= 5 and ($game_map.events[@event_id].y - $game_player.y).abs <= 5
    独立开关：A = ON
结束

第二页：与事件接触（独立开关A打开时）
扣血or开启战斗



其中“5”是距离，可以自己改。

@zdqhzs
経路探索VXAce
http://rpg.blue/forum.php?mod=viewthread&tid=336594
和下面四楼的併用就可以
https://rpg.blue/thread-369039-1-1.html
平時乱行,玩家進入6歩時加速追玩家


示範
Project29.rar (323.46 KB, 下载次数: 73)

2014-12-12 14:54 上传

点击文件名下载附件

这个做起来有些复杂。
你可以选择另建一个并行事件，来控制这些怪物的移动或者独立开关。

判断怪物事件和玩家的坐标距离，如果符合则打开怪物的独立开关，让怪物快速接近玩家。

不过这样的并行事件比较吃运行效率，要谨慎使用。