RMXP关于myownroc的寻路系统如何中途停止寻路

夕仔

@myownroc  M君大神
终止命令是什么？ 自动寻路的过程中 中途停止  。另外我用的是鼠标系统+八方向

写了个小地图系统 排得上用场，虽然搜索到了小地图寻路，不过那个太卡了，CPU暴涨，M君这个不错。
谢谢了

1. #寻路 调用方法 BFS.find_path($game_player,x,y)
   
2. 
   
3. module BFS
   
4.   def self.find_path(character, tx, ty)
   
5.     ox, oy = character.x, character.y
   
6.     return if (tx > $game_map.width - 1) || (ty > $game_map.height - 1)
   
7.     return if !($game_map.passable?(tx, ty, 0, character))
   
8.     return if (tx == ox) && (ty == oy)
   
9.     checked = []
   
10.     father = []
    
11.     for i in 0...$game_map.width
    
12.       checked << []
    
13.       father << []
    
14.       for j in 0...$game_map.height
    
15.         checked[-1] << 0
    
16.         father[-1] << nil
    
17.       end
    
18.     end
    
19.     path = []
    
20.     found = false
    
21.     checked[ox][oy] = 1
    
22.     empty = false
    
23.     loop do
    
24.       empty = true
    
25.       for i in 0...$game_map.width
    
26.         for j in 0...$game_map.height
    
27.           if checked[i][j] == 1
    
28.             checked[i][j] = 2
    
29.             if $game_map.passable?(i, j + 1, 2, character) &&
    
30.               checked[i][j + 1] == 0
    
31.               checked[i][j + 1] = 1
    
32.               father[i][j + 1] = [i, j]
    
33.             end
    
34.             if $game_map.passable?(i - 1, j, 4, character) &&
    
35.               checked[i - 1][j] == 0
    
36.               checked[i - 1][j] = 1
    
37.               father[i - 1][j] = [i, j]
    
38.             end
    
39.             if $game_map.passable?(i, j - 1, 8, character) &&
    
40.               checked[i][j - 1] == 0
    
41.               checked[i][j - 1] = 1
    
42.               father[i][j - 1] = [i, j]
    
43.             end
    
44.             if $game_map.passable?(i + 1, j, 6, character) &&
    
45.               checked[i + 1][j] == 0
    
46.               checked[i + 1][j] = 1
    
47.               father[i + 1][j] = [i, j]
    
48.             end
    
49.           end
    
50.           if checked[tx][ty] == 1
    
51.             found = true
    
52.             break
    
53.           end
    
54.         end
    
55.       end
    
56.       for i in 0...$game_map.width
    
57.         empty = false if checked[i].include?(1)
    
58.       end
    
59.       if found || empty
    
60.         break
    
61.       end
    
62.     end
    
63.     return if !found
    
64.     if found
    
65.       x, y = tx, ty
    
66.       while [x, y] != [ox, oy]
    
67.         dx, dy = father[x][y][0] - x, father[x][y][1] - y
    
68.         step = 2 if dy == -1
    
69.         step = 4 if dx == 1
    
70.         step = 8 if dy == 1
    
71.         step = 6 if dx == -1
    
72.         path << step
    
73.         x, y = father[x][y][0], father[x][y][1]
    
74.       end
    
75.       path.reverse!
    
76.     end
    
77.     list = []
    
78.     path.each{|e|
    
79.       code = 1 if e == 2
    
80.       code = 2 if e == 4
    
81.       code = 4 if e == 8
    
82.       code = 3 if e == 6
    
83.       list << RPG::MoveCommand.new(code)
    
84.     }
    
85.     list << RPG::MoveCommand.new(0)
    
86.     skippable = false
    
87.     repeat = false
    
88.     commands = RPG::MoveRoute.new
    
89.     commands.skippable = skippable
    
90.     commands.repeat = repeat
    
91.     commands.list = list
    
92.     if character == nil
    
93.       return true
    
94.     end
    
95.     character.force_move_route(commands)
    
96.     return true
    
97.   end
    
98. end

复制代码

myownroc

目前暂时不支持中途停下（因为不知道停下的条件是什么=_=）
于是你能不能说一说为什么要停下（先猜一下：是不是用了鼠标脚本之类的……）？

夕仔

可以每行都注释一下吗？我想学习学习
拜托了

1. module BFS
   
2.   def self.find_path(character, tx, ty)
   
3.     ox, oy = character.x, character.y
   
4.     return if (tx > $game_map.width - 1) || (ty > $game_map.height - 1)
   
5.     return if !($game_map.passable?(tx, ty, 0, character))
   
