|
发表于 2016-8-24 07:36:33
|
显示全部楼层
我这还有源码呢 不过是在去年、也是学俩月后做的,日子久了连我自己都看不懂了---关键也没心情了。
- 功能 连连看()
- 启动=2
- 变量 待消=1
- 循环(待消>0)
- 变量 初步搜索=dm.FindPicEx(0,0,1000,1000,图片串集,"0c0c0c",0.9,0)
- 如果(字符串长度(初步搜索)>2)
- 遍历(变量 i = 0; i < 20; i++)
- 变量 单图集=数组(),单图组,连成=0,mx,my,nx,ny,zhm,zhn
- 变量 单图串=dm.FindPicEx(0,0,1000,1000,图片集[i],"0c0c0c",0.9,0)
- 变量 dts=字符串分割(单图串,"|",单图组)
- 如果(dts>1)
- 遍历(变量 u = 0; u < dts; u++)
- 变量 单组
- 字符串分割(单图组[u],",",单组)
- 数组增加元素(单图集,单组,null)
- 结束
- 遍历(变量 u = 0; u < dts; u++)
- 遍历(变量 v = 0; v < dts; v++)
- 如果(u!=v)
- mx=取整(单图集[u][1])
- my=取整(单图集[u][2])
- nx=取整(单图集[v][1])
- ny=取整(单图集[v][2])
- 如果((数学绝对值(mx-nx)<2&&数学绝对值(my-ny)<40)||(数学绝对值(mx-nx)<40&&数学绝对值(my-ny)<2))
- 连成=1
- 跳出
- 结束
- zhm=纵横分析(mx,my)
- zhn=纵横分析(nx,ny)
- 如果(线性判断(zhm,zhn))
- 连成=1
- 跳出
- 结束
- 结束
- 结束
- 如果(连成==1)
- 跳出
- 结束
- 结束
- 结束
- 如果(连成==1)
- dm.MoveTo((mx+15),(my+15))
- dm.LeftClick()
- 等待(600)
- dm.MoveTo((nx+15),(ny+15))
- dm.LeftClick()
- 等待(400)
- 跳出
- 否则如果(连成==0&&i==19)
- 待消=0
- 调试输出("没有可用图形")
- 结束
- 结束
- 否则
- 调试输出("没发现适用图形")
- 跳出
- 结束
- 结束
- 启动=0
- 结束
- 功能 纵横分析(m,n)
- 变量 方位=数组("","","",""),图位=数组(-1,-1,-1,-1)
- 方位[0]=dm.FindPicEx(0,(n-1),m,(n+32),图片串集,"0c0c0c",0.9,0)//左空
- 方位[1]=dm.FindPicEx((m+30),(n-1),1000,(n+32),图片串集,"0c0c0c",0.9,0)//右空
- 方位[2]=dm.FindPicEx((m-1),0,(m+32),n,图片串集,"0c0c0c",0.9,0)//上空
- 方位[3]=dm.FindPicEx((m-1),(n+30),(m+32),1000,图片串集,"0c0c0c",0.9,0)//下空
- 遍历(变量 i = 0; i < 4; i++)
- 如果(字符串长度(方位[i])>2)
- 变量 lt=dm.FindNearestPos(方位[i],0,m,n)
- 变量 tz
- 字符串分割(lt,",",tz)
- 选择(i)
- 条件 0
- 图位[i]=取整(tz[1])+31
- 条件 1
- 图位[i]=取整(tz[1])-1
- 条件 2
- 图位[i]=取整(tz[2])+31
- 条件 3
- 图位[i]=取整(tz[2])-1
- 结束
- 否则
- 如果(i==0||i==2)
- 图位[i]=0
- 否则
- 图位[i]=1000
- 结束
- 结束
- 结束
- 返回 图位
- 结束
- 功能 线性判断(m,n)
- 如果(数学绝对值(m[0]-n[0])<5&&数学绝对值(m[1]-n[1])<5&&(m[3]+5)>n[2]&&(n[3]+5)>m[2])
- 返回 真
- 否则如果(数学绝对值(m[2]-n[2])<5&&数学绝对值(m[3]-n[3])<5&&(m[1]+5)>n[0]&&(n[1]+5)>m[0])
- 返回 真
- 否则
- 返回 假
- 结束
- 结束
复制代码
(插句广告:结账后为啥不给打款?我心里一直有你、你难道早已忘记我了吗? 说谁谁知道...) |
|