连连看的算法与思路

清幽.

谁有连连看的算法思路给个呗 亲！

liuhaiyan008

我这还有源码呢 不过是在去年、也是学俩月后做的，日子久了连我自己都看不懂了---关键也没心情了。

1. 功能 连连看()
   
2.     启动=2
   
3.     变量 待消=1
   
4.     循环(待消>0)
   
5.         变量 初步搜索=dm.FindPicEx(0,0,1000,1000,图片串集,"0c0c0c",0.9,0)
   
6.         如果(字符串长度(初步搜索)>2)
   
7.             遍历(变量 i = 0; i < 20; i++)
   
8.                 变量 单图集=数组(),单图组,连成=0,mx,my,nx,ny,zhm,zhn
   
9.                 变量 单图串=dm.FindPicEx(0,0,1000,1000,图片集[i],"0c0c0c",0.9,0)
   
10.                 变量 dts=字符串分割(单图串,"|",单图组)
    
11.                 如果(dts>1)
    
12.                     遍历(变量 u = 0; u < dts; u++)
    
13.                         变量 单组
    
14.                         字符串分割(单图组[u],",",单组)
    
15.                         数组增加元素(单图集,单组,null)
    
16.                     结束
    
17.                     遍历(变量 u = 0; u < dts; u++)
    
18.                         遍历(变量 v = 0; v < dts; v++)
    
19.                             如果(u!=v)
    
20.                                 mx=取整(单图集[u][1])
    
21.                                 my=取整(单图集[u][2])
    
22.                                 nx=取整(单图集[v][1])
    
23.                                 ny=取整(单图集[v][2])
    
24.                                 如果((数学绝对值(mx-nx)<2&&数学绝对值(my-ny)<40)||(数学绝对值(mx-nx)<40&&数学绝对值(my-ny)<2))
    
25.                                     连成=1
    
26.                                     跳出
    
27.                                 结束
    
28.                                 zhm=纵横分析(mx,my)
    
29.                                 zhn=纵横分析(nx,ny)
    
30.                                 如果(线性判断(zhm,zhn))
    
31.                                     连成=1
    
32.                                     跳出
    
33.                                 结束
    
34.                             结束
    
35.                         结束
    
36.                         如果(连成==1)
    
37.                             跳出
    
38.                         结束
    
39.                     结束
    
40.                 结束
    
41.                 如果(连成==1)
    
42.                     dm.MoveTo((mx+15),(my+15))
    
43.                     dm.LeftClick()
    
44.                     等待(600)
    
45.                     dm.MoveTo((nx+15),(ny+15))
    
46.                     dm.LeftClick()
    
47.                     等待(400)
    
48.                     跳出
    
49.                 否则如果(连成==0&&i==19)
    
50.                     待消=0
    
51.                     调试输出("没有可用图形")
    
52.                 结束
    
53.             结束
    
54.         否则
    
55.             调试输出("没发现适用图形")
    
56.             跳出
    
57.         结束
    
58.     结束
    
59.     启动=0
    
60. 结束
    
61. 
    
62. 功能 纵横分析(m,n)
    
63.     变量 方位=数组("","","",""),图位=数组(-1,-1,-1,-1)
    
64.     方位[0]=dm.FindPicEx(0,(n-1),m,(n+32),图片串集,"0c0c0c",0.9,0)//左空
    
65.     方位[1]=dm.FindPicEx((m+30),(n-1),1000,(n+32),图片串集,"0c0c0c",0.9,0)//右空
    
66.     方位[2]=dm.FindPicEx((m-1),0,(m+32),n,图片串集,"0c0c0c",0.9,0)//上空
    
67.     方位[3]=dm.FindPicEx((m-1),(n+30),(m+32),1000,图片串集,"0c0c0c",0.9,0)//下空
    
68.     遍历(变量 i = 0; i < 4; i++)
    
69.         如果(字符串长度(方位[i])>2)
    
70.             变量 lt=dm.FindNearestPos(方位[i],0,m,n)
    
71.             变量 tz
    
72.             字符串分割(lt,",",tz)
    
73.             选择(i)
    
74.                 条件 0
    
75.                 图位[i]=取整(tz[1])+31
    
76.                 条件 1
    
77.                 图位[i]=取整(tz[1])-1
    
78.                 条件 2
    
79.                 图位[i]=取整(tz[2])+31
    
80.                 条件 3
    
81.                 图位[i]=取整(tz[2])-1
    
82.             结束
    
83.         否则
    
84.             如果(i==0||i==2)
    
85.                 图位[i]=0
    
86.             否则
    
87.                 图位[i]=1000
    
88.             结束
    
89.         结束
    
90.     结束
    
91.     返回 图位
    
92. 结束
    
93. 
    
94. 功能 线性判断(m,n)
    
95.     如果(数学绝对值(m[0]-n[0])<5&&数学绝对值(m[1]-n[1])<5&&(m[3]+5)>n[2]&&(n[3]+5)>m[2])
    
96.         返回 真
    
97.     否则如果(数学绝对值(m[2]-n[2])<5&&数学绝对值(m[3]-n[3])<5&&(m[1]+5)>n[0]&&(n[1]+5)>m[0])   
    
98.         返回 真
    
99.     否则
    
100.         返回 假
     
101.     结束
     
102. 结束

复制代码

（插句广告：结账后为啥不给打款？我心里一直有你、你难道早已忘记我了吗？ 说谁谁知道...）

清幽.

沙发

dear

想做连连看，首先第一步是你要获取棋盘数据。这一步不难吧？图色的话，相对位置找图或者找色 一般都能解决。
其次就是算法问题，这个是重点
第一种情况：x轴或y轴 相同 且2个目标点之间没有障碍物的。这种判断简单。（直连）
第二种情况：x轴 y轴不同。这种情况分支判断比较多一点。
重点说一下第二种情况。
如上图。
有2种分支。一种是只转一个弯的，一种是转两个弯。
其实我想说的是，看似2种分支，其实转两个弯是在转一个弯的基础上在转一次而已。条件就是没到达目标点的相同轴数（比如x相同或y相同。）时 有障碍物。这时候就需要转2个弯。。你只需要判断转一个弯有没有障碍物堵路，和转两个弯有没有障碍物堵路就可以了。
第三种情况：相同轴，但是中间有障碍物。第二种情况的延伸。
这种情况出现的话 你需要往反轴去走。比如是x轴相同的话，你需要往y轴去走。 这时候还有2种方向，如果你2个目标点不在顶部或底部的时候。你需要以你当前2个点的Y轴去做两种方向计算。正方向和反方向。基本上大概就是如下图


总结一下，就是 往目标方向走（x轴和y轴），如果没遇到障碍物就走到相同坐标（x轴和y轴）为止，有遇到障碍物就转弯（第一次转弯） 然后再走到相同坐标或遇到障碍物就可以pass了。这时候还需要一条直连（第二次转弯）。