请问有没有RMVXA专用的寻路脚本呢？谢谢。

ask102

似乎RMXP的不能用在RMVXA上，而我是新手不懂写出这么复杂的算法……
请问有RMVXA专用的寻路脚本吗？谢谢^^
不是鼠标寻路，而是单纯的寻路算法：四方向。

哈哈 刚刚不小心发错区了

仲秋启明

暂时没有

叶子

即插即用的脚本不是很清楚，不过我的一个坑倒是有写过通用的寻路算法

1. #encoding:utf-8
   
2. 
   
3. #==============================================================================
   
4. # ■ Dijkstra
   
5. #------------------------------------------------------------------------------
   
6. #   Dijkstra寻路算法
   
7. #==============================================================================
   
8. 
   
9. class Dijkstra
   
10.   #--------------------------------------------------------------------------
    
11.   # ● 实例变量
    
12.   #--------------------------------------------------------------------------
    
13.   attr_accessor :source
    
14.   #--------------------------------------------------------------------------
    
15.   # ● 初始化
    
16.   #--------------------------------------------------------------------------
    
17.   def initialize(source)
    
18.     @dist = {}
    
19.     @prev = {}
    
20.     @source = source
    
21.   end
    
22.   #--------------------------------------------------------------------------
    
23.   # ● 返回max_dist内的节点
    
24.   #--------------------------------------------------------------------------
    
25.   def nodes
    
26.     return @dist.keys
    
27.   end
    
28.   #--------------------------------------------------------------------------
    
29.   # ● 从起点到某一点的距离
    
30.   #--------------------------------------------------------------------------
    
31.   def dist(node)
    
32.     return @dist[node] || Float::INFINITY
    
33.   end
    
34.   #--------------------------------------------------------------------------
    
35.   # ● 设置距离
    
36.   #--------------------------------------------------------------------------
    
37.   def set_dist(node, n)
    
38.     @dist[node] = n
    
39.   end
    
40.   #--------------------------------------------------------------------------
    
41.   # ● 路径前一点
    
42.   #--------------------------------------------------------------------------
    
43.   def prev(node)
    
44.     return @prev[node]
    
45.   end
    
46.   #--------------------------------------------------------------------------
    
47.   # ● 设置路径前一点
    
48.   #--------------------------------------------------------------------------
    
49.   def set_prev(node, prev)
    
50.     @prev[node] = prev
    
51.   end
    
52.   #--------------------------------------------------------------------------
    
53.   # ● 获得路径
    
54.   #--------------------------------------------------------------------------
    
55.   def get_route(node)
    
56.     route = [node]
    
57.     while true
    
58.       if prev(node) == nil
    
59.         return nil
    
60.       end
    
61.       if prev(node) == @source
    
62.         return route
    
63.       end
    
64.       route.unshift(node)
    
65.       node = prev(node)
    
66.     end
    
67.     return route
    
68.   end
    
69.   #--------------------------------------------------------------------------
    
70.   # ● 类方法：返回寻路结果
    
71.   #--------------------------------------------------------------------------
    
72.   def self.search(graph, source, max_dist)
    
73.     dij = Dijkstra.new(source)
    
74.     queue = [source] # 按dij.dist()从近到远的队列
    
75.     dij.set_dist(source, 0)
    
76.     while !queue.empty?
    
77.       u = queue.shift
    
78.       graph.each_neighbor(u){|v|
    
79.         alt = dij.dist(u) + graph.dist_neighbor(u, v)
    
80.         if alt <= max_dist && alt < dij.dist(v)
    
81.           dij.set_dist(v, alt)
    
82.           dij.set_prev(v, u)
    
83.           if !queue.include?(v)
    
84.             queue.push(v)
    
85.           end
    
86.           queue.sort_by{|node| dij.dist(node)}
    
87.         end
    
88.       }
    
89.     end
    
90.     return dij
    
91.   end
    
92. end
    
93. 
    
94. #==============================================================================
    
95. # ■ Graph
    
96. #------------------------------------------------------------------------------
    
97. # 　图
    
98. #==============================================================================
    
99. 
    
100. module Graph
     
101.   #--------------------------------------------------------------------------
     