6.     return if (tx == ox) && (ty == oy)
   
7.     checked = []
   
8.     father = []
   
9.     for i in 0...$game_map.width
   
10.       checked << []
    
11.       father << []
    
12.       for j in 0...$game_map.height
    
13.         checked[-1] << 0
    
14.         father[-1] << nil
    
15.       end
    
16.     end
    
17.     path = []
    
18.     found = false
    
19.     checked[ox][oy] = 1
    
20.     empty = false
    
21.     loop do
    
22.       empty = true
    
23.       for i in 0...$game_map.width
    
24.         for j in 0...$game_map.height
    
25.           if checked[i][j] == 1
    
26.             checked[i][j] = 2
    
27.             if $game_map.passable?(i, j + 1, 2, character) &&
    
28.               checked[i][j + 1] == 0
    
29.               checked[i][j + 1] = 1
    
30.               father[i][j + 1] = [i, j]
    
31.             end
    
32.             if $game_map.passable?(i - 1, j, 4, character) &&
    
33.               checked[i - 1][j] == 0
    
34.               checked[i - 1][j] = 1
    
35.               father[i - 1][j] = [i, j]
    
36.             end
    
37.             if $game_map.passable?(i, j - 1, 8, character) &&
    
38.               checked[i][j - 1] == 0
    
39.               checked[i][j - 1] = 1
    
40.               father[i][j - 1] = [i, j]
    
41.             end
    
42.             if $game_map.passable?(i + 1, j, 6, character) &&
    
43.               checked[i + 1][j] == 0
    
44.               checked[i + 1][j] = 1
    
45.               father[i + 1][j] = [i, j]
    
46.             end
    
47.           end
    
48.           if checked[tx][ty] == 1
    
49.             found = true
    
50.             break
    
51.           end
    
52.         end
    
53.       end
    
54.       for i in 0...$game_map.width
    
55.         empty = false if checked[i].include?(1)
    
56.       end
    
57.       if found || empty
    
58.         break
    
59.       end
    
60.     end
    
61.     return if !found
    
62.     if found
    
63.       x, y = tx, ty
    
64.       while [x, y] != [ox, oy]
    
65.         dx, dy = father[x][y][0] - x, father[x][y][1] - y
    
66.         step = 2 if dy == -1
    
67.         step = 4 if dx == 1
    
68.         step = 8 if dy == 1
    
69.         step = 6 if dx == -1
    
70.         path << step
    
71.         x, y = father[x][y][0], father[x][y][1]
    
72.       end
    
73.       path.reverse!
    
74.     end
    
75.     list = []
    
76.     path.each{|e|
    
77.       code = 1 if e == 2
    
78.       code = 2 if e == 4
    
79.       code = 4 if e == 8
    
80.       code = 3 if e == 6
    
81.       list << RPG::MoveCommand.new(code)
    
82.     }
    
83.     list << RPG::MoveCommand.new(0)
    
84.     skippable = false
    
85.     repeat = false
    
86.     commands = RPG::MoveRoute.new
    
87.     commands.skippable = skippable
    
88.     commands.repeat = repeat
    
89.     commands.list = list
    
90.     if character == nil
    
91.       return true
    
92.     end
    
93.     character.force_move_route(commands)
    
94.     return true
    
95.   end
    
96. end

复制代码

myownroc

提问区.rar (199.3 KB, 下载次数: 44)

2014-11-14 19:43 上传

点击文件名下载附件

按Esc中断，不过会呼出菜单=_=（不过我是不是可以改成其他按键……）

myownroc

1. module BFS
   
2.   def self.find_path(character, tx, ty)
   
3.     #设置起点坐标
   
4.     ox, oy = character.x, character.y
   
5.          #如果目的地超出了地图就退出
   
6.     return if (tx > $game_map.width - 1) || (ty > $game_map.height - 1)
   
7.          #如果目的地不可通行（全方向）就退出
   
8.     return if !($game_map.passable?(tx, ty, 0, character))
   
9.          #如果目的地就是起点就退出
   
10.     return if (tx == ox) && (ty == oy)
    
11.          #初始化数组checked，用于标记已经检测过的点
    
12.     checked = []
    
13.          #初始化数组father，用于存放点的父节点（父节点就是来到一个点之前要到达的点）
    
14.     father = []
    
15.          #给数组赋值
    
16.     for i in 0...$game_map.width
    
17.       checked << []
    
18.       father << []
    
19.       for j in 0...$game_map.height
    
20.         checked[-1] << 0
    
21.         father[-1] << nil
    
22.       end
    
23.     end
    
