在例程63的基础增加了段判断四方向障碍点代码

经测试还存在BUG，但目的只是交流思路：本打算想着写段自动过障碍点的，到了这里还在研究算法

1.    引擎:置随机数种子()
   
2.     self.目的坐标.x = 引擎:取随机整数(50,800)
   
3.     self.目的坐标.y = 引擎:取随机整数(50,800)
   
4.     self.格子.x = 取整( self.坐标.x / 32 ) + 1
   
5.     self.格子.y = 取整( self.坐标.y / 32 ) + 1
   
6.     --=====================以下判断目的坐标路径中是否有障碍===============
   
7.         
   
8.         self.起步格子.x = 取整( self.起步坐标.x / 32 ) + 1
   
9.         self.起步格子.y = 取整( self.起步坐标.y / 32 ) + 1
   
10.         
    
11.         self.目标格子.x = 取整( self.目的坐标.x / 32 ) + 1
    
12.         self.目标格子.y = 取整( self.目的坐标.y / 32 ) + 1
    
13.         
    
14.         
    
15.         if(self.目标格子.x <=self.起步格子.x) then              --左
    
16.             
    
17.             if(self.目标格子.y<=self.起步格子.y )then         --左上
    
18.             
    
19.                 if(self.格子.x~=self.目标格子.x ) then          --X方向判断障碍点
    
20.                     for n=self.目标格子.x,math.abs(self.起步格子.x - self.目标格子.x ) do
    
21.                         if(Q_全地图数据_路径层[n][self.起步格子.y] == 1) then
    
22.                             self.障碍点格子.x=n
    
23.                             self.障碍点格子.y=self.起步格子.y
    
24.                             break
    
25.                         end
    
26.                     end
    
27.                 else
    
28.                     if(self.格子.y~=self.目标格子.y  ) then    --Y方向判断障碍点            
    
29.                         for n=self.目标格子.y,math.abs(self.起步格子.y - self.目标格子.y) do
    
30.                             if(Q_全地图数据_路径层[self.格子.x][n] == 1) then
    
31.                                 self.障碍点格子.x=self.格子.x
    
32.                                 self.障碍点格子.y=n
    
33.                                 break
    
34.                             end
    
35.                         end
    
36.                     end                    
    
37.                 end
    
38.                
    
39.             else                                                                                 --左下
    
40.                
    
41.                 if(self.格子.x~=self.目标格子.x ) then         --X方向判断障碍点
    
42.                     for n=self.目标格子.x,math.abs(self.起步格子.x - self.目标格子.x ) do
    
43.                         if(Q_全地图数据_路径层[n][self.起步格子.y] == 1) then
    
44.                             self.障碍点格子.x=n
    
45.                             self.障碍点格子.y=self.起步格子.y
    
46.                             break
    
47.                         end
    
48.                     end
    
49.                 else
    
50.                     if(self.格子.y~=self.目标格子.y  ) then    --Y方向判断障碍点            
    
51.                         for n=self.起步格子.y,math.abs(self.目标格子.y-self.起步格子.y) do
    
52.                             if(Q_全地图数据_路径层[self.格子.x][n] == 1) then
    
53.                                 self.障碍点格子.x=self.格子.x
    
54.                                 self.障碍点格子.y=n
    
55.                                 break
    
56.                             end
    
57.                         end
    
58.                     end                    
    
59.                 end
    
60.             
    
61.             end
    
62.         
    
63.         else                                                                                      --右
    
64.         
    
65.             if(self.目标格子.y<=self.起步格子.y )then       --右上
    
66.             
    
67.                 if(self.格子.x~=self.目标格子.x ) then
    
68.                     for n=self.起步格子.x,math.abs(self.目标格子.x - self.起步格子.x) do
    
69.                         if(Q_全地图数据_路径层[n][self.起步格子.y] == 1) then
    
70.                             self.障碍点格子.x=n
    
71.                             self.障碍点格子.y=self.起步格子.y
    
72.                             break
    
73.                         end
    
74.                     end
    
75.                 else
    
76.                     if(self.格子.y~=self.目标格子.y  ) then               
    
77.                         for n=self.目标格子.y,math.abs(self.起步格子.y-self.目标格子.y) do
    
78.                             if(Q_全地图数据_路径层[self.格子.x][n] == 1) then
    
79.                                 self.障碍点格子.x=self.格子.x
    
80.                                 self.障碍点格子.y=n
    
81.                                 break
    
82.                             end
    
83.                         end
    
84.                     end                    
    
85.                 end
    
86.                
    
87.             else                                                                             --右下
    
88.                
    
89.                 if(self.格子.x~=self.目标格子.x ) then
    
90.                     for n=self.起步格子.x,math.abs(self.目标格子.x - self.起步格子.x )do
    
91.                         if(Q_全地图数据_路径层[n][self.起步格子.y] == 1) then
    
92.                             self.障碍点格子.x=n
    
93.                             self.障碍点格子.y=self.起步格子.y
    
94.                             break
    
95.                         end
    
96.                     end
    
97.                 else
    
98.                     if(self.格子.y~=self.目标格子.y  ) then               
    
99.                         for n=self.起步格子.y,math.abs(self.目标格子.y - self.起步格子.y) do
    
100.                             if(Q_全地图数据_路径层[self.格子.x][n] == 1) then
     
101.                                 self.障碍点格子.x=self.格子.x
     
102.                                 self.障碍点格子.y=n
     
103.                                 break
     
104.                             end
     
105.                         end
     
106.                     end                    
     
107.                 end
     
108.             
     
109.             end
     
110.             
     
111.         end

复制代码