A星寻路 lua

1. local _map_data         -- 地图数据
   
2. local _open_list        -- 开放节点
   
3. local _open_map         -- 开放节点，为了提高性能而加
   
4. local _close_map        -- 关闭节点
   
5. local _deleget          -- 代理
   
6. local _dest_point       -- 目标点
   
7. local _start_point      -- 起点
   
8. local _path             -- 路径
   
9. 
   
10. -- 寻找路径
    
11. --[[
    
12. deleget = {
    
13.     g = function(point1, point2)
    
14.         -- add your code
    
15.         -- 返回点point1到点point2的实际代价
    
16.     end
    
17.     h = function(point1, point2)
    
18.         -- add your code
    
19.         -- 返回点point1到点point2的估算代价
    
20.     end
    
21.     getValue = function(j, i)
    
22.         -- 返回地图中第i行，第j列的数据 1为障碍物，0为非障碍物
    
23.     end
    
24.     width -- 地图宽度
    
25.     height -- 地图高度
    
26. }
    
27. --]]
    
28. function findPath(deleget, start_point, dest_point)
    
29.     _deleget = deleget
    
30.     _dest_point = dest_point
    
31.     _start_point = start_point
    
32.     init()
    
33.     while _open_list ~= nil do
    
34.         local cur_point = _open_list[1]
    
35.         table.remove(_open_list, 1)
    
36.         if cur_point==nil then
    
37.             return nil
    
38.         end
    
39.         _open_map[cur_point.key] = nil
    
40.         if isEqual(cur_point, dest_point) then
    
41.             return makePath(cur_point)
    
42.         else
    
43.             _close_map[cur_point.key] = cur_point
    
44.             local next_points = getNextPoints(cur_point)
    
45.             for i = 1, #next_points do
    
46.                 local next_point = next_points[i]
    
47.                 if _open_map[next_point.key] == nil and _close_map[next_point.key] == nil and isObstacle(next_point) == false then
    
48.                     _open_map[next_point.key] = next_point
    
49.                     table.insert(_open_list, next_point)
    
50.                 end
    
51.             end
    
52.             table.sort(_open_list, compareF)
    
53.         end
    
54.     end
    
55.     return nil
    
56. end
    
57. 
    
58. function init()
    
59.     _open_list = {}
    
60.     _open_map = {}
    
61.     _close_map = {}
    
62.     _path = {}
    
63.     _map_data = {}
    
64. 
    
65.     for i = 1, _deleget.height do
    
66.         _map_data[i] = {}
    
67.         for j = 1, _deleget.width do
    
68.             local value = _deleget.getValue(j, i)
    
69.             _map_data[i][j] = value
    
70.         end
    
71.     end
    
72.     _open_map[getKey(_start_point)] = _start_point
    
73.     table.insert(_open_list, _start_point)
    
74. end
    
75. 
    
76. function createPoint(x, y)
    
77.     local point = {
    
78.         ["x"] = x,
    
79.         ["y"] = y,
    
80.         ["last"] = nil,
    
81.         ["g_value"] = 0,
    
82.         ["h_value"] = 0,
    
83.         ["f_value"] = 0
    
84.     }
    
85.     point["key"] = getKey(point)
    
86.     return point
    
87. end
    
88. 
    
89. -- 得到下一个可以移动的点
    
90. -- @param point 当前所在点
    
91. function getNextPoints(point)
    
92.     local next_points = {}
    
93.     for i = 1, #_deleget.directions do
    
94.         local offset = _deleget.directions[i]
    
95.         local next_point = createPoint(point.x + offset[1], point.y + offset[2])
    
96.         next_point["last"] = point
    
97.         if next_point.x >= 1 and next_point.x <= _deleget.width and next_point.y >= 1 and next_point.y <= _deleget.height then
    
98.             next_point["g_value"] = _deleget.g(point, next_point)
    
99.             next_point["h_value"] = _deleget.h(point, _dest_point)--math.abs(next_points.x - _dest_point.x) + math.abs(next_points.y - _dest_point.y)
    
100.             next_point["f_value"] = next_point.g_value + next_point.h_value
     
101.             table.insert(next_points, next_point)
     
102.         end
     
103.     end
     
104.     return next_points
     
105. end
     
106. 
     
107. -- 得到路径
     
108. -- @param end_point 目标点
     
109. function makePath(end_point)
     
110.     _path = {}
     
111.     local point = end_point
     
112.     while point.last ~= nil do
     
113.         table.insert(_path, createPoint(point.x, point.y))
     
114.         point = point.last
     
115.     end
     
116.     local start_point = point
     
117.     table.insert(_path, start_point)
     
118.     return _path
     
119. end
     
120. 
     
121. -- 两个点的代价比较器
     
122. function compareF(point1, point2)
     
123.     return point1.f_value < point2.f_value
     
124. end
     
125. 
     
126. -- 是否是障碍物
     
127. function isObstacle(point)
     
128.     local value = _map_data[point.y][point.x]
     
129.     if value == 1 then
     
130.         return true
     
131.     end
     
132.     return false
     
133. end
     
134. 
     
135. -- 两个点是否是同一个点
     
136. function isEqual(point1, point2)
     
137.     return point1.key == point2.key
     
138. end
     
139. 
     
140. -- 根据点得到点的key
     
141. function getKey(point)
     
142.     local key =  strformat("%d,%d", point.x, point.y)
     
143.     return key
     
144. end
     

复制代码

顶顶顶顶顶顶顶顶

好的完全不懂

好家伙~属于那种类型有些的自动寻路？

可否录个视频来个游戏实测?

好的完全不懂

qq99989680 发表于 2021-8-18 21:04
可否录个视频来个游戏实测?

有时间录个吧,这是我以前写寻路的源码.

大佬牛逼，学习一波，一步步拆解学习，师傅

完全不懂前排支持出视频