连连看脚本.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