连连看脚本（Read the script again and again）.docVIP

连连看脚本（Read the script again and again） / / Baidu library can only upload a document, the copy to the wizard button on the OK. Wish you have a good time. Sub AA / / whether two can be straight l=0 said cancellation cancellation for two points (XXX, YYY) (intxxx, intyyy) III = 1 L = 0 To determine whether the line can eliminate / / A = XXX C = intxxx B = YYY D = intyyy If B = D Then If XXX intxxx Then A = intxxx C = XXX End If The following lines determine whether two apart / away While a+31*iiic IfColor a + 31 * III, B, dise, 0 Then III = III + 1 Else L = 1 Iii=19 End If Wend To determine whether the two adjacent lines below / away End If To determine whether a consumer can / as long as that can eliminate adjacent If a = C Then If YYY intyyy Then B = intyyy D=yyy End If The following are two vertical lines to determine whether / / cancellation 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 The judge whether two adjacent vertical lines / cancellation As long as that can eliminate adjacent / / End If If a C and B D Then L=1 End If End Sub Sub BB / / two lines can determine whether the fire, h=1 said not much, two points (XX, YY) (intxx, intyy) H = 1 To determine whether intyy / XX node, and two line cancellation IfColor, XX, intyy, dise, 0, Then XXX = XX YYY = YY Intxxx = XX Intyyy = intyy Call AA If L = O Then / / and a straight line cancellation XXX = XX YYY = intyy Intxxx = intxx Intyyy = intyy Call AA If L = 0 and Then / / make a little cancellation H=0 End If End If End If If H = 1 Then / intxx YY to judge another intersection, and whether two straight line cancellation IfColor, intxx, YY, dise, 0, Then XXX = XX YYY = YY Intxxx = intxx Intyyy = YY Call AA If L = 0 and Then / / a cancellation XXX = intxx YYY = YY Intxxx = intxx Intyyy = intyy Call AA If L = 0 Then / / and also cancellation H = 0 End If End If End If End If End Sub Sub CC / / three lines can determine whether can disappear, t=1