求VA的怪物寻路和怪物视野=A=

Luciffer

刚刚回归RM，试着自己做了一些追逐游戏玩，发现怪物默认寻路实在是太蠢了。。。地形一复杂就被墙壁卡住不会绕路了。。。这种智能给玩家玩也太无趣了吧=A=
另外这种躲避动作游戏的定番果然就是视野限制嘛，怪物在一定范围内才会看到你，所以躲避怪物视野前往下一个地点也变成了游戏点。=w=
（嘛。。。由于不是什么认真做的坑，只是做着玩的，所以完全提不起干劲就是了。。。）
怪物寻路脚本要求怪物会绕过障碍物，运行时最好不要太卡。
怪物视野脚本要求可以由玩家自己改变怪物视野大小。

Sion

视野脚本，mog写的，我把说明汉化了一下。

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. #
    
11. #在事件名里添加<SensorX>（X = 视野范围）
    
12. #例子： EV001<Sensor2>
    
13. #
    
14. #===============================================================================
    
15. module MOG_EVENT_SENSOR
    
16.   #进入视野以后开启的独立开关
    
17.   SENSOR_SELF_SWITCH = "D"
    
18. end
    
19. 
    
20. #===============================================================================
    
21. # ■ GAME EVENT
    
22. #===============================================================================
    
23. class Game_Event < Game_Character
    
24.   
    
25.   attr_reader   :sensor_range
    
26.   
    
27.   #--------------------------------------------------------------------------
    
28.   # ● Initialize
    
29.   #--------------------------------------------------------------------------            
    
30.   alias mog_event_sensor_initialize initialize
    
31.   def initialize(map_id, event)
    
32.       mog_event_sensor_initialize(map_id, event)
    
33.       setup_event_sensor
    
34.   end
    
35.   
    
36.   #--------------------------------------------------------------------------
    
37.   # ● Setup Event Sensor
    
38.   #--------------------------------------------------------------------------         
    
39.   def setup_event_sensor
    
40.       @sensor_range =  @event.name =~ /<Sensor(\d+)>/ ? $1.to_i : 0
    
41.   end  
    
42.   
    
43.   #--------------------------------------------------------------------------
    
44.   # ● Update
    
45.   #--------------------------------------------------------------------------            
    
46.   alias mog_event_sensor_update update
    
47.   def update
    
48.       mog_event_sensor_update
    
49.       update_event_sensor
    
50.   end  
    
51.   
    
52.   #--------------------------------------------------------------------------
    
53.   # ● Update Sensor
    
54.   #--------------------------------------------------------------------------        
    
55.   def update_event_sensor
    
56.       return if @sensor_range == 0
    
57.       distance = ($game_player.x - self.x).abs + ($game_player.y - self.y).abs
    
58.       enable   = (distance <= @sensor_range)
    
59.       key = [$game_map.map_id, self.id, MOG_EVENT_SENSOR::SENSOR_SELF_SWITCH]
    
60.       last_enable = $game_self_switches[key]
    
61.       execute_sensor_effect(enable,key) if enable != last_enable
    
62.     end
    
63. 
    
64.   #--------------------------------------------------------------------------
    
65.   # ● Execute_Sensor Effect
    
66.   #--------------------------------------------------------------------------            
    
67.   def execute_sensor_effect(enable,key)      
    
68.       @pattern = 0
    
69.       @pattern_count = 0               
    
70.       $game_self_switches[key] = enable
    
71.       self.refresh
    
72.   end
    
73.    
    
74. end

复制代码

怪物寻路脚本，就是覆盖了默认的移动路线为接近玩家的那个方法，这个自己写的。如果有bug或者别的需要再告诉我吧

1. #2013.2.1 修正了地图循环时不追寻的bug
   
2. #2013.2.2 修正地图通行判断错误，修正绘制路径逻辑错误，增加事件为路障的判断
   
3. class Game_Event < Game_Character
   
4.   def move_type_toward_player
   
5.     move_chase_player unless moving?
   
6.   end
   
7.   def move_chase_player
   
8.     if @player_x != $game_player.x || @player_y != $game_player.y
   
9.       @chase_path = draw_chase_path
   
10.       @player_x, @player_y = $game_player.x, $game_player.y
    
11.     end
    
12.     dirc = @chase_path.shift
    
13.     move_straight(dirc) if dirc
    
14.     @chase_path = draw_chase_path unless move_succeed
    
15.   end
    
16.   def draw_chase_path
    
17.     sheet = Table.new($game_map.width, $game_map.height)
    
18.     new_check_point = [x, y]; sheet[x, y] = 1
    
19.     catch_player = false;     step = 2
    
20.     loop do #loop1
    
21.       draw_path = false
    
22.       check_point = new_check_point
    
23.       new_check_point = []
    
24.       loop do #loop2
    
25.         point_x = check_point.shift
    
26.         break if point_x == nil
    
27.         point_y = check_point.shift
    
28.         if point_x == $game_player.x && point_y == $game_player.y
    
29.           catch_player = true; break; end
    
30.         left_x  = $game_map.round_x(point_x - 1)
    
