连连看脚本.docVIP

连连看脚本 //百度文库也只能上传文档，把下面的复制到按键精灵里面，就OK了。祝你玩的愉快！！ Sub AA //两点是否可以直线相消l=0表示可消两点为（xxx,yyy）（intxxx,intyyy） iii = 1 L = 0 //“判断是否横线可消除” a = xxx c = intxxx b = yyy d = intyyy If b = d Then If xxx intxxx Then a = intxxx c = xxx End If //下面判断横线相隔两点是否可消 While a+31*iiic IfColor a + 31 * iii, b,dise, 0 Then iii = iii + 1 Else L = 1 iii=19 End If Wend //下面判断是否横线相邻两点可消 End If //“判断是否竖线可消” 只要相邻就认为可消 If a = c Then If yyy intyyy Then b = intyyy d=yyy End If //下面判断是否相隔竖线两点可消 iii=1 While b + 35 * iii d IfColor a, b + 35 * iii, dise, 0 Then iii = iii + 1 Else L = 1 iii = 19 End If Wend //下面判断竖线相邻两点是否可消 //只要相邻就认为可消 End If If a c and b d Then l=1 End If End Sub Sub bb //判断是否两条线可消，h=1表示不可消,两点(xx,yy)(intxx,intyy) h = 1 //判断交点xx,intyy 是否与两点直线相消 IfColor xx, intyy, dise, 0 Then xxx = xx yyy = yy intxxx = xx intyyy = intyy Call AA If l = o Then //与一点直线相消 xxx = xx yyy = intyy intxxx = intxx intyyy = intyy Call AA If l = 0 Then //与令一点也相消 H=0 End If End If End If If h = 1 Then //判断另一交点intxx,yy 是否与两点直线相消 IfColor intxx, yy, dise, 0 Then xxx = xx yyy = yy intxxx = intxx intyyy = yy Call AA If l = 0 Then //与一点相消 xxx = intxx yyy = yy intxxx = intxx intyyy = intyy Call AA If l = 0 Then //与另一点也相消 h = 0 End If End If End If End If End Sub Sub cc //判断是否可以三条线可消,t=1表示不可消(x,y)(intx,inty) t = 1 ii = 1 Do IfColor x + 31 * ii, y, dise, 0 Then //x,y点右面是否有一点与xy点可消，同时去判断是否与intx，inty点两点可消 xx = x + 31*ii yy = y intxx = intx intyy = inty Call bb If h = 0 Then t=0 //三线可消 Exit Do //结束 End If Else exit do End If ii=ii+1 Loop //判断x，y点左面是否有有一点与xy可消，同时去判断是否与intx，inty两点相消。 ii=1 Do IfColor x -31 * ii, y, dise, 0 Then xx = x - 31*ii yy = y intxx = in