102.   # ● 迭代邻居
     
103.   #--------------------------------------------------------------------------
     
104.   def each_neighbor(u)
     
105.     raise 'not yet implemented'
     
106.   end
     
107.   #--------------------------------------------------------------------------
     
108.   # ● 返回邻居两点间距离
     
109.   #--------------------------------------------------------------------------
     
110.   def dist_neighbor(u, v)
     
111.     raise 'not yet implemented'
     
112.   end
     
113. end
     

复制代码

用例
当然下面这些不能直接在默认VA工程内使用，只是用法参考。

1. #==============================================================================
   
2. # ■ SLGGraph
   
3. #------------------------------------------------------------------------------
   
4. # 　所有方法都以模块方法存在
   
5. #==============================================================================
   
6. module SLGGraph
   
7. end
   
8. class << SLGGraph
   
9.   include Graph
   
10.   #--------------------------------------------------------------------------
    
11.   # ● 迭代邻居
    
12.   #--------------------------------------------------------------------------
    
13.   def each_neighbor(u)
    
14.     x, y = u
    
15.     if passable?(x, y, 2)
    
16.       yield([x, y + 1])
    
17.     end
    
18.     if passable?(x, y, 4)
    
19.       yield([x - 1, y])
    
20.     end
    
21.     if passable?(x, y, 6)
    
22.       yield([x + 1, y])
    
23.     end
    
24.     if passable?(x, y, 8)
    
25.       yield([x, y - 1])
    
26.     end
    
27.   end
    
28.   #--------------------------------------------------------------------------
    
29.   # ● 可通行
    
30.   #--------------------------------------------------------------------------
    
31.   def passable?(x, y, d)
    
32.     x2 = $game_map.round_x_with_direction(x, d)
    
33.     y2 = $game_map.round_y_with_direction(y, d)
    
34.     return false unless $game_map.valid?(x2, y2)
    
35.     return false if !$game_map.passable?(x, y, d)
    
36.     return false if !$game_map.passable?(x2, y2, 10 - d)
    
37.     char_block = Proc.new{|char|
    
38.       # 这里不判断priority了，如果想事件可穿透，设置through属性
    
39.       if @source_battler != nil
    
40.         char.block?(@source_battler)
    
41.       else
    
42.         true
    
43.       end
    
44.     }
    
45.     return false if $game_map.events_xy_nt(x2, y2).any? do |event|
    
46.       char_block.call(event)
    
47.     end
    
48.     if (battler = $game_slg.get_battler_at(x2, y2)) != nil
    
49.       return false if char_block.call(battler)
    
50.     end
    
51.     return true
    
52.   end
    
53.   #--------------------------------------------------------------------------
    
54.   # ● 返回邻居两点间距离
    
55.   #--------------------------------------------------------------------------
    
56.   def dist_neighbor(u, v)
    
57.     return 1
    
58.   end
    
59.   #--------------------------------------------------------------------------
    
60.   # ● 返回Dijkstra寻路实例
    
61.   #--------------------------------------------------------------------------
    
62.   def dijkstra_search(source, max_dist)
    
63.     if source.is_a?(Array)
    
64.       @source_battler = nil
    
65.       source_pos = source
    
66.     else
    
67.       @source_battler = source
    
68.       source_pos = [@source_battler.x, @source_battler.y]
    
69.     end
    
70.     return Dijkstra.search(self, source_pos, max_dist)
    
71.   end
    
72. end
    

复制代码

ask102

非常谢谢各位^^
我先尝试一下自己写看看好了!不行的话再问有没有现成的吧@@"
外站脚本...是指66RPG主站吗?

doubt

也想尝试自已写，算法知道，不过还不太了解RGSS3，问一下判断一格能不能通向另一格的函数是什么？

叶子

doubt 发表于 2012-1-31 21:28
也想尝试自已写，算法知道，不过还不太了解RGSS3，问一下判断一格能不能通向另一格的函数是什么？ ...

话说通行判断3楼的用例里就有啊
$game_map.passable?(x, y, d)  和 $game_map.events_xy_nt(x, y).any?
默认Game_CharacterBase里面基本上也是这两个