31.         right_x = $game_map.round_x(point_x + 1)
    
32.         up_y    = $game_map.round_y(point_y - 1)
    
33.         down_y  = $game_map.round_y(point_y + 1)
    
34.         if $game_map.passable?(left_x, point_y, 6)  &&
    
35.            $game_map.passable?(point_x, point_y, 4) &&
    
36.            !collide_with_events?(left_x, point_y)   &&
    
37.            sheet[left_x, point_y] == 0 #judge_end
    
38.           sheet[left_x, point_y] = step
    
39.           draw_path = true
    
40.           new_check_point.push(left_x, point_y); end
    
41.         if $game_map.passable?(right_x, point_y, 4) &&
    
42.            $game_map.passable?(point_x, point_y, 6) &&
    
43.            !collide_with_events?(right_x, point_y)  &&
    
44.            sheet[right_x, point_y] == 0 #judge_end
    
45.           sheet[right_x, point_y] = step
    
46.           draw_path = true
    
47.           new_check_point.push(right_x, point_y); end
    
48.         if $game_map.passable?(point_x, up_y, 2)    &&
    
49.            $game_map.passable?(point_x, point_y, 8) &&
    
50.            !collide_with_events?(point_x, up_y)     &&
    
51.            sheet[point_x, up_y] == 0 #judge_end
    
52.           sheet[point_x, up_y] = step
    
53.           draw_path = true
    
54.           new_check_point.push(point_x, up_y); end
    
55.         if $game_map.passable?(point_x, down_y, 8)  &&
    
56.            $game_map.passable?(point_x, point_y, 2) &&
    
57.            !collide_with_events?(point_x, down_y)   &&
    
58.            sheet[point_x, down_y] == 0 #judge_end
    
59.           sheet[point_x, down_y] = step
    
60.           draw_path = true
    
61.           new_check_point.push(point_x, down_y); end
    
62.       end #endOfLoop2
    
63.       break if !draw_path || catch_player
    
64.       step += 1
    
65.     end #endOfLoop1
    
66.     reversed_chase_path = []; step -=1
    
67.     point_x, point_y = $game_player.x, $game_player.y
    
68.     for i in 2..step
    
69.      step -= 1
    
70.       if sheet[point_x, $game_map.round_y(point_y + 1)] == step             &&
    
71.          $game_map.passable?(point_x, $game_map.round_y(point_y + 1), 8)    &&
    
72.          $game_map.passable?(point_x, point_y, 2) #judge_end
    
73.         reversed_chase_path.push(8)
    
74.         point_y = $game_map.round_y(point_y + 1)
    
75.       elsif sheet[$game_map.round_x(point_x - 1), point_y] == step          &&
    
76.             $game_map.passable?($game_map.round_x(point_x - 1), point_y, 6) &&
    
77.             $game_map.passable?(point_x, point_y, 4) #judge_end
    
78.         reversed_chase_path.push(6)
    
79.         point_x = $game_map.round_x(point_x - 1)
    
80.       elsif sheet[$game_map.round_x(point_x + 1), point_y] == step          &&
    
81.             $game_map.passable?($game_map.round_x(point_x + 1), point_y, 4) &&
    
82.             $game_map.passable?(point_x, point_y, 6) #judge_end
    
83.         reversed_chase_path.push(4)
    
84.         point_x = $game_map.round_x(point_x + 1)
    
85.       elsif sheet[point_x, $game_map.round_y(point_y - 1)] == step          &&
    
86.             $game_map.passable?(point_x, $game_map.round_y(point_y - 1), 2) &&
    
87.             $game_map.passable?(point_x, point_y, 8)
    
88.         reversed_chase_path.push(2)
    
89.         point_y = $game_map.round_y(point_y - 1)
    
90.       end
    
91.     end
    
92.     return reversed_chase_path.reverse
    
93.   end
    
94. end
    
95. 
    
96. class Game_CharacterBase
    
97. attr_reader :move_succeed
    
98. end

复制代码

j433463

我看到一个国外的鼠标脚本 Mouse System Buttons 2.0 做得挺不错，下载了范例工程来试，
它似乎在工程中还附了一个应该是自动寻路的脚本，或滑鼠脚本本身有这功能？
滑鼠点击位置后会自动找路过去，试过做一个 24*24 大小地图迷宫，结果很顺的到出口，

或许您可以试试看作参考：

http://falcaorgss.wordpress.com/：

另外，这一个好像是跟视野有关的，也是国外脚本，我看不懂：

http://www.santuariorpgmaker.com/forum/index.php?topic=14641




怪物寻路？是事件NPC那种明雷方式的吗？这个脚本不知道算不算，它说明内容中有提到可移动任何 Game_Character 的对象：

http://arcthunder.site40.net/en-khas-pathfinder/

而这个，需要在事件中先指定一个目的座标，它会自动找出合适的路线过去：

http://forums.rpgmakerweb.com/in ... r-rpg-maker-vx-ace/

另外，还看到了一个警卫脚本，就是进入视线范围触发的脚本：

http://forums.rpgmakerweb.com/in ... r-rpg-maker-vx-ace/