24.          #初始化数组path，用于存放路径
    
25.     path = []
    
26.          #found表示是否达到目的地
    
27.     found = false
    
28.          #将起点标记为“待检测”（0为未检测但不需要检测，1为待检测，2为已经检测）
    
29.     checked[ox][oy] = 1
    
30.          #empty表示是否还存在待检测的点
    
31.     empty = false
    
32.          #算法的核心
    
33.     loop do
    
34.                 #假定已经没有待检测的点了
    
35.       empty = true
    
36.            #对地图的每一个点进行判断
    
37.       for i in 0...$game_map.width
    
38.         for j in 0...$game_map.height
    
39.                           #如果点是待检测点
    
40.           if checked[i][j] == 1
    
41.                        #把它标记为已经检测
    
42.             checked[i][j] = 2
    
43.                             #判断这个点旁边四个点是否能通过该点到达且旁边的这些点是否未检测（依次为↓←↑→）
    
44.             if $game_map.passable?(i, j + 1, 2, character) &&
    
45.               checked[i][j + 1] == 0
    
46.                               #标记为待检测
    
47.               checked[i][j + 1] = 1
    
48.                               #设置旁边的点的父节点为当前的点（经过当前的点才能到达旁边的点）
    
49.               father[i][j + 1] = [i, j]
    
50.             end
    
51.             if $game_map.passable?(i - 1, j, 4, character) &&
    
52.               checked[i - 1][j] == 0
    
53.               checked[i - 1][j] = 1
    
54.               father[i - 1][j] = [i, j]
    
55.             end
    
56.             if $game_map.passable?(i, j - 1, 8, character) &&
    
57.               checked[i][j - 1] == 0
    
58.               checked[i][j - 1] = 1
    
59.               father[i][j - 1] = [i, j]
    
60.             end
    
61.             if $game_map.passable?(i + 1, j, 6, character) &&
    
62.               checked[i + 1][j] == 0
    
63.               checked[i + 1][j] = 1
    
64.               father[i + 1][j] = [i, j]
    
65.             end
    
66.           end
    
67.                     #如果目的地是待检测的点，说明已经找到目的地了
    
68.           if checked[tx][ty] == 1
    
69.                       #找到=_=
    
70.             found = true
    
71.                            #跳出循环
    
72.             break
    
73.           end
    
74.         end
    
75.       end
    
76.            #判断是否还存在待检测的点
    
77.       for i in 0...$game_map.width
    
78.         empty = false if checked[i].include?(1)
    
79.       end
    
80.            #如果不存在待检测的点就跳出循环
    
81.       if found || empty
    
82.         break
    
83.       end
    
84.     end
    
85.          #如果没找到到达目的地的路径就退出
    
86.     return if !found
    
87.          #找到了的话就生成路径（2、4、6、8代表↓←→↑）
    
88.     if found
    
89.       x, y = tx, ty
    
90.       while [x, y] != [ox, oy]
    
91.         dx, dy = father[x][y][0] - x, father[x][y][1] - y
    
92.         step = 2 if dy == -1
    
93.         step = 4 if dx == 1
    
94.         step = 8 if dy == 1
    
95.         step = 6 if dx == -1
    
96.         path << step
    
97.         x, y = father[x][y][0], father[x][y][1]
    
98.       end
    
99.       path.reverse!
    
100.     end
     
101.          #将2、4、6、8翻译为移动角色的命令
     
102.     list = []
     
103.     path.each{|e|
     
104.       code = 1 if e == 2
     
105.       code = 2 if e == 4
     
106.       code = 4 if e == 8
     
107.       code = 3 if e == 6
     
108.       list << RPG::MoveCommand.new(code)
     
109.     }
     
110.     list << RPG::MoveCommand.new(0)
     
111.     skippable = false
     
112.     repeat = false
     
113.     commands = RPG::MoveRoute.new
     
114.     commands.skippable = skippable
     
115.     commands.repeat = repeat
     
116.     commands.list = list
     
117.          #如果角色不存在就退出否则就强制移动角色
     
118.     if character == nil
     
119.       return true
     
120.     end
     
121.     character.find_path = true
     
122.     character.force_move_route(commands)
     
123.     return true
     
124.   end
     
125. end

复制代码

夕仔

A寻路初探.rar (73.63 KB, 下载次数: 50)

2014-11-14 23:38 上传

点击文件名下载附件

@myownroc 这是在6R找到的自动寻路 感觉效率不错，但我不会转换成地图，路障不知道怎么弄。。你的寻路用于100以内的地图效果非常不错，但是超过100很多就会卡掉了。。{:2_